Thread in Delphi - time-problem

Hi

In an application I comunicate with a mobile device. If the device is not in the dockingstation it is possible, that calling a function will respond after a timeout of i.e. 60 seconds. So my idea was to program this in a thread.
  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;

Open in new window

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??
formiAsked:
Who is Participating?
 
Geert GConnect With a Mentor Oracle dbaCommented:
procedure TPdaSyncThread.doProcess;
begin
  // ... call your AppMessage here
end;

procedure TPdaSyncThread.Execute;
begin
  while not Terminated do
  begin
    Sleep(30000);
    Synchronize(self,doProcess);
  end;
end;
0
 
Geert GOracle dbaCommented:
what is the rest of your code ?

the only thing this thread does is sleep ... every 30 seconds
0
 
MerijnBConnect With a Mentor Sr. Software EngineerCommented:
Why do you call Synchronize? that will make the sleep happen in main thread, exactly what you don't want?
0
Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

 
formiAuthor Commented:
Yes you are right. it only sleeps - as I wrote in the code's comment to simulate the long answer-time of a routine. But I think you gave me the tip: is it correct that during calling a routine with "Synchronize" no other thread gets time to execute? If "Yes" I have to call the time-consuming routines in the execute-loop and not in the synchronize-routine.
0
 
formiAuthor Commented:
Thanks you helped me both!
0
 
Geert GOracle dbaCommented:
make sure all procedures in synchronize are short
and don't update/draw anything on other forms from inside a thread

you'll have circular unit reference to start with
the code may be simple but it will difficult to follow the flow of just 1 unit
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.