webbrowser readystate olayı

[notname]

merhaba arkadaşlar, webbrowserin readystate olayı bildiğiniz üzere sayfa yüklendiğinde çalışıyor. ama google.com navigate ettiğimde documentcomplete olayı hata verio readystate_complete dahi problem vermektedir. acaba başka bi yöntem yapılabilirmi delphide? c# net için kod buldum aslında bu kod çalışır büyük ihtimal ama delphiye uyarlayamadım

Kod: Tümünü seç

private void WebBrowser_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
    {
        string url = e.Url.ToString();
        var browser = (WebBrowser)sender;

        if (!(url.StartsWith("http://") || url.StartsWith("https://")))     
        {             
            // in AJAX     
        }
        if (e.Url.AbsolutePath != this.webBrowser.Url.AbsolutePath)     
        {
            // IFRAME           
        }     
        else     
        {             
            // REAL DOCUMENT COMPLETE
            // Put my code here
        }
    }

[SimaWB]

OnDocumentComplete'da ReadyState = READYSTATE_COMPLETE ise sayfa yüklenmiş demektir.

[SimaWB]

C# için verilen kodun yaptığı işi yapar sanırım:

Kod: Tümünü seç

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  UrlStr, FrameName: string;
begin
  UrlStr := String(URL);
  if (Pos('http://', UrlStr) <> 1) and (Pos('https://', UrlStr) <> 1) then
  begin
    Memo1.Lines.Add('AJAX');
  end
  else if pDisp = TWebBrowser(Sender).ControlInterface then
  begin
    Memo1.Lines.Add(Format('Sayfa yüklendi : %s%', [UrlStr]));
  end else
  begin
    FrameName := OleVariant(IWebBrowser(pDisp).Document).ParentWindow.Name;
    Memo1.Lines.Add(Format('Frame yüklendi : "%s" ', [FrameName]));
  end;
end; 

[notname]

hocam bu googleda ne varsa sayfanın tamamen yüklendiği kontrol edilmiyo

[SimaWB]

Ben yukarıdaki kodları deneyerek gönderdim. Problemsiz çalışıyor bende...

[notname]

tmmdır hocam sağoalasın, cevirdğin kısımdaki gibi işlio kodlar.