Hola,
No sé hasta qué punto algo como lo siguiente podría sacarte del apuro:
Código Delphi
[-]
uses
SysUtils, SHDocVw, OleCtrls, ActiveX;
function WebBrowerDocumentSource(webBrowser: TWebBrowser) : string;
var
ss: TStringStream;
ips: IPersistStreamInit;
begin
Result := EmptyStr;
ss := TStringStream.Create(Result);
try
if Assigned(webBrowser) and Assigned(webBrowser.Document) then
begin
ips := webBrowser.Document as IPersistStreamInit;
if Assigned(ips) and Succeeded(ips.Save(TStreamAdapter.Create(ss), true)) then
Result := ss.DataString;
end;
finally
ss.Free;
end;
end;
El código fuente de la función anterior está basado en parte del código fuente del componente
EmbeddedWB, escrito por Per Lindsø Larsen. Échale un vistazo, puesto que acaso te parezca bien hacer uso del mismo en lugar del "TWebBrowser" que acompaña a Delphi.