TWebBrowser Veritabanından Veri Çekmek

[RamazanG]

Projede DBRichEdit yerine TWebBrowser kullanmak istiyorum. Veri tabanından konu başlıklarını treeview e yükledim.
treeview nesnesine tıklanınca içeriğin webbrowserda görünmesini istiyorum nasıl yapabilirim örnek verebilecek varmı?

[CiTiZEN]

merhabalar, sanırım bunun için html bilgisine ihtiyacınz olacak öncelikle bir tasarım yapıp veriye göre tekrarlanabilir bir algoritma oluşturmalısınız.

[Battosai]

Delhpideki web browser ile yapılabilir fakat fazladan koda gerek yok....
http://www.bsalsa.com/ adresindeki embeddedWB bileşenini kur. Kendisinin loadfromstring,loadfromfile gibi methodları mevcut....

[barutali]

mevcut html kodunu temp olarak bir yere kaydedip webbrowser ın navigate özelliği ile çekebilirsiniz..

[CiTiZEN]

biraz html bilgisine sahip olursanız kendi tasarımlarınızı kullanabilirsiniz, ben bir örnek hazırladım, div yapısından faydalandım anlaşılır olması açısından tane tane oluşturup sonra kaydettim.dosyanın içinde 0.mdb isimli bir veritabanı var c dizinine kopyalayın.programda oluşan html c dizinine deneme.html olarak kaydediliyor ordan da çalıştırabilirsiniz.

[Battosai]

mevcut html kodunu temp olarak bir yere kaydedip webbrowser ın navigate özelliği ile çekebilirsiniz..

Yukardaki bileşeni bunlara gerek olmasın diye tavsiye ettim...normalde zaten aşağıdaki method ile istenilen veriyi Twebbrowser da gösterebilirsiniz...sanırım arkadaş html ile şekillendirilmiş içeriği zahmetsizce görmek istiyor...

Kod: Tümünü seç

procedure WBLoadHTML(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;

[barutali]

mevcut html kodunu temp olarak bir yere kaydedip webbrowser ın navigate özelliği ile çekebilirsiniz..

Yukardaki bileşeni bunlara gerek olmasın diye tavsiye ettim...normalde zaten aşağıdaki method ile istenilen veriyi Twebbrowser da gösterebilirsiniz...sanırım arkadaş html ile şekillendirilmiş içeriği zahmetsizce görmek istiyor...

Kod: Tümünü seç

procedure WBLoadHTML(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;

Ben alternatif olması amacıyla dedim zaten @Battosai hocam..

[RamazanG]

Cevap veren tüm arkadaşlara teşekür ediyorum