Quelltext von Seite mittels WebBrowser <ERROR>

[p80286]

Hallo Nanoflo
so sollte es funktionieren:

Delphi-Quellcode:

function WEB2Memo(memo:tmemo):boolean;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
  s: string;
begin
  result:=false;
  if not(form1.webbrowser1.Busy) and (form1.webbrowser1.readystate=readystate_complete)then begin
    ps := form1.WebBrowser1.Document as IPersistStreamInit;
    s := '';
    ss := TStringStream.Create(s);
    try
      sa := TStreamAdapter.Create(ss, soReference) as IStream;
      ps.Save(sa, True);
      memo.text:='';
      memo.lines.Add(ss.Datastring);
      result:=true;
    finally
      ss.Free;
    end;
  end;
......
end;

Gruß
K-H