J'ai crée un code minimum du serveur afin d'observer son comportement. Ce serveur est actuellement en fonctionnement. Pour ce test, le serveur va renvoyer ce que le client envoie.
Vous pouvez le tester avec le code client qui se charge d'envoyer 20 lignes de données. Commenter le Delay(50) pour voir la différence.
Code : Tout sélectionner
Define.s ServerIP = "109.13.115.206"
Define.i ServerPort = 6832
Define.s Buffer
Define.i *Buffer, BufferSize = 1000
If InitNetwork() = 0
Debug "Impossible d'initialiser les ressources réseaux"
End
EndIf
;Connection avec le serveur
ConnectionID = OpenNetworkConnection(ServerIP, ServerPort, #PB_Network_TCP, 2000)
If ConnectionID
;Envoie des données test au serveur
For i = 1 To 20
*Buffer = AllocateMemory(BufferSize)
Buffer = "Données " + Str(i)
PokeS(*Buffer, Buffer, -1, #PB_UTF8)
SendNetworkData(ConnectionID, *Buffer, BufferSize)
;Ajout d'un délai
Delay(50)
Next
FreeMemory(*Buffer)
;Initialisation du buffer recevant les données
*Buffer = AllocateMemory(BufferSize)
Repeat
SEvent = NetworkClientEvent(ConnectionID)
If SEvent
Select SEvent
Case #PB_NetworkEvent_Data ;Le serveur envoie des données
ReceiveNetworkData(ConnectionID, *Buffer, BufferSize)
Debug "Reception de données : " + PeekS(*Buffer, -1, #PB_UTF8)
Case #PB_NetworkEvent_Disconnect ;Déconnecté du serveur
Debug "Deconnecté du serveur"
End
EndSelect
EndIf
ForEver
CloseNetworkServer(0)
Else
Debug "Ooops !! Impossible de se connecter au server"
EndIf
