Hi Digielm,
wenn ich dich richtig verstanden habe, dann versuchst du mit dem Webbrowser den Quelltext in ein Memo zu lesen!?
Versuchs mal hiermit:
Delphi-Quellcode:
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;
So geht's bei mir...
Viel Spaß damit!
Gruß!