Einzelnen Beitrag anzeigen

spiderb

Registriert seit: 18. Jul 2007
17 Beiträge
 
#7

Re: Problem mit Tcp/Ip Verbindung zwischen Delphi und Blitz3

  Alt 28. Feb 2008, 18:44
Code:
Global strmGame=OpenTCPStream("127.0.0.1",8080)
Global x = 0
Global b = 42

Global spielen = True

If strmGame<>0 Then
Print "Client Connected successfully."
Else
Print "Server failed to connect."
WaitKey
End
End If


Repeat


send()

Until KeyHit(1)




Function send()
If spielen = True
For i = 1 To b
WriteString strmGame,"hallo"
 

x = x + 1


If x > 42
b = -1 
End If




Print "Message" + x
Delay 1500
Next
End If

If b < 0
WriteString strmGame,"Restzüge : " + (42 - x)
WriteString strmGame,"---"
WriteString strmGame,"-Ende-"
CloseTCPStream strStream
Print "Disconnection successfully."
Delay 60000
End If

End Function
so in etwa sieht das bei blitz aus
wie kann ich denn die denn einzelnd auslesen? ich hab leider kaum Ahnung in dem bereich

Muss ich eigentlich noch irgendwie einen IOHandler erstellen?

mfg
  Mit Zitat antworten Zitat