tcp mit server client geht nicht richtig ?!?!?!?!

Übersicht

BlitzBasic

Allgemein

	cyby Betreff: tcp mit server client geht nicht richtig ?!?!?!?!	Mi, Mai 12, 2004 17:37 Antworten mit Zitat
hi, ich habe das Beispiel von der BB Hilfe etwas umgeschrieben damit der client immer text sendet und der server das alles empfängt! leider kann man nur einmal text senden und beim weiterem senden kommt nix an..... server Code: [AUSKLAPPEN] [EINKLAPPEN] svrGame=CreateTCPServer(8080) If svrGame<>0 Then Print "Server erfolgreich gestartet" Else Print "Server konnte nicht gestartet werden" End End If While Not KeyHit(1) strStream=AcceptTCPStream(svrGame) If strStream Then Print ReadString$(strStream) Else Print "Keine Daten mehr..." Delay 1000 EndIf Wend CloseTCPServer svrGame End client Code: [AUSKLAPPEN] [EINKLAPPEN] strmGame=OpenTCPStream("127.0.0.1",8080) If strmGame<>0 Then Print "Client erfolgreich verbunden" Else Print "Konnte keine Verbindung herstellen" WaitKey End End If While Not KeyHit(1) WriteString strmGame,"Dieser Text wird übermittelt..." Print "Daten gesendet..." Delay 1000 Wend CloseTCPStream strmGame End Danke sehr für Hilfe ! cu cyby

cyby

Betreff: tcp mit server client geht nicht richtig ?!?!?!?!

Mi, Mai 12, 2004 17:37
Antworten mit Zitat

hi,

ich habe das Beispiel von der BB Hilfe etwas umgeschrieben damit der client immer text sendet und der server das alles empfängt! leider kann man nur einmal text senden und beim weiterem senden kommt nix an.....
server
Code: [AUSKLAPPEN]

svrGame=CreateTCPServer(8080)
If svrGame<>0 Then
Print "Server erfolgreich gestartet"
Else
Print "Server konnte nicht gestartet werden"
End
End If
While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then
Print ReadString$(strStream)
Else
Print "Keine Daten mehr..."
Delay 1000
EndIf
Wend
CloseTCPServer svrGame
End

client
Code: [AUSKLAPPEN]

strmGame=OpenTCPStream("127.0.0.1",8080)
If strmGame<>0 Then
Print "Client erfolgreich verbunden"
Else
Print "Konnte keine Verbindung herstellen"
WaitKey
End
End If
While Not KeyHit(1)
WriteString strmGame,"Dieser Text wird übermittelt..."
Print "Daten gesendet..."
Delay 1000
Wend
CloseTCPStream strmGame
End

Danke sehr für Hilfe !

cu
cyby