TWebbrowser okuduğum kaynak ile Kaynağı Görüntüle farklı

[debugMe]

Merhaba,

Webbrowser ile bir sayfa çağırıyorum, sayfa geldiği zaman "XML sayfası görüntülenemiyor ......" diye bir hata alıyorum ve sayfanın kaynak kodunu çağırdığım zaman doğru kaynak kodu gelmiyor fakat sağ tıklayıp kaynağı görüntüle dediğim zaman gerçek kaynak kodunu görebiliyorum fakat kod ile okuyamıyorum.

şunları denedim:
(wb1.Document as ihtmldocument2).body.parentelement.outerhtml
wb1.OleObject.Document.Body.OuterHTML;
wb1.OleObject.Document.Body.InnerHTML;
wb1.DocumentSource;
outertext,innertext middletext vs..vs..vs. akla gelebilecek her türlü ihtimali denedim, tWebBrowser, tEmbeddedWB, tChromium bileşenleri ile denedim. sonuç alamadım.

Her türlü fikir, öneri ve koda açığım. Teşekkür ederim.

[Lord_Ares]

aşağıdaki procedurü kullanarak açtığın sayfanın kaynak kodunu gelen.txt adlı bir dosyaya kaydet, sonra dosyayı kontrol et kaynak kodu almışmı, belkide kaynak kodunu göremiyor olabilir veya sayfa complate olmadan almaya çalışıyor olabilrsin. Aklıma ikinci gelende kullandığın webbrowser ayarlarını incel onlarda birşey değiştirmiş olabilirsin..

Kod: Tümünü seç

  procedure WBkaydet(WB:TWebBrowser; const URL, FileName : string);
    var
      Liste : TStringList;
    begin
      
      If URL <> '' then  begin // URL Navigate edilecek
        WB.Navigate(Url);
        While WB.ReadyState <> READYSTATE_COMPLETE
          do Application.ProcessMessages; // sayfa bitmesini beklemedeyiz..
                         end else  begin // Navigate edilmiş bir URL varsa Text olarak kaydedilecek.
                  if not Assigned(WB.Document) then
                  begin
                   ShowMessage('Sayfa yüklenmedi');
                   Exit;
                  end;
                 end;

      Liste := TSTringList.Create;
      Liste.Text := WB.OleObject.Document.Body.InnerHTML;
      Liste.SaveToFile( FileName );
      Liste.Free;
                   end;

Kullanımı

Kod: Tümünü seç

WBkaydet( Form1.WebBrowser1, '', ExtractFilePath(Application.ExeName)+'Gelen.txt')