IdTCPServer - OnExecution und GUI Zugriffe

[littleDave]

Zitat von Harry M.:

oder

Delphi-Quellcode:

uses
SyncObjs;

var
  CS: TCriticalSection;

procedure TForm1.myProc;
begin
  CS.Enter;

  //...

  CS.Leave;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  myProc;
end;

Das ist nicht immer korrekt!!! Wenn man jetzt in myProc auf Label1.Caption zugreift, kann es trotzdem krachen. Sagen wir ich habe einen Timer, der jede Millisekunde die Caption von Label1 ausließt. Jetzt kommt myProc daher und ändert Label1.Caption. Jetzt wird der Hauptthread (mit dem Timer) aber von der CriticalSection nicht angehalten, wodurch zwei Methoden gleichzeitig auf ein Objekt zugreifen könnten. Es muss ja nichtmal nen Timer sein, es kann ja auch einfach nur die Paint-Methode sein, falls das Fenster gerade nicht sichtbar war.

Sobald man auf die VCL zugreift, muss man in 99,8% aller Fälle Synchronize() verwenden.

Zudem ist es wirklich nur zu empfehlen, die Critical-Section mit einem try-finally-Block zu versehen:

Delphi-Quellcode:

procedure TForm1.myProc;
begin
  CS.Enter;
  try
    //...
  finally
    CS.Leave;
  end;
end;

Sonst kann es zu Dead-Locks kommen (mehrere Threads warten gleichzeitig auf einen anderen Thread)