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)