TWebBrowser LoadFromStream

[mitring]

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

[chaosben]

Hi!

Per SucheTWebBrowser LoadFromStream kommt man dahin und von da zur Lösung.