TWebbrowser - Quellcode auslesen

[ferby]

Hello,

hmm, ich glaub es liegt nichtmal an dem StringStream, da ich den länger als 4096 Zeichen machen kann.

Wo kann den hier eine Begrenzung sein?

Delphi-Quellcode:

function WB_GetHTMLCode(WebBrowser: TWebBrowser): string;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
begin
  // Warten bis Quellcode fertig heruntergeladen ist
  repeat
    Application.ProcessMessages;
  until WebBrowser.ReadyState >= 3;

  ps := WebBrowser.Document as IPersistStreamInit;
  ss := TStringStream.Create('');

  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    Succeeded(ps.Save(sa, True));
    Result:=ss.Datastring;
  finally
    ss.Free;
  end;
end;

Bzw, wie erweitere ich diese Grenze sodas ich mehr als 4096 Zeichen Speichern kann?