Daten vom Server zum Clienten und auf Antwort warten ?
Verfasst: 29.02.2012 15:42
Hier habe ich ein Server, der kontakt zum Clienten hat.
Es funktioniert, Verbindung ist hergestellt.
ZUSI > SRV 00 01 01 01 04 5A 75 73 69 : Wie kann ich unten diese Daten jetzt vom Zusi-Programm empfangen
SRV > ZUSI 00 03 00 0A 01 02 03 : Wie schicke ich jetzt unten diese Daten zum Zusi.Programm(Client).
Danke.
Gruss
Es funktioniert, Verbindung ist hergestellt.
ZUSI > SRV 00 01 01 01 04 5A 75 73 69 : Wie kann ich unten diese Daten jetzt vom Zusi-Programm empfangen
SRV > ZUSI 00 03 00 0A 01 02 03 : Wie schicke ich jetzt unten diese Daten zum Zusi.Programm(Client).
Danke.
Gruss
Code: Alles auswählen
;Server
EnableExplicit
Define Event.i, Quit.i
InitNetwork()
OpenConsole()
If CreateNetworkServer(0,1435,#PB_Network_TCP)
PrintN("Server Erstellt. Port: 1435")
Repeat
Event = NetworkServerEvent()
Select Event
Case 1
PrintN("Client verbunden. ID: " + Str(EventClient()))
Case 4
PrintN("Client getrennt. ID: " + Str(EventClient()))
EndSelect
Delay(10)
ForEver
CloseConsole()
EndIf