TCP geht nicht richtig :(

Übersicht

BlitzBasic

Allgemein

	cyby Betreff: TCP geht nicht richtig :(	Mi, Jun 02, 2004 16:19 Antworten mit Zitat
hi, wenn man den server laufen hat und dann den Client , dann wird nur der 1te Text geschickt/empfangen und nicht mehr der 2te ! weis wer warum das so ist ? server: Code: [AUSKLAPPEN] [EINKLAPPEN] svrGame=CreateTCPServer(7889) If svrGame<>0 Then Print "Server erfolgreich gestartet" Else Print "Server konnte nicht gestartet werden" End End If Print "Wartet auf Daten...." While Not KeyHit(1) strStream=AcceptTCPStream(svrGame) If strStream Then Print ReadString$(strStream) End If Wend CloseTCPServer svrGame End client: Code: [AUSKLAPPEN] [EINKLAPPEN] strmGame=OpenTCPStream("127.0.0.1",7889) If strmGame<>0 Then Print "Client erfolgreich verbunden" Else Print "Konnte keine Verbindung herstellen" WaitKey End End If WriteString strmGame,"Dieser Text wird übermittelt...1" WriteString strmGame,"Dieser Text wird übermittelt...2" CloseTCPStream strmGame End Danke für eine Antwort .... MfG cyby

cyby

Betreff: TCP geht nicht richtig :(

Mi, Jun 02, 2004 16:19
Antworten mit Zitat

hi,

wenn man den server laufen hat und dann den Client , dann wird nur der 1te Text geschickt/empfangen und nicht mehr der 2te ! weis wer warum das so ist ?
server:
Code: [AUSKLAPPEN]

svrGame=CreateTCPServer(7889)
If svrGame<>0 Then
Print "Server erfolgreich gestartet"
Else
Print "Server konnte nicht gestartet werden"
End
End If
Print "Wartet auf Daten...."
While Not KeyHit(1)

strStream=AcceptTCPStream(svrGame)
If strStream Then
Print ReadString$(strStream)
End If

Wend
CloseTCPServer svrGame
End

client:
Code: [AUSKLAPPEN]

strmGame=OpenTCPStream("127.0.0.1",7889)
If strmGame<>0 Then
Print "Client erfolgreich verbunden"
Else
Print "Konnte keine Verbindung herstellen"
WaitKey
End
End If
WriteString strmGame,"Dieser Text wird übermittelt...1"
WriteString strmGame,"Dieser Text wird übermittelt...2"
CloseTCPStream strmGame
End

Danke für eine Antwort ....

MfG
cyby Very Happy

	regaa	Mi, Jun 02, 2004 16:41 Antworten mit Zitat
weil accepttcpstream nur einmalig ein handle zurückliefert, du müsstest also dieses zwischenspeichern.
UltraMixer Professional 3 - Download QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

regaa

Mi, Jun 02, 2004 16:41
Antworten mit Zitat

weil accepttcpstream nur einmalig ein handle zurückliefert, du müsstest also dieses zwischenspeichern.

UltraMixer Professional 3 - Download
QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

	TOONY	Fr, Okt 22, 2004 1:00 Antworten mit Zitat
so gehts: Code: [AUSKLAPPEN] [EINKLAPPEN] sende ("Dieser Text wird übermittelt...1") sende ("Dieser Text wird übermittelt...2") end function sende(text$) strmGame=OpenTCPStream("127.0.0.1",7889) If strmGame<>0 Then Print "Client erfolgreich verbunden" Else Print "Konnte keine Verbindung herstellen" WaitKey End End If WriteString strmGame,text$ CloseTCPStream strmGame end function

TOONY

Fr, Okt 22, 2004 1:00
Antworten mit Zitat

so gehts:

Code: [AUSKLAPPEN]

sende ("Dieser Text wird übermittelt...1")
sende ("Dieser Text wird übermittelt...2")
end

function sende(text$)
strmGame=OpenTCPStream("127.0.0.1",7889)
If strmGame<>0 Then
Print "Client erfolgreich verbunden"
Else
Print "Konnte keine Verbindung herstellen"
WaitKey
End
End If
WriteString strmGame,text$
CloseTCPStream strmGame
end function