Anfängerfragen zu Threads (TThread)

**Aviator**

Hallo Dalai,

das sieht doch soweit ganz gut aus. Eine Sache die mir noch aufgefallen ist wäre folgende (das ist aber schon meckern auf ganz hohem Niveau):

Du durchläufst deine Execute Methode und feuerst zum Schluss das OnPingDone Event. Du rufst aber zuerst Synchronize auf und prüfst dann, ob das Event überhaupt abonniert wurde. Somit wartet der Thread zuerst, ob er sich mit dem Main Thread Synchronisieren kann. Und das kann Zeit kosten. Ich würde es umgekehrt machen. Das spart zwar nur ein paar Nano-/Milisekunden, aber wenn du dem Thread jetzt die Aufgaben geben würdest in einer Schleife mehrere Hosts abzufrühstücken, dann würde sich das u.U. bemerkbar machen.

Also könntest du aus deinem Code

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TPingThread.Execute;

begin

  if Assigned(FClient) then

    ReturnValue:= Integer(FClient.IsAlive);

  if NOT Terminated then

    Synchronize(CallOnPingDone);

end;

procedure TPingThread.CallOnPingDone;

begin

  if Assigned(FOnPingDone) then

    FOnPingDone(Self);

end;

folgenden Code machen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TPingThread.CallOnPingDone;

begin

  if Assigned(FOnPingDone) then

    FOnPingDone(Self);

end;

procedure TPingThread.Execute;

begin

  if Assigned(FClient) then

    ReturnValue:= Integer(FClient.IsAlive);

  if NOT Terminated then begin

    if Assigned(FOnPingDone) then begin

      Synchronize(CallOnPingDone);

    end;

  end;

end;

Oder gleich mit einer anonymen Methode das Synchronize aufrufen. Dann sparst du dir auch noch die Deklaration der CallOnPingDone Methode.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TPingThread.Execute;

begin

  if Assigned(FClient) then

    ReturnValue:= Integer(FClient.IsAlive);

  if NOT Terminated then begin

    if Assigned(FOnPingDone) then begin

      Synchronize

      (

        procedure

        begin

          FOnPingDone(Self);

        end;

      );

    end;

  end;

end;

EDIT: Die Methode sind jetzt nur im Editor runtergetippt, sollten aber hoffentlich fehlerfrei sein. So viel habe ich jetzt ja auch nicht geändert.

Anfängerfragen zu Threads (TThread)

AW: Anfängerfragen zu Threads (TThread)

Forumregeln