Einzelnen Beitrag anzeigen

FAM

Registriert seit: 22. Dez 2014
47 Beiträge
 
Delphi XE Enterprise
 
#1

Thread restart

  Alt 19. Feb 2015, 10:08
Delphi-Version: 5
Hallo Zusammen,

ich würde gerne eine Thread (unter bestimmten Bedingungen) restarten

Delphi-Quellcode:

  ThreadHandle: TThread;

function RestartThread(const RefID: Integer; const Hostname: AnsiString;
  Callback: TPingCallback): Boolean;
begin
    if Assigned(ThreadHandle) then
    begin
      ThreadHandle.Terminate;
    end;
  ThreadHandle := TRedundancyHostThread.Create(RefID, Hostname,
    Callback, Timeout);
end
das scheint mir aber nicht wirklich gut zu sein, hat jemand eine andere Idee?
  Mit Zitat antworten Zitat