TCP Problem: Server unterbricht verbindung Client funkt.

Übersicht

BlitzBasic

Allgemein

	Lord_Vader Betreff: TCP Problem: Server unterbricht verbindung Client funkt.	Fr, Aug 12, 2005 10:25 Antworten mit Zitat
Hi, also bin an meinem kleinen Enigma datenaustauschtool dran und da gibts einen ungewöhnlichen fehler. Die Serverseite zeigt an, das die verbindung mit dem client nicht mehr steht. Der client aber zeigt nichts an (ist ein .exe nur so gecoded das man beides sein kann). Selbst wenn ich irgentwas an den server senden will macht der client das. Der server hat clientstream=0... Die verbindung unterbricht sofort wenn der client connected is! Frage: Damn WHY!? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function checkclient() ;Prüfen ob sich der Client verbinden will If Not(isserver) Or clientstream Then Return 1 clientstream=AcceptTCPStream(tcpstream) If clientstream Then addtext(\"-->client has connected \"+DottedIP(TCPStreamIP(clientstream))) connected=True End If Return 1 End Function Weis nicht woran das liegt. Ich teste local das heist 127.0.0.1 und 8080 port. Weis nicht ob das was ausmach aber denke doch mal nicht denn in delphi geht es prima...

Lord_Vader

Betreff: TCP Problem: Server unterbricht verbindung Client funkt.

Fr, Aug 12, 2005 10:25
Antworten mit Zitat

Hi,

also bin an meinem kleinen Enigma datenaustauschtool dran und da gibts einen ungewöhnlichen fehler.

Die Serverseite zeigt an, das die verbindung mit dem client nicht mehr steht. Der client aber zeigt nichts an (ist ein .exe nur so gecoded das man beides sein kann). Selbst wenn ich irgentwas an den server senden will macht der client das. Der server hat clientstream=0...
Die verbindung unterbricht sofort wenn der client connected is!

Frage: Damn WHY!?

BlitzBasic: [AUSKLAPPEN]


Function checkclient()

	;Prüfen ob sich der Client verbinden will
	If Not(isserver) Or clientstream Then Return 1

		clientstream=AcceptTCPStream(tcpstream)
			
		If clientstream Then 
						
			addtext(\"-->client has connected \"+DottedIP(TCPStreamIP(clientstream)))
			connected=True
			
		End If
		
		Return 1
		
End Function

Weis nicht woran das liegt. Ich teste local das heist 127.0.0.1 und 8080 port. Weis nicht ob das was ausmach aber denke doch mal nicht denn in delphi geht es prima...