Précédent   Forum des professionnels en informatique > Autres langages > Autres langages > Basic > PureBasic
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 09/04/2011, 17h23   #1
Invité régulier
 
Deimon
Inscription : octobre 2010
Messages : 45
Détails du profil
Informations personnelles :
Nom : Deimon

Informations forums :
Inscription : octobre 2010
Messages : 45
Points : 9
Points : 9
Par défaut Creer un client P2P

Yo!
J'aimerais savoir quelles sont les commandes à envoyer pour lancer des ordres (-->SendNetworkData(), SendNetworkString()) de téléchargements à un serveur p2p après s'être connécté dessus, merci!!
Voici le (tout petit) debut de bout de code:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
If InitNetwork()=0
  MessageRequester("[P2P]", "Initialisation de la connexion avec le serveur impossible", 0)
EndIf
*Buffer=AllocateMemory(1000)
Port=7111
ConnectionID=OpenNetworkConnection("88.191.81.111", Port)
ID=ConnectionID
If ConnectionID
  MessageRequester("Info", "Connection réussie au serveur P2P!") 
  Repeat 
    CEvent=NetworkClientEvent(ID)
    If CEvent 
      Select CEvent 
        Case 2 
          ReceiveNetworkData(ID, *Buffer, 1000)
          MessageRequester("[P2P]","On a des données recues!")
          message$=PeekS(*Buffer)
          MessageRequester("[P2P]","Message:"+message$)
          FreeMemory(*Buffer) 
        Case 3 
          ReceiveNetworkFile(ID, "C:\")
      EndSelect 
    EndIf 
  ForEver
EndIf
Reste plus qu'à connaitre les commandes de demandes de téléchargement au serveur..
Merci d'avance pour votre aide!!
Dzoumaka est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h41.


 
 
 
 
Partenaires

Hébergement Web