A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
In the main-thread I have a procedure "AppMessage" (Application.Onmessage := "AppMessage". During the 30 seconds (sleep) this procedure is never called. I think I didn't understand something with threading??
TPdaSyncThread = class(TThread) private procedure doProcess; protected procedure Execute; override; public constructor Create(... myParams); end; constructor TPdaSyncThread.Create(... myParams); begin FreeOnTerminate := True; inherited Create(False); .... end; procedure TPdaSyncThread.doProcess; begin Sleep(30000); //just to "simulate" calling the function that will return after a timeout end; procedure TPdaSyncThread.Execute; begin while not Terminated do begin Synchronize(self,doProcess); end; end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.