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?