Ungetestet:
Delphi-Quellcode:
procedure WB_LoadDocFromString(WB: TWebBrowser; const HTMLString: string);
var
HTMLStream: TMemoryStream;
begin
WaitForBrowser(WB);
if Assigned(WB.Document) then
begin
HTMLStream := TMemoryStream.Create;
try
HTMLStream.WriteBuffer(Pointer(HTMLString)^, Length(HTMLString));
HTMLStream.Seek(0, soFromBeginning);
(WB.Document as IPersistStreamInit).Load(TStreamAdapter.Create(HTMLStream));
finally
HTMLStream.Free;
end;
end;
end;
Danke, aber damit besteht das selbe Problem: Es wird nur der
HTML-Sourcecode angezeigt.
Außerdem wird mit dieser Lösung nur etwa die Hälfe des Textes dargestellt. (Was wohl am zu kleinen Buffer liegt, aber das ist ein anderes Problem, was mit dem ursprünglichen nichts zu tun hat.)