(03-05-2018, Saat: 01:14)hyperxman Adlı Kullanıcıdan Alıntı: @Bahadir.Alkac üstat cevap için çok teşekkürler ve ayrıca ders niteliğinde ki sorunuz için ayrıca @Tuğrul HELVACI üstadıma da teşekkürlerimi sunuyorum. Bu genç yaşımda hemen hemen kimsenin pek fazla dikkat etmediği birşeyi öğrendim.

NOT: Hocam sitenizde sanırsam SEO hatası var aramalarda problem yaşıyorum şahsen. Google list üzerinden gözükmüyor(Tuğrul Helvacı yazdığımda çıkıyorda misal dün google veritabanında MsgWaitFor... ile geçen tüm kelimeleri araştırdım ama sizin makaleyi bulamadım.)


Saygılarımla.

(03-05-2018, Saat: 08:15)DelphiCan Adlı Kullanıcıdan Alıntı:

(03-05-2018, Saat: 01:14)hyperxman Adlı Kullanıcıdan Alıntı: @Bahadir.Alkac üstat cevap için çok teşekkürler ve ayrıca ders niteliğinde ki sorunuz için ayrıca @Tuğrul HELVACI üstadıma da teşekkürlerimi sunuyorum. Bu genç yaşımda hemen hemen kimsenin pek fazla dikkat etmediği birşeyi öğrendim.

NOT: Hocam sitenizde sanırsam SEO hatası var aramalarda problem yaşıyorum şahsen. Google list üzerinden gözükmüyor(Tuğrul Helvacı yazdığımda çıkıyorda misal dün google veritabanında MsgWaitFor... ile geçen tüm kelimeleri araştırdım ama sizin makaleyi bulamadım.)


Saygılarımla.

Merhaba,
SEO hatası olduğunu sanmıyorum.



Sanırım bu fonksiyonun (arama sözcüğünün) popüler olmasından kaynaklı bir durum.
Aynı tarihte açılan farklı bir konumuz (Curl - Sendinblue Mail Gönderme) Google aramalarında ilk sırada (İlk iki sıra dikkat ederseniz Reklam olarak gösteriliyor) çıkıyor.





Hatta bir sık kullanılan Türkçe, 2 yabancı global terimde (.pas ve form .fmx) bile indeximiz çok iyi görünüyor.

(03-05-2018, Saat: 09:31)hyperxman Adlı Kullanıcıdan Alıntı:

(03-05-2018, Saat: 08:15)DelphiCan Adlı Kullanıcıdan Alıntı: Merhaba,
SEO hatası olduğunu sanmıyorum.



Sanırım bu fonksiyonun (arama sözcüğünün) popüler olmasından kaynaklı bir durum.
Aynı tarihte açılan farklı bir konumuz (Curl - Sendinblue Mail Gönderme) Google aramalarında ilk sırada (İlk iki sıra dikkat ederseniz Reklam olarak gösteriliyor) çıkıyor.





Hatta bir sık kullanılan Türkçe, 2 yabancı global terimde (.pas ve form .fmx) bile indeximiz çok iyi görünüyor.

Üstat ben Tuğrul hocanın sitesinden bahsediyorum. DelphiCan''a sıkıntı yok ya

(02-05-2018, Saat: 23:32)Bahadir.Alkac Adlı Kullanıcıdan Alıntı:

(02-05-2018, Saat: 22:20)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: İyi akşamlar. Öncelikle kıymetli bilgilerinizi paylaştığınız için teşekkür ederim. Belirtmek isterim ki, ben bir çözüm aramıyorum. Amacım, önemli gördüğüm bu husus hakkında bir bilinç oluşmasını sağlamaya çalışmaktı.

Müsaadeniz ile yazdıklarınızın bir kısmına iştirak etmediğimi belirtmek isterim. "Sonsuza dek bekleme olmaz !" demişsiniz. INFINITE sonsuzluk anlamına gelse de sizin de bileceğiniz gibi esasen 49.7 güne tekabül eder. Bazen bir thread, başka thread'lerin işlerini tamamlamalarını beklemek durumunda kalır.Sırası ile yapılması gereken işler olabilir. Ya da bu tarz senaryolar çoğaltılabilir. Bu durumda, yapılacak işlerin ne kadar süreceği bilinmiyor ise INFINITE ile beklemekten başka bir çare yoktur.

 Elbette işlerin bitmesini beklemenin başka yolları da vardır. Örneğin pencereler arası mesajlaşma API'leri (PostMessage, SendMessage vb.) ya da callback mekanizmaları gibi. Ancak, bahse konu kernel senkronizasyon nesnelerinin beklenmesi son derece yaygın bir uygulama alanına sahiptir ve bunun sisteme de faydası olduğu yadsınamaz bir gerçektir. (Bir thread nonsignaled (işaretli olmayan) kernel nesnelerinden birisini beklemeye başladığında aslında işletim sistemi ilgili thread'i pause eder ve başka thread'leri işletmeye devam eder.)

Bu bağlamda, bu tarz bir beklemenin "tasarım hatası" ile ilişkilendirilmesini pek kabul edemiyorum.

Application.ProcessMessages çağrımına neden gıcık olduğunuzu, ona neden bu denli temkinli yaklaştığınızı bilmiyorum ama; Application.ProcessMessages altında yatan API'ler (GetMessage, TranslateMessage, DispatchMessage) olmadan Windows ortamında bir uygulamadan bahsedilemeyeceğini siz de benim kadar bilirsiniz.

Aslında kafayı fazla karıştırmaya gerek yok. Genel geçer çok önemli bir kural var Windows işletim sisteminde programlamada. "Pencere create etmiş her bir thread, ilgili pencerenin mesaj kuyruğunu tüketmelidir".

Bunun istisnası yoktur. Aksi durumda, beklenmedik durumlar (genellikle kilitlenmeler) oluşur. Bu neden ile; ana thread haricinde oluşturduğumuz thread'lerimiz içinde, bir pencere oluşturuyor isek (Form'da bir penceredir) bu pencerenin mesaj döngüsünü kesinlikle tüketmeliyiz.

 Bu arada thread'ler içinde gizli biçimlerde pencere create eden API'ler vardır. Bunlara da dikkat etmek gerekir. (Bunların en önemlisi, CoInitialize API'sidir. Sık kullanılır). İçinde pencere oluşturan thread'lerin beklenmesi için en uygun API MsgWaitForMultipleObject/Ex API'sidir.

  Thread'ler, uygulama penceresinin mesajlarını tüketen API'leri çağırmak(Application.ProcessMessages, PeekMessage vb) aslında; paralel programlamanın gücünden istifade etmeye çalışmaktır. Yıl 2018 ve biz hâla tek çekirdekli programlar geliştiriyor isek, hatayı biraz da kendimizde aramamız gerekir. Bu nedenler ile yoğun bir şekilde, tüm arkadaşlarımı korkulan multi-thread konseptine yaklaştırmaya gayret ediyorum tüm gücümle. Ancak sebebine anlam veremediğim çok kuvvetli bir direnç ile karşılaşıyorum her daim. Kimbilir belki ben iyi anlatamıyorum, önemine vurgu yapamıyorum. Bilemiyorum.

Birden fazla thread ile çalışmaya başladığınızda uygulamalarınız bir t zamanında çok daha fazla iş yapacak demektir. Programınız bir iş yaparken aynı anda bir başka iş daha yapabilecektir. (Aslında öyle değil tabii. Windows gerçek bir multithreaded işletim sistemi değildir. Sadece simüle eder.) Bunun faydası kime olacak peki ? Elbette programınızı kullanacak kullanıcılara. Amiyane tabir ile yağ gibi akan bir programınız olacak.

 Bu konu başlığı altındaki WaitMessage API'si de çağrıldığı thread'in mesaj kuyruğuna bir mesaj ulaşana kadar bekleme işini yapar. İlgili MSDN dökümanlarını inceleyenler göreceklerdir. MsgWaitForMultipleObjects API'si gerçekten de güçlü bir API'dir ve yapabildiklerini görünce; insanın içinde "onu kullanmalıyım" düşünceni oluşturur.

Herneyse, uzunca yazarak gözlerinizi ağrıttı isem affola.

@Tuğrul HELVACI uzun açıklamalarınız için teşekkürler, ama sanırım lafı uzatmayım diye kısa kesmem bazı detayların eksik kalmasına sebep olmuş.

Mesajı yazarken arada "event-driven" programcılıktan da bahsetmiş, ama sonradan mesaj uzun olunca silmiştim  Anlayacağınız, eğer event-driven programcılıktan bahsediyorsak gerçekten de Application.ProcessMessages kötü bir metod oluyor, çünkü o zaman event değil, fonksiyon bekliyorsunuz demektir. Bunun en güzel örneği Android işletim sistemi. Event-driven programcılık sayesinde UI bile ayrı bir thread'de çalışıyor ve Google bundan kesinlikle taviz vermiyor (Android işletim sisteminde ShowModal olmamasını sebebi de bu). Application.ProcessMessages aslında ana thread'e yanlış bir sorumluluk yüklemenin getirdiği bir kaçış fonksiyonu. Event-driven programcılıkta, ana thread bir işlem yapılacağı zaman, ilgili thread'i çalıştırıyor ve kendi iç parametrelerini buna göre güncelliyor. İlgili threadden mesaj geldiği zaman (illa mesaj değil, aslında bir event tetiklendiği zaman) gerekli işlemleri yapıyor. 

Benim açımdan Application.ProcessMessages'in kabul edilebileceği iki durum var:
1. İlk mesajımda da yazdığım gibi, program yazmak hızlı yapılan bir iş değil. Ama şartlar, müşteri, patron artık herhangi bir sebepten dolayı (itiraf ediyorum, sık sık da üşenmekten) hızlı yazmak gerekiyorsa Application.ProcessMessages bir çok dertten kurtarıyor. Kod kaliteli olmuyor ama zaten hızlı yazıyoruz  
2. 3. parti API, SDK, kütüphane kullanıyorsanız işler sizin planladığınız gibi gitmeyebiliyor. Örneğin eskiden Skype API'si Windows mesajları üzerine kuruluydu (hala öyle mi bilmiyorum) ve karmaşık tasarımlarda (plug-in tabanlı ve Skype'in plug-in olarak çalışması gibi) Application.ProcessMessages işi kurtarabiliyor. Burada dikkat edilmesi gereken, asıl uygulamanın Skype referans alınarak tasarlanmamış olması. Yani plug-in'lerin Windows mesajlarını kullanması beklenmedik bir durum ve ciddi bir sürpriz.

Sonuç olarak, event driven programcılık seven birisi olarak Application.ProcessMessages fonksiyonuna özel duygular beslemiş olabilirim.

İyi çalışmalar

program pDevExControlsDemo;

uses
 {$IFDEF EurekaLog}
 EMemLeaks,
 EResLeaks,
 EDialogWinAPIMSClassic,
 EDialogWinAPIEurekaLogDetailed,
 EDialogWinAPIStepsToReproduce,
 EDebugExports,
 EDebugJCL,
 EFixSafeCallException,
 EMapWin32,
 EAppVCL,
 ExceptionLog7,
 {$ENDIF EurekaLog}
 Vcl.Forms,
 uDevExControlsDemo in 'uDevExControlsDemo.pas' {Form1},
 uFindAndReplaceEx in 'uFindAndReplaceEx.pas' {frmFindAndReplaceEx},
 uTaskDialog in 'uTaskDialog.pas';

{$R *.res}

begin
 Application.Initialize;
 Application.MainFormOnTaskbar := True;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.

procedure TApplication.Run;
begin
 FRunning := True;
 try
{$IF NOT DEFINED(CLR)}
   AddExitProc(DoneApplication);
{$ENDIF}
   if FMainForm <> nil then
   begin
     case CmdShow of
       SW_SHOWMINNOACTIVE:
         begin
           FInitialMainFormState := wsMinimized;
           FMainForm.FWindowState := wsMinimized;
         end;
       SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
     end;
     if FShowMainForm then
       if (FMainForm.FWindowState = wsMinimized) or (FInitialMainFormState = wsMinimized) then
       begin
         Minimize;
         if (FInitialMainFormState = wsMinimized) then
           FMainForm.Show;
       end else
         FMainForm.Visible := True;

     // BU DÖNGÜYE DİKKAT !!!!
     repeat
       try
         HandleMessage;
       except
         HandleException(Self);
       end;
     until Terminated;

   end;
 finally
   FRunning := False;
 end;
end;

procedure TApplication.HandleMessage;
var
 Msg: TMsg;
begin
 if not ProcessMessage(Msg) then Idle(Msg);
end;

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
 Handled: Boolean;
 Unicode: Boolean;
 MsgExists: Boolean;
begin
 Result := False;
 if PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE) then
 begin
   Unicode := (Msg.hwnd = 0) or IsWindowUnicode(Msg.hwnd);
   if Unicode then
     MsgExists := PeekMessageW(Msg, 0, 0, 0, PM_REMOVE)
   else
     MsgExists := PeekMessageA(Msg, 0, 0, 0, PM_REMOVE);

   if MsgExists then
   begin
     Result := True;
     if Msg.Message <> WM_QUIT then
     begin
       Handled := False;
       if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
       if not IsPreProcessMessage(Msg) and not IsHintMsg(Msg) and
         not Handled and not IsMDIMsg(Msg) and
         not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
       begin
         TranslateMessage(Msg);
         if Unicode then
           DispatchMessageW(Msg)
         else
           DispatchMessageA(Msg);
       end;
     end
     else
     begin
 {$IF DEFINED(CLR)}
       if Assigned(FOnShutDown) then FOnShutDown(self);
       DoneApplication;
 {$ENDIF}
       FTerminate := True;
     end;
   end;
 end;
end;

(03-05-2018, Saat: 01:14)hyperxman Adlı Kullanıcıdan Alıntı: @Bahadir.Alkac üstat cevap için çok teşekkürler ve ayrıca ders niteliğinde ki sorunuz için ayrıca @Tuğrul HELVACI üstadıma da teşekkürlerimi sunuyorum. Bu genç yaşımda hemen hemen kimsenin pek fazla dikkat etmediği birşeyi öğrendim.

NOT: Hocam sitenizde sanırsam SEO hatası var aramalarda problem yaşıyorum şahsen. Google list üzerinden gözükmüyor(Tuğrul Helvacı yazdığımda çıkıyorda misal dün google veritabanında MsgWaitFor... ile geçen tüm kelimeleri araştırdım ama sizin makaleyi bulamadım.)


Saygılarımla.

(03-05-2018, Saat: 14:17)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı:

(03-05-2018, Saat: 01:14)hyperxman Adlı Kullanıcıdan Alıntı: @Bahadir.Alkac üstat cevap için çok teşekkürler ve ayrıca ders niteliğinde ki sorunuz için ayrıca @Tuğrul HELVACI üstadıma da teşekkürlerimi sunuyorum. Bu genç yaşımda hemen hemen kimsenin pek fazla dikkat etmediği birşeyi öğrendim.

NOT: Hocam sitenizde sanırsam SEO hatası var aramalarda problem yaşıyorum şahsen. Google list üzerinden gözükmüyor(Tuğrul Helvacı yazdığımda çıkıyorda misal dün google veritabanında MsgWaitFor... ile geçen tüm kelimeleri araştırdım ama sizin makaleyi bulamadım.)


Saygılarımla.

Ne gibi bir SEO hatası ? Zaten ben sitemde MsgWaitForMultipleObjects/Ex ile ilgili bir şey yazdığımı hatırlamıyorum. Belki bu nedenle bulamamış olabilirsiniz

Bu arada merak ettim: "ders niteliğinde ki sorunuz" hangisi ?

(02-05-2018, Saat: 10:55)edo Adlı Kullanıcıdan Alıntı: Ayrıca WaitForMultipleObjects metodu için şu linkte bilgi var, sanırım yazarı tanıyoruz bir yerlerden 

@Bahadir.Alkac sanırım doğru yolu buldunuz, tebrikler desem mi acaba şimdiden