كيف نقوم بالمزامنة بين وظائف indy و VCL

[abdelmalek]

السلام عليكم ورحمة الله وبركاته

كما نعرف ان server indy يستعمل تقنية multithreading ؟

كيف نقوم بالمزامنة في هاته الحالة بين وظائف indy و VCL

PHP كود :

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('Connect');
end;
procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('Disconnect');
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('execute');
end; 


بارك الله فيكم وجزاكم خيرا

بالتوفيق للجميع