das funktioniert auch!
Code: Alles auswählen
InitNetwork()
Port = 6832
Buffer = AllocateMemory(1000)
CreateNetworkServer(Port)
OpenConsole()
Repeat
Result = NetworkServerEvent()
If result=1
PrintN ("Neuer Client")
EndIf
If result=2
ClientID = NetworkClientID()
PrintN ("LESEN")
ReceiveNetworkData(ClientID , Buffer, 1000)
PrintN (PeekS(Buffer))
EndIf
If result=4
PrintN ("Verlassen")
EndIf
ForEver
CloseConsole()
der ist so aus dem beispiel von pb übernommen worden!
Code: Alles auswählen
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
Port = 6832
ConnectionID = OpenNetworkConnection("127.0.0.1", Port)
If ConnectionID
MessageRequester("PureBasic - Client", "Client connected to server...", 0)
SendNetworkString(ConnectionID, "An hello from a client !!! :-)")
MessageRequester("PureBasic - Client", "A string has been sent to the server, please check it before quit...", 0)
CloseNetworkConnection(ConnectionID)
Else
MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf
End
wie soll ichs beschreiben..... ah, sagen wir mein server prog ist am laufen!
und einer von euch startet den client, dann bekomme ich keine resulnanz, das leigt daran das ich nicht weiss wie ich das internet miteinbeziehen muss, kann mir dabei jemand helfen?
ich hoffe ich habe mich deutlich genug ausgedrückt. Danke für alles und jede antwort im vorraus...!