و در client به این شکل کار میکنی :
TClientHandleThread = Class(TThread) //Class Thread
Private
Transfer : TDataTransform;
Procedure HandleInput; //Input of Transfer data
Protected
Procedure Execute; Override; //Excute the client
End;
و نوع تعریفش :
ClientHandleThread : TClientHandleThread; // variable (type see above)
و برای ردگیری :
{ TClientHandleThread }
procedure TClientHandleThread.Execute;
begin
While Not Terminated Do
Begin
IF Not Client.Connected Then
Terminate
Else
Try
Client.ReadBuffer(Transfer, SizeOf (Transfer));
Synchronize(HandleInput);
Except
End;
End;
end;
و برای دستورات :
procedure TClientHandleThread.HandleInput;
Var
Commands : Char;
begin
Commands := Transfer.Command[1];
Case Commands OF
'@' : //Check for password and other
Begin
IF Trim(Transfer.Text) = 'False' Then
Disconnecting(True,False); //job for disconnect
End;
End;