[Pytanie] Jak sprawdzić czy klient się rozłączył(TCP)

[MrGregorix]

Witam.

Zrobiłem w autoicie aplikacje client-server do wysyłanie wiadomości i mam pytanie czy dało by się sprawdzić czy client dalej jest podłączony a jeżeli nie ustawia $connected na -1

 

tutaj jest kod servera:

 

 

 

 

#include <String.au3>

TCPStartup()

$mainsocket = TCPListen(@IPAddress2, 2345)

$connected = -1

While 1

if $connected = -1 Then

$connected = TCPAccept($mainsocket)

Else

$msg = TCPRecv($connected, 10000000)

if $msg <> "" Then

$lmsg = $msg

$msg = ""

$lmsg = Encrypt($lmsg)

MsgBox(0, "Odebrano", $lmsg)

EndIf

EndIf

WEnd

func Encrypt($toEncrypt)

$encrypt1 = BinaryToString($toEncrypt)

$encrypt2 = _StringEncrypt(0, $encrypt1, "123placki")

Return $encrypt2

EndFunc

 

 

 

i kod klienta

 

 

 

#include <String.au3>

TCPStartup()

$serverip = InputBox("Server ip", "Podaj ip serwera: ")

$socket = TCPConnect($serverip, 2345)

while 1

$msg = InputBox("Wyslij", "Wpisz co chcesz wysłać na serwer")

if @error = 1 Then Exit

$msg = Crypt($msg)

TCPSend($socket, $msg)

WEnd

func Crypt($toCrypt)

$crypt = _StringEncrypt(1, $toCrypt, "123placki")

$crypt2 = StringToBinary($crypt)

return $crypt2

EndFunc

 

[RobeM]

to chyba logiczne, skoro wysyłasz i ci wyraźnie pisze że ODEBRANO masz możliwość wykorzystać to co zwraca funkcja TCPAccept i TCPRecv

 

TCPRecv w przykładzie jest dokładnie to co chcesz