[RESOLU] Utilisations commandes reseaux

[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

[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 !

[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 )

[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

[Backup]

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

[Anonyme 2]

Voila la solution: http://www.purebasic.fr/french/viewtopi ... =1&t=12165