Page 1 sur 1
[RESOLU] Utilisations commandes reseaux
Publié : jeu. 09/juin/2011 17:58
par Anonyme 2
Yo,
J'ai beau essayer de plusieurs facons, je n'arrive pas a faire fonctionner ensemble les commandes SendNetworkFile() et ReceiveNetworkFile().
Je sais qu'il faut preciser le nom du fichier dans les 2 commandes, mais ca ne marche pas chez moi.
Quelqun aurait-il un exemple d'utilisation de ces commandes, qui marche, a me montrer s'il vous plait? (et quelques explications avec ^^ )
Merci d'avance
Re: Utilisations commandes reseaux
Publié : mer. 22/juin/2011 6:54
par brossden
Bonjour
Dans l'aide tu as un exemple. Tu dois en premier lancer le programme Serveur :
Code : Tout sélectionner
;
; ------------------------------------------------------------
;
; PureBasic - Network (Server) example file
;
; (c) 2003 - Fantaisie Software
;
; ------------------------------------------------------------
;
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
Port = 6832
*Buffer = AllocateMemory(1000)
If CreateNetworkServer(0, Port)
MessageRequester("PureBasic - Server", "Server created (Port "+Str(Port)+").", 0)
Repeat
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
Select SEvent
Case #PB_NetworkEvent_Connect
MessageRequester("PureBasic - Server", "A new client has connected !", 0)
Case #PB_NetworkEvent_Data
MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a packet !", 0)
ReceiveNetworkData(ClientID, *Buffer, 1000)
MessageRequester("Info", "String: "+PeekS(*Buffer), 0)
Case #PB_NetworkEvent_File
MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a file via the network !", 0)
ReceiveNetworkFile(ClientID, "C:\TEST_Network.ftp3")
Case #PB_NetworkEvent_Disconnect
MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has closed the connection...", 0)
Quit = 1
EndSelect
EndIf
Until Quit = 1
MessageRequester("PureBasic - Server", "Click to quit the server.", 0)
CloseNetworkServer(0)
Else
MessageRequester("Error", "Can't create the server (port in use ?).", 0)
EndIf
End
Puis le Programme Client :
Code : Tout sélectionner
;
; ------------------------------------------------------------
;
; PureBasic - Network (Client) example file
;
; (c) 2003 - Fantaisie Software
;
; ------------------------------------------------------------
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
Voilà j'espère que cela te sera utile !
Re: Utilisations commandes reseaux
Publié : mer. 22/juin/2011 10:15
par Anonyme 2
Yo,
En fait je sais deja ca (j'ai deja cree plusieurs serveurs et quelques programmes clients)
Le probleme c'est juste les commandes SendNetworkFile() et ReceiveNetworkFile() (-> comment les utilisaer
)
Re: Utilisations commandes reseaux
Publié : mar. 19/juil./2011 14:11
par Anonyme 2
Quelqun n'aurait paas un code fonctionnel utilisant les commandes SendNetworkFile() et ReceiveNetworkFile() s'il vous plait, je n'arrive pas a les faire fonctionner
Re: Utilisations commandes reseaux
Publié : mar. 19/juil./2011 17:28
par Backup
Dzoumaka a écrit :Yo,
En fait je sais deja ca (j'ai deja cree plusieurs serveurs et quelques programmes clients)
pourquoi t'aiderai t'on, puisque tu sais deja tout
Re: Utilisations commandes reseaux
Publié : jeu. 01/sept./2011 20:40
par Anonyme 2