TWebBrowser source alma ve yükleme sorunu hakkında

[adelphiforumz]

Selamlar

TWebBrowser kullanarak bir sayfayı yüklüyorum
Bu sayfa https sayfası ve aynı zamanda java scriptler mevcut

Ekranda kullanılan tablolar içerisindeki her satıra basıldığında javascriptler ile farklı işlemler yapılıyor.
(Örnek: Tablo bir ürün listesi veriyor, satırı seçtiğinizde ürün detayına gidiyor.)

Aşağıdaki belirttiğim fonksiyonla sayfanın kaynak koduna erişiliyor.

Kod: Tümünü seç

function GetHTML(w: TWebBrowser): String;
Var
  e: IHTMLElement;
begin
  Result := '';
  if Assigned(w.Document) then
  begin
     e := (w.Document as IHTMLDocument2).body;

     while e.parentElement <> nil do
     begin
       e := e.parentElement;
     end;

     Result := e.outerHTML;
  end;
end;

Bu kaynak kodu bir memo içine alınarak sadece text alanlarda renklendirme yapılıyor.

Kod: Tümünü seç

CONST
  sOld = 'Stok Yok';
  sNew = '<font color="red"> ' + sOld + '</font>';
var
  _Doc : Variant;
begin
  Memo1.Text := AnsiReplaceStr(Memo1.Text, sOld, sNew);

Sonrasında sayfa yeniden yüklemek için aşağıdaki kod kullanılıyor.

Kod: Tümünü seç

var
  _Doc : Variant;
begin
  _Doc := WB.Document;
  _Doc.clear;
  _Doc.write(Memo1.Text);
  _Doc.close;

Tüm bu işlemler bittiğinde artık tablo içerisindeki satırlar üzerinde işlem yapılamıyor.
Acaba kaynak kodu alırken yukarıda belirttiğim yöntemlerden farklı bir yolmu izlemem gerekir
yada yeniden yüklerkenmi acaba hata yapıyor olabilirim.

Konu hakkında fikri olan arkadaşlara şimdiden teşekkürler