Ik ben een windows service met een thread erin.
Sinds enige tijd is TTread.resume en TThread.suspend depreciated. Daarvoor moet je gebruik maken van start en stop.
Delphi Code:
procedure TMailservice.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
fMail.start;
Continued := True;
end;
procedure TMailservice.ServicePause(Sender: TService; var Paused: Boolean);
begin
fMail.terminate;
Paused := True;
end;
Dit bovenstaande gaat bij een continue niet werken. Dan moet ik toch opnieuw een start uitvoeren van de thread?
Delphi Code:
procedure TMailservice.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
fMail := TMailthread.Create(false);
fMail.start;
end;
var Continued: Boolean heeft dan toch geen functie meer
Bookmarks