text

Search

You can find the results of your search below.

Fulltext results:

Threaded ServerSocket
6 Hits, Last modified:
//Wait a little time to allow sending of text before disconnect sleep(1); Clien... ); Begin ServerSocket.Port := StrToInt(PortEdit.Text); End; Procedure TForm1.ActiveItemClick(Sender: ... Thread: TServerClientThread); Begin ThreadCount.Text := IntToStr(StrToInt(ThreadCount.Text) - 1); End; Procedure TForm1.ServerSocketThreadStart(Sender: TOb