Hola Snaked.
Código:
...
#include <ActiveX.hpp>
...
void gethtmlCode(TCppWebBrowser* wb, TStrings* lines)
{
IPersistStreamInit* psi;
if (!wb->Document) return;
if (wb->Document->QueryInterface(IID_IPersistStreamInit,(void **)&psi) == S_OK)
{
TStringStream *ss = new TStringStream("");
TStreamAdapter *sa = new TStreamAdapter(ss, soReference);
try
{
if (SUCCEEDED(psi->Save(*sa, true)))
lines->Add(ss->DataString);
}
__finally
{
delete ss;
delete sa;
}
}
}
Ejemplo de uso:
Código:
void __fastcall TForm1::Button1Click(TObject* Sender)
{
gethtmlCode(CppWebBrowser1, Memo1->Lines);
}
Saludos