Döngü?

[umutcanster]

arkadaşlar mesela :

WebBrowser.Navigate('http://www.xxx.com');

bittiginde

otomatik man

WebBrowser.Navigate('http://www.xxx1.com');

gidecek o da bittiginde

showmessage('banka güvenlik kontrolunu okuyunuz');

gibi döngüyü nasıl yaparım

yani kısacası bır procedure tamamen bıtecek 2.procedureye gececek oda bitecek 3.ye gececek gibi binevi button1.click ; ( tamamen bıttı o gorev ) button2.click ; gececek

sagolun.

[umutcanster]

cevap ;:(

[aslangeri]

amaç ?

[sabanakman]

Bu forumda yıllardır soru-cevapla gelen birikim sonucu bir yığın WebBrowser kullanım örnekleri oluştu, bunları arama yaparak bulabilirsin. Bir sayfayı açma ve bekleme kodu ise konunun başlama aşamasıdır. Meselenin yıllar önce çözülmüş olması tesadüf değildir ve çözüm aşağıdaki gibidir.

Kod: Tümünü seç

WB1.Navigate( 'http://www.xyz.com.tr' );//->sayfayı aç
While WB1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;//->Sayfa gelene kadar bekle

Hatta bulduğum ilk link..:viewtopic.php?f=2&t=22904&p=130976#p130976

Bir diğer örnek..:

Kod: Tümünü seç

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

Buradan..:viewtopic.php?f=2&t=5552&p=33507&hilit= ... ser#p33829

[umutcanster]

teşekkürler fakat ben baska donguyu kuramazmıyım yani mesela bir procedure bıttıgınde sıradakı gırsın gibi?

[umutcanster]

amaç ?

Amacım pc güvenlik taraması mesela

procedure c antivirüstara ; gibi bu procedure bıttıgında procedure d antivirüstara ; tevreye girecek bunun gıbı*

[sabanakman]

teşekkürler fakat ben baska donguyu kuramazmıyım yani mesela bir procedure bıttıgınde sıradakı gırsın gibi?

zaten bir prosedür bitince sırada ne yazılmışsa o devreye girer.

[aslangeri]

s.a.
arkadaşım benim bildiğim delphide 3 döngü vardır.
1. repeat until
2. while
3. for
döngüleri.
bunların haricinde if e döngü diyenleri gördüm birde şimdi senin döngü ifaden var.
önce yapmak istediğin şeyi akış diyagramları ile bir yap bakalım yapabiliyormusun.
eğer yapamıyorsan ne yapmak istediğini tam olarak ifade edemiyorsun demektir.
döngü başlığında webnavigate sonra procedurelerin sıra ile çalışması .........
mesajlarından yapmak istediğin şeyin ne olduğunu anlıyamıyorum (belkide oruç kafama vurdu).

[umutcanster]

Hocam demek istedigim su sekilde

mesela 1 buttonumuz var ve onclick yordamına :

label1.caption:= ' deneme'
label1.caption:= ' denem2 '

yazdık benım demek ıstedıgım bırıncı kod calıstıktan sonra belli bir süre gectikten sonra 2. kod calısması

olay sleep(milisaniye) olayı olmasın istiyorum

birnevi kod bekletme gibi birşey?

[unicorn64]

ee cevabı vermişsin işte

Kod: Tümünü seç

label1.caption:= ' deneme';
sleep(1000); // 1 sn bekle
application.ProcessMessages; // program beklerken işlemciye musade et diğer işlerle ilgilensin 
label1.caption:= ' deneme2 ';

[umutcanster]

şey sleep(200) gibi olayı olmadanda baska bır turle olmazmı?

[unicorn64]

sleep olmadan işlemciyi bekletmenin bildiğim mantıklı bi yolu yok..
da neden sleep kullanmak istemedin onu anlamadım ben. yoksa amaç amerikayı yeniden keşfetmek falan mı

[CiTiZEN]

Sanırım sleep komple programı dondurduğu içindir

[CiTiZEN]

az ewel bir kod parçası buldum

Kod: Tümünü seç

procedure Delay(ms : longint) ;
var TheTime : LongInt;
begin
  TheTime := GetTickCount + ms ;
  while GetTickCount < TheTime do Application.ProcessMessages ;
end ;

projende ise (.exe)

Kod: Tümünü seç

Delay(1000);//milisaniye

olarak kullanırsın denedim çalışıyor orjinali ve birçok kod örneği
http://www.merlyn.demon.co.uk/pas-wait.htm#WC
http://www.merlyn.demon.co.uk/pas-wait.htm

[umutcanster]

Hepinizden ALLAH yardımcınız olsun dıyorum yardımcı oldunuz teşekkürler