Döngüyü bekletmek

[aveysel]

Bir döngüm var ve bu döngüm programımda belirli bir şart sağlanana kadar döngümü beklemeye almam gerekiyor, Ne yapmalıyım?

Sleep() komutunu kullandım ancak bu komut programı kople beklemeye aldığı için diğer şartımı sağlamıyor.

[husonet]

Merhaba

Algoritmanızı tam açarmısınız Döngünüzü neden bekletmek istiyorsunuz. Timer nesnesi kullanın belirli şart bildirin şartınız oluştuğu zaman döngünüzü çalıştırın.

Kolay Gelsin...

[aveysel]

döngümün serverr ıma connect olması için belirli bir satıdan sonra beklemsi gerekiyor ve servera connect olduktan sonra kaldığım yerden devam etmeli pascalda sanırım bu iş için delay komutu varmış ancak delphi bunu desteklemiyor, ama timer ile bunu sanırım çözebilirim ama bunun için delphi de bir komut olmalı....

Döngüyü belirli bir süreliğine durdurmak istiyorum...
(Programı değil sadece döngüyü)

[freeman35]

Server a neyle bağlanmaya çalışıyorsun? Yapmaya çalıştığın program nedir? Kullandığın component ın afterconnect gibi bir event i vardır bağlandıktan sonra olan işlemlerini oraya yazarsın

Kolay gele

[P206]

Merhaba,

Şöyle birşey kullanabilirsin sanırım. Servere connect olunca olunca eline connected olan bir değer geliyordur heralde. Aşağıdaki olayda

server.connect; // burası tam nereye connect olmaya çalıştığını bilmiyorum o yüzden sadece connect dedim.
repeat
Application.ProcessMessages;
until connected // burada da connect olduğunu kontrol ediyorsun. connect olana kadar döngü devam eder.

Beiki işine yarayabilir.

[warder]

Döngü ile programı bekletmek sistemde aşırı yorulmaya ve kaynak tüketimine neden olabilir. freeman35 in söylediği daha şık. en azından topu sisteme atarsanız uygun mesaj geldiğinde sizin programınıza yönlendirir.
böyle bir events yoksa bile mesaj kuyruğuna nasıl ekleyebileceğinizi araştırabilirsiniz.

[gkimirti]

dongude bekleme wader in dedigi gibi islemciyi somurur
CPU kullanımı %99 100 e cıkar
illa da bekleyecegim diyorsan sana delay proceeduru
parametre milisaniye cinsinden

Kod: Tümünü seç

procedure Delay(MSecs: Longint);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
    Now := GetTickCount;
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

[mege]

bende tüm bu tarz bekletme işlemlerimde timerkullanıyorum.(farklı biriş için. )
while içinde application.proc...message programın afallamasına neden oluyor.. ama timera dzügün bir mantık ekleyerek yapabilirsin.
mesela ben bir timerla (500ms interval) en az 20-30 kontrol yapıyorum. eğer bunları sürekli döngü ile yapıcak olsaydım herhalde kullanıcı mouseu biraz zor hareket ettirirdi.