[TCP]Clients empfangen nichts

[FacePalmMan]

Wie schon im Titel gesagt, empfangen die Clients nichts.

Server anschalten (da die Clients Client&Server sind): Funktioniert fehlerfrei
Eine Connection accepten: Funktioniert auch fehlerfrei
Text senden: Funktioniert laut return-&errorwerten auch fehlerfrei.
Text empfangen: Funktioniert nicht

Ich würde gerne wissen was ich falsch gemacht habe, und wie ich das wieder beheben kann.

Source:

 Spoiler

$IPB=InputBox("ChooseIp",@IPAddress1&@CRLF&@IPAddress2&@CRLF&@IPAddress3&@CRLF&@IPAddress4)
$GUI=GUICreate("Chat "&$IPB,500,700,0,0)
$Edit=GUICtrlCreateEdit("",0,0,450,650)
$Button=GUICtrlCreateButton("Send",0,650,50,50)
$Input=GUICtrlCreateInput("",50,650,400)
$List=GUICtrlCreateList("",450,0,50,650)
$Button2=GUICtrlCreateButton("Connect",450,650,50,50)
GUISetState()
TCPStartup()
;$Server=TCPListen($IPB,80)
$Server=TCPListen(@IPAddress1,80)
$Connected=False
While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $Button
			$Send=TCPSend(GUICtrlRead($List),GUICtrlRead($Input))
			MsgBox(0,"",$Send&@CRLF&@error)
			GUICtrlSetData($Input,"")
		Case $Button2
			$IPB=InputBox("Connect","Please enter Target IP")
			$Connected=TCPConnect($IPB,80)
			If $Connected=-1 Or @error Then
				MsgBox(0,"Error","Connection not Successful")
				$Connected=False
			Else
				GUICtrlSetData($List,$Connected)
			EndIf
	EndSwitch
	$Recv=TCPRecv($Server,2048)
	If $Recv <> "" Then
		MsgBox(0,"Recieved",$Recv)
		GUICtrlSetData($Edit,GUICtrlRead($Edit)&$Recv&@CRLF)
	EndIf
	$Acc=TCPAccept($Server)
	If $Acc<>-1 Then
		GUICtrlSetData($List,$Acc)
	EndIf
WEnd

[YatoDev]

Do
	$recieve = BinaryToString(TCPRecv($Socket, $Len, 1))
	If $recieve = "" Then
		$go = 1
	Else
		$go = 0
	EndIf
Until $go = 0

versuchs mal so zu recieven und guck mal ob der port von dir überhaupt geht

[lolkop]

Originally Posted by FacePalmMan

Wie schon im Titel gesagt, empfangen die Clients nichts.

Server anschalten (da die Clients Client&Server sind): Funktioniert fehlerfrei
Eine Connection accepten: Funktioniert auch fehlerfrei
Text senden: Funktioniert laut return-&errorwerten auch fehlerfrei.
Text empfangen: Funktioniert nicht

Ich würde gerne wissen was ich falsch gemacht habe, und wie ich das wieder beheben kann.

Source:

 Spoiler

$IPB=InputBox("ChooseIp",@IPAddress1&@CRLF&@IPAddress2&@CRLF&@IPAddress3&@CRLF&@IPAddress4)
$GUI=GUICreate("Chat "&$IPB,500,700,0,0)
$Edit=GUICtrlCreateEdit("",0,0,450,650)
$Button=GUICtrlCreateButton("Send",0,650,50,50)
$Input=GUICtrlCreateInput("",50,650,400)
$List=GUICtrlCreateList("",450,0,50,650)
$Button2=GUICtrlCreateButton("Connect",450,650,50,50)
GUISetState()
TCPStartup()
;$Server=TCPListen($IPB,80)
$Server=TCPListen(@IPAddress1,80)
$Connected=False
While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $Button
			$Send=TCPSend(GUICtrlRead($List),GUICtrlRead($Input))
			MsgBox(0,"",$Send&@CRLF&@error)
			GUICtrlSetData($Input,"")
		Case $Button2
			$IPB=InputBox("Connect","Please enter Target IP")
			$Connected=TCPConnect($IPB,80)
			If $Connected=-1 Or @error Then
				MsgBox(0,"Error","Connection not Successful")
				$Connected=False
			Else
				GUICtrlSetData($List,$Connected)
			EndIf
	EndSwitch
	$Recv=TCPRecv($Server,2048)
	If $Recv <> "" Then
		MsgBox(0,"Recieved",$Recv)
		GUICtrlSetData($Edit,GUICtrlRead($Edit)&$Recv&@CRLF)
	EndIf
	$Acc=TCPAccept($Server)
	If $Acc<>-1 Then
		GUICtrlSetData($List,$Acc)
	EndIf
WEnd

das system an sich macht keinen sinn... recv wird nur auf $Server angewendet ($Server ist nichtmal die hergestellte verbindung, sondern der listen socket...). sobald über connect eine verbindung hergestellt wird, wird dementsprechend nichts empfangen.

ausserdem weis dein programm zu keines zeitpunkt, ob es gerade client oder server ist und kann dementsprechend auch auf keinen der beiden zustände korrekt reagieren.

[butter123]

sind die ports am pc und router frei? aber sonst hätte verbindung herstellen wohl nciht geklappt

[alpines]

Bevor du versuchst deinen Clienten online zu bekommen (local) versuch doch erstmal per localhost auf dich selber zu connecten.
Was FlutterShy empfohlen hat ist nicht ganz richtig, TCPRecv returned keine Binary-Daten sondern Strings.
Versuch bevor du es sofort mit mehreren IPs und GUIs verknüpfst die Verbindung ohne alles zum Laufen zu kriegen, danach kannst du Schritt für Schritt voranschreiten.

[FacePalmMan]

lolkop hat recht.
es liegt nicht an geschlossenen ports (und das script was fluttershy geschrieben hat ist einfach nur sinnlos, da ich schon in einer while recieve und abfrage) sondern daran, dass ich am listen server lausche und nicht an den verbindungen der clients.

[YatoDev]

Originally Posted by alpines

Bevor du versuchst deinen Clienten online zu bekommen (local) versuch doch erstmal per localhost auf dich selber zu connecten.
Was FlutterShy empfohlen hat ist nicht ganz richtig, TCPRecv returned keine Binary-Daten sondern Strings.
Versuch bevor du es sofort mit mehreren IPs und GUIs verknüpfst die Verbindung ohne alles zum Laufen zu kriegen, danach kannst du Schritt für Schritt voranschreiten.

Das ist 100 % richtig und der befehl returned binary

ich hatte mir das script nicht wirklich angeschaut und hab gedacht vielleicht wird nicht richtig recieved da hab ich mir gedacht schreibste mal eisn was funktioniert aus meiner tcp udf heraus aber nein ist ja nicht gut genug fuer euch

[alpines]

Versuch es doch selber mal, TCPRecv returned keine Binary()-Daten sondern Strings.

[YatoDev]

Originally Posted by alpines

Versuch es doch selber mal, TCPRecv returned keine Binary()-Daten sondern Strings.

Hmmm doch ! Wenn dus danach trotzdem noch behauptest wirds arm

[SpieleHacksInfo]

FlutterShy hat recht.

[alpines]

Ich hab aber auch recht, da steht binary/string.

[SpieleHacksInfo]

Kommt auf das gesetzte Flag an.

[alpines]

Ich glaub das sind mittlerweile Kleinigkeiten, bei Flag 1 wird ja Binary erzwungen und ansonsten wird zwischen Binary/String entschieden, das ist meistens sowieso Binary.

[FacePalmMan]

1. ich habe bis jetzt noch NIE binary über tcp empfangen. es war immer eine string. nur wenn null-characters in der nachricht enthalten sind (was extrem selten ist), wird binary returned. also hat fluttershy nur selten recht
2. mein problem ist schon gelöst. hier kann also geschlossen werden.

[YatoDev]

Originally Posted by alpines

Ich hab aber auch recht, da steht binary/string.

brauchst dich jetzt nicht rausreden immer wieder diese besserwisser . du hast meinen code schnipsel bemängelt also shut up

Originally Posted by FacePalmMan

1. ich habe bis jetzt noch NIE binary über tcp empfangen. es war immer eine string. nur wenn null-characters in der nachricht enthalten sind (was extrem selten ist), wird binary returned. also hat fluttershy nur selten recht

NEIN !!