Suche

Volltextergebnisse:

Threaded ServerSocket

18 Treffer, Zuletzt geändert: vor 12 Jahren

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