webbrowser döngü??

[interboy]

hocam benim yine basit bi sorum olcaktı ama bi türlü yapamadım.

şimdi formda bi döngü war

şimdi döngüde webbrowserde sayfa tamamen açıldıktan sonra sayaçı yuklseltmek istiyorum ama beceremedim. documentcomplete veya başka bişey nasıl kullanılır yardım edebilirmisiniz.

Kod: Tümünü seç

for i:=1 to 5

 begin
  
 webbrowser1.navigate(string adres);
 (buraya webbrowserde sayfanın tamamlanıp tamamlanmadığını kontrol edip i=2 ye öyle geçmek istiyorum)
 end;

teşekkür ederim.

selametle..

[Ancestor]

WebBrowser nesnesinin OnDocumentComplate olayına (events) yazarsanız sorununuz kalmaz.

[interboy]

WebBrowser nesnesinin OnDocumentComplate olayına (events) yazarsanız sorununuz kalmaz.

saolun hocam ama bunu nasıl kullanabilirim biraz açıklarsanız sewinirim.

ben döngü içinde şart olarak kullanmak istiyorum bunu.
e dediğiniz bir prosedür. bunu nasıl kullanabilirim döngü içinde?

teşekkür ederim.

selametle..

[interboy]

hocam bilginiz warsa yardım edebilirmisiniz bukonuda.

rica ediyorum

selametle..

[hdayi]

ne yapmak istediğini tam anlayamadım, döngü de ne yapacaksın? i ile ne işin var?
@Ancestor'ın dediği gibi TWebBrowser'ın OnDocumentComplete olayına istediğin kodu yazabilirsin. Buraya yazdığın kod, web browser sayfayı açmayı bitirdikten sonra çalşır.

Anladığım kadarı ile 5 farklı sayfayı aççacaksın.
birincini normal aç:

Kod: Tümünü seç

webbrowser1.navigate('1.sayfa');

Global bir i değişkeni tanımla, başlangıç değerini iki yap. OnDocumentComplet'e de şu kodu yaz.

Kod: Tümünü seç

if i>5 then exit;
webbrowser1.navigate(inttostr(i)+'.sayfa');
inc(i);

deneyemiyorum ama böyle bişey olması lazım...
Kolay Gelsin...

[mrmarman]

Selam...

- OnDocumentComplete eventi, aynı Web Sayfadaki, iç içe bağımsız sayfalardan dolayı birden fazla kere tetiklenebildiğinden bu evente güvenmeyiniz. Çünkü daha sayfa tam yüklenemeden kontrol işlemine geçmek ihtimali doğurur.

- Onun yerine ReadyState kontrolü yapın. Forumda bir kaç kere değinmeye çalışmıştım.

- Örneğin...

Kod: Tümünü seç

    WebBrowser1.Navigate( Adres, 
                          EmptyParam, 
                          EmptyParam, 
                          PostData, 
                          Headers); 
    repeat 
       Application.ProcessMessages; 
       // ZZZZzzzz 
    until ( WebBrowser1.ReadyState = READYSTATE_COMPLETE ); 

- Bu örnekte web sayfası yüklemesi bitene kadar beklenir. Araya bir kontrol daha ekleyip bir süre sonra döngüden çıkmasını da sağlamalısınız.

- Başarılar...