Wie kann ich in TWebBrowser den Text in TMemoryStream anzeigen und nicht aus
HTML Datai eingeben.
Der unten angeführter Kode funktioniert nicht.
Delphi-Quellcode:
function TfrmPolaczenie.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (frmMain.WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;
Delphi-Quellcode:
MS := TMemoryStream.Create;
(frmPolaczenie.IdMessage.MessageParts.Items[0] as TIdText).Body.SaveToStream(MS);
(frmMain.WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(MS));
frmPolaczenie.LoadFromStream(MS);
Ich benutze BDS2006 und Komponente TWebBrowser