Ok, alors PB offre bien cette possibilité
J'ai essayé l'exemple:
Créer un serveur (Comment ça fonctionne ?, quel espace est disponible ?, ou sont stoker les informations ?, etc)
Code : Tout sélectionner
;
; ------------------------------------------------------------
;
; PureBasic - Network (Server) example file
;
; (c) 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, -1, #PB_UTF8), 0)
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
Ensuite, une fois le serveur créé, j'envoie des donnée dessus avec ce deuxième code
ensuite je reviens au premier pour voir si les données ont bien été reçus:
Code : Tout sélectionner
;
; ------------------------------------------------------------
;
; PureBasic - Network (Client) example file
;
; (c) 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 !!! :-)", #PB_UTF8)
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
Tous fonctionne bien mais comment ça fonctionne ?
En faite si je comprends bien en gros la chose, je créer un espèce de tunnel ou pond entre deux point
Tans que le pond ou le tunnel est là, les deux peuvent échanger des information, sinon peut plus.
Emplacement A est l'emplacement Source, c'est là ou sont enregistrer les données, peut envoyer et recevoir, c'est de la que par le pond ou le tunnel.
Cet emplacement est part exemple un ordinateur ou tous autre appareille pouvant stoker des données comme un serveur par exemple...
Cet emplacement ne dois jamais être formaté sous peine de perdre définitivement les données (Faut les sauvegarder avant ailleurs ou sur un autre emplacement).
Emplacement B, C, D, E, F, etc etc, son les emplacements Cibles (Ordinateur par exemple), c'est là ou sont envoyé les données, peut aussi envoyer et recevoir, peut aussi
enregistrer des données aussi mais temporairement tans qu'elle ne sont pas effacer (Formatage ou autres).
C'est de la que par le pond ou le tunnel.
Ce pond ou tunnel est toujours actif tans que le serveur est en marche, sinon et bien, il n'existe plus tans que celui-ci n'est pas ok (Chemin inexistant).
Voilà en gros j'ai compris ça, ça nécessite donc un appareil Source...
Ya pas ça sur internet, des serveur gratuit ?
Je sens que ça va m'éclater, en gros je peut créer un serveur, une tablette par exemple ou un ordinateur portable ^^
Tans qu'il est en marche, je peut échanger avec sinon peu plus !