Delphi ile Web Form Alanlarını Doldurma

[Hayati]

Başka bir dille örneklendirdiğim için kusura bakmayın ama mantık aynı, elimde olmayan sebeplerden dolayı Delphi IDE si kuramıyorum bir süredir, hazır çalışan bir örnek sunmak isterdim.


global bir değişken tanımlayın

public static bool isLoaded = false;

Metotlar

public static void Sayfayuklendi()
{
   isLoaded = true;
} 

public static void SayfaYuklennesiniBekle(WebBrowser webbrowser1)
{
   isLoaded = false;
   while (isLoaded == false)
   {
      Application.DoEvents();
   }
}

Önemli

private void wb_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
   Sayfayuklendi();           
}

Kullanımı

public static void GirisYap(WebBrowser wb, string user, string pass)
{
   InternetSetOption(IntPtr.Zero, INTERNET_OPTION_END_BROWSER_SESSION, IntPtr.Zero, 0);
   wb.Navigate(ProcessHtml.LoginUrl);
   SayfaYuklennesiniBekle(wb);
   // işlemler vs ...
   SayfaYuklennesiniBekle(wb);
   // Linke git, linki tıkla ...
   SayfaYuklennesiniBekle(wb);
   // sayfa geldi devam          
}

Umarım mantığı anlatabilmişimdir.