TWebbrowser aus Stream speisen

[TBx]

Hallo!

Ich möchte eine TWebBrowser-Komponente ohne Umweg über das Filesystem speisen.
Die darzustellenden Daten liegen als Stream vor (Html-Seiten, docs, pdfs etc).

Kann mir jemand einen Ansatz vermitteln, wie ich den Stream an die TWebBrowser-Komponente übergebe, ohne den Umweg über das Filesystem zu machen?

Gruß

Thomas

[marabu]

Hallo Thomas,

einen von mehreren möglichen Wegen kannst du mit der Funktion LoadDocument() gehen: klick

Grüße vom marabu

[Meflin]

Delphi-Quellcode:

procedure SetHTML(MemoryStream: TMemoryStream; WebBrowser: TWebBrowser);
begin
  WebBrowser.Navigate('about:blank');
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do begin
   Application.ProcessMessages;
  end;
  if Assigned(WebBrowser.Document) then begin
    try
      MemoryStream.Seek(0, 0);
      (WebBrowser.Document as IPersistStreamInit).Load
        (TStreamAdapter.Create(MemoryStream));
    finally
      MemoryStream.Free;
    end;
  end;
end;

[TBx]

Vielen Dank Euch beiden schonmal für die Info.
Das ist noch nicht so ganz das, was ich erreichen möchte.

Es ist so, daß ich die Funktionalitäten von TWebbrowser dazu mißbrauche, verschiedene Dateien (gif, tiff, pdf, doc, xls etc) in einem Fenster meines Programmes anzuzeigen.
Bisher habe ich das so gelöst, daß ich die Datei (die bei mir im Blobfeld einer Datenbank geparkt ist) über einen Filestream temporär auf die Platte schmeiße und dann mittels
WebBrowser.Navigate ('MyLocalFile') anzeige.
Ich würde mir hier nur gern den Umweg über das Filesystem sparen.
Hat jemand eine Idee, wie bzw. ob das realisierbar ist?

Gruß

Thomas

[Meflin]

Hm? Verstehe ich jetzt nicht ganz. Meine Funktion schreibt einen Stream direkt in einen TWebBrowser, ohne Umweg! Also nimmst du eben statt einem FileStream einen MemoryStream, rufst damit die Prozedur auf und fertig!

[TBx]

Zitat von Meflin:

Hm? Verstehe ich jetzt nicht ganz. Meine Funktion schreibt einen Stream direkt in einen TWebBrowser, ohne Umweg!

Stimmt, das tut die Funktion. Klappt auch sehr gut.
Ich schreibe jetzt aber z. B. eine PDF-Datei in den Stream. Dann bekomme ich im TWebbrowser dannach eine Darstellung, als hätte ich die PDF-Datei in einem beliebigen Texteditor aufgemacht.
Arbeite ich mit dem Navigate, zieht TWebbrowser automatisch das PDF-Viewer-Plugin an und stellt die PDF-Datei richtig dar.
Hierzu holt sich TWebbrowser die Infos offenbar direkt aus dem Dateiinhalt, der Dateiname und die Extension sind beliebig austauschbar.

Zitat von Meflin:

Also nimmst du eben statt einem FileStream einen MemoryStream, rufst damit die Prozedur auf und fertig!

Ich mache es in diesem Fall mit einem TIB_Blobstream.
Nur kriege ich den TWebbrowser eben dann nicht dazu, festzustellen, was ich ihm da biete und es dann korrekt darzustellen.

Gruß

Thomas

[thkerkmann]

Hi,

dein Browser kann keine pdf Datei darstellen.

Wenn du diese auf die Platte schreibst und ein navigate machst, lädt der Browser das Plugin dafür und dieses stellt die Datei dar. Also wirst du wohl den Umweg gehen müssen, wenn es sich um Dateien handelt, die der Browser nicht direkt darstellen kann, denn wenn du ihm einen Stream anbietest bist Du schon an einer Stelle wo nur noch Browser kompatible Daten verarbeitet werden.

Gruss
Thomas.