100 puan değerinde (Threading)

[Bahadir.Alkac]

Merhaba,

Aşağıdaki gibi bir kod istediğimiz sonuca ulaştırıyor:

procedure TForm1.Button1Click(Sender: TObject);
var
 H: THandle;
begin
 Event.ResetEvent;
 H := Event.Handle;

 TThread.CreateAnonymousThread(
  procedure
  begin
    Sleep(10000);
    Event.SetEvent;
  end
 ).Start;

 while True do
 begin
   case MsgWaitForMultipleObjects(1, H, FALSE, INFINITE, QS_ALLINPUT) of
     WAIT_OBJECT_0: Break;
     else Application.ProcessMessages;
   end;
 end;

 // Burada Event için bekleme kodunuz olacak. Ve bu kod uygulamanızı kilitlemeyecek. Progressbar'ın hareket ettiğini
 // Timer'ın ilgili zaman değerlerini label'a yazdığını gözlemlemeniz gerek.

 Memo1.Lines.Add('Bu satır ancak 10 saniye sonra işletilecek. Ancak bu arada formunuz interaktif olacak. Memoya tıklayıp yazı yazabileceksiniz. Ancak CPU kullanım oranınız da yüksek olmayacak. !');
end;

MsgWaitForMultipleObjects fonksiyonunun ne yaptığını okuduğunuz zaman bu kod basit:
- Bu fonksiyon aslında birden fazla sync edilebilen nesneyi bekliyor. Bizim örneğimizde bir tane olduğu için ilk parametremiz 1
- 2. parametre aslında HANDLE dizisi. Birden fazla nesne olduğunda işleri karıştıracak, ama tek nesne için iş kolay. Örnekteki gibi Event'in handle değerini bir değişkene alıp gönderebiliriz.
- 3. parametre bütün nesneleri bekleyip beklemeyeceğini belirliyor. Bizim örneğimiz için TRUE veya FALSE olması anlamsız.
- 4. parametre timeout. Biz thread'in bitişini bilmediğimiz için INFINITE (sonsuz) dedik. 
- Son parametre ise bu fonknsiyonun hangi Input'larda geri döneceği. Biz bütün inputlar dedik, böylece klavye, mouse, SendMessage gibi bütün input işlemleri için fonksiyon kesilecek.

Bütün inputlarda fonksiyon kesileceği için bunu while döngüsü içine aldım. Dikkat edecek olursanız Thread bitmediği sürece bu döngüden çıkamıyor.

Tuğrul Bey, umarım aradığınız çözüm budur.

Kod çalışıyor, ama bu kod programın içine gömebileceğiniz bir kod değil! Öncelikle sonsuza kadar bekleme olmaz Ayrıca bu şekilde bekleme yapmak zorunda kalıyorsanız programın tasarımını bir kere daha düşünün, büyük ihtimalle bir yerde yanlış yapıyorsunuz. Son olarak, Application.ProcessMessages çok gıcık, tehlikeli, her kullandığımda kendimi kötü hissettiğim, kötü evlat gibi (artık ekleyebildiğiniz ne varsa ekleyin) bir prosedür. Programın içinde buna ihtiyaç duyuyorsanız gene program tasarımında sorun var demektir. Bütün bunları yazıyorum, ama kendi programlarımda da bu sorunları yaşıyorum. Maalesef program yazmak çok hızlı bir iş gibi düşünülüyor, oysa değil. Hızlı yazdığınız zaman da Application.ProcessMessages veya yukarıdaki gibi bekleme kodları yazmak gerekebiliyor (Ben Muharrem Bey'in yazdığına benzer kodlar yazıyordum, ama bu yenisi diğerinden daha iyi  ). 

İyi çalışmalar