webbrowser da html gösterme

[ferhat]

merhabalar,
Benim sorum şu;
Program içersinde bir raporlamayı html formatına uyarlıyorum ve elimde string içersinde bir html sayfa kodu oluşuyor,
bu html yi webbrowserda göstermem mümkün müdür ?
Teşekkürler.

[conari]

htmlyi bilgiyara kaydedip oradan gösterebilirsiniz.
browser kapatıldığında da silersiniz.

[ferhat]

htmlyi bilgiyara kaydedip oradan gösterebilirsiniz.
browser kapatıldığında da silersiniz.

bu benimde aklıma gelmişti ama tam bir çözüm değil
kaydetmeden göstertmek mümkün değilmidir acaba

[conari]

uses a ActiveX eklenecek.
Ben Memo olarak örnek verdim..

Kod: Tümünü seç

procedure wb_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
   sl: TStringList;
   ms: TMemoryStream;
begin
   WebBrowser.Navigate('about:blank') ;
   while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;

   if Assigned(WebBrowser.Document) then
   begin
     sl := TStringList.Create;
     try
       ms := TMemoryStream.Create;
       try
         sl.Text := HTMLCode;
         sl.SaveToStream(ms) ;
         ms.Seek(0, 0) ;
         (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
       finally
         ms.Free;
       end;
     finally
       sl.Free;
     end;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
wb_LoadHTML(WebBrowser1,memo1.lines.text);
end;