IdTCPServer - OnExecution und GUI Zugriffe

[Harry M.]

Delphi-Quellcode:

procedure TForm1.myProc;
begin
  ///..
end;

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

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;