text

Search

You can find the results of your search below.

Fulltext results:

Threaded ServerSocket
18 Hits, Last modified:
Execute; Var Data: Array[0..1023] Of char; RecText: String; SocketStream: TWinSocketStream; Begin ... hen close the connection ClientSocket.SendText('Timeout on Server'+#13#10); //Wait a little time to allow sending of text before disconnect sleep(1); Clien... ket.Close; Terminate; End; RecText := Data; If Length(RecText) > 2 Then