- procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
- begin
- CriticalSection.Enter;
- try
- Parse(AThread.Connection.ReadLn);
- finally
- CriticalSection.Leave;
- end;
- end;
Indy Tcp ThreadsModerator: DGL-Team
|