frage zu tcp kommunikation

[Mr.Netwolf]

hi =)
ich wollte fragen ob sich jemand damit auskennt und weiß ob diese struktur funktionieren würde :
links der Empfänger rechts der Sender.
also die hauptfrage ist eigentlich ob ich den socket wieder schließen muss nach jedem Empfang und dann wieder neu öffnen oder ob ich mehrfach daten verschicken kann und den socket erst schließe wenn keine daten mehr verschickt werden sollen.

tcpstartup()
tcplisten()

tcpaccept() <-------------------------tcpconnect()

loop
tcprecv()<------------------------------tcpsend()
until "whatever " or tcpaccept = -1
tcpclosesocket(tcpaccept())
tcpclosesocket(tcplisten())

tcpshutdown()

[alpines]

Nein, du musst den Socket nicht jedes mal schließen außer es ist so im Protokoll verankert.
Bei einem HTTP Packets wäre

Connection: close

im Header die Anordnung den Socket zu schließen, wenn aber

Connection: keep-alive

vorhanden ist, dann wird der Socket nicht geschlossen.

Btw, dein Sender braucht ebenfalls TCPStartup() sowie TCPShutdown().

[Mr.Netwolf]

Empfänger

; TCP
TCPStartup()
$ip = "192.168.178.35"
$port = 3333
$listen = TCPListen($ip, $port)
$accept = TCPAccept($listen)
$recv = TCPRecv($accept, 1024)

while 1

				If $listen <> -1 Then
					If $accept <> -1 Then
						;ToolTip($accept & " has conncected")
						$recv = TCPRecv($accept, 1024)
						;If @error Then;connection lost
						;	ToolTip("lost connection between " & $accept)
						;EndIf
						If $recv <> "" Then;if received something
							ToolTip("received this: '" & int($recv) & "'")
							$FHP = int($recv) ; umwandlung hex zu int

						EndIf
					Else
						$accept = TCPAccept($listen)
					EndIf

				Else
					$listen = TCPListen($ip, $port)

				EndIf
WEnd

Sender ( zu $HP -> isn Float - Wert der aus nem client ausgelesen wird und an den empfänger weiter gegeben werden soll )

; TCP
TCPStartup()
$ip = "192.168.178.35"
$port = 3333
$connect = TCPConnect($ip, $port)
$tcptimer = timerinit()

while 1
					If $connect <> -1 Then
						if TimerDiff($tcptimer) > 1000 Then
						; Umwandlung von float zu int  über string
						$HP = String($HP)
						$HP = Int($HP)
						$send = TCPSend($connect,$HP)
						$tcptimer = timerinit()
						EndIf
					Else
						$connect = TCPConnect($ip, $port)
					EndIf
WEnd

das funktioniert soweit eigentlich ganz gut. Das Streamen läuft.
Problematisch wirds halt blos, wenn einer der Beiden kurzzeitig abschmiert.
für den Fall müssen die Sockets dann halt doch erneuert werden.

Nur irgendwie hab ich es noch nicht hinbekommen, dass der eine client mitbekommt, wenn der andere client nicht mehr läuft o_O

eine kleine Feinheit, die ich durch den tcptimer erstmal geregelt hab ist, dass wenn der Sender zu schnell schickt, es so ne art Stau gibt
und dann anstatt "ABC" "ABC" "ABC" eben "ABCABCABC" ankommt.

[butter123]

für sowas wird häufig etwas vom server bspw "ping" gesendet und der client hat darauf in einer gewissen zeit mit "pong" zu reagieren. kommt keine antwort, weiß der server, dass etwas schief gelaufen ist.
und für das ababacbcbacbacb, mach nach jedem befehl ein ; oder ein anderes trennzeichen, was nicht anderweitig vorkommt. dann einmal stringsplit und fertig^^