PureBasic

a non je pense que n'importe le quelle fait l'affaire regarde pour émule j'ai ouvert 1234.

et ton port tu la bien ouvert en TCP ? au cas ou

.

@++

Bonjour,
Désole de rentrer dans la discussion sans y apporter de réponse mais pour poser des questions.

Je viens de débarquer sur PureBasic et je me demande si je peux créer une appli sur laquelle plusieurs personnes peuvent être connectées simultanément.

Donc une fois résolues les questions d'IP (qui vous occupent), il faudrait une appli client pour se connecter au serveur, les 2 développées en PureBasic ?

Merci

kerkael a écrit :Bonjour,
Désole de rentrer dans la discussion sans y apporter de réponse mais pour poser des questions.

Je viens de débarquer sur PureBasic et je me demande si je peux créer une appli sur laquelle plusieurs personnes peuvent être connectées simultanément.

Donc une fois résolues les questions d'IP (qui vous occupent), il faudrait une appli client pour se connecter au serveur, les 2 développées en PureBasic ?

Merci

Bonjour
Vous lisez la doc de temps en temps ?
Suffit de regarder l'exemple client serveur...

@Venom
Ouais je l'ai bien ouvert en TCP je comprend pas pourquoi ca marche pas ...

Je te ferais bien une petite impression ecran mais je sais pas si c très bon de filer a tout le monde mon adresse ip, le port que j'ai ouvert, l'ip de ma freebox ...

Le psychopathe a écrit :
Bonjour
Vous lisez la doc de temps en temps ?
Suffit de regarder l'exemple client serveur...

Ben, j'ai surtout commencé à manger du Tutorial.
Je n'ai pas encore DL la doc. Je pensais le faire après m'être décidé à utiliser ce produit.

Merci

salut kayne ont se bip ce week end sur msn

avec screenshoot
bonne soirée

@++

kerkael a écrit :
Le psychopathe a écrit :
Bonjour
Vous lisez la doc de temps en temps ?
Suffit de regarder l'exemple client serveur...
Ben, j'ai surtout commencé à manger du Tutorial.
Je n'ai pas encore DL la doc. Je pensais le faire après m'être décidé à utiliser ce produit.

Merci

Voilà l'exemple dans la doc :

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 1
          MessageRequester("PureBasic - Server", "A new client has connected !", 0)
  
        Case 2
          MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a packet !", 0)
          ReceiveNetworkData(ClientID, *Buffer, 1000)
          MessageRequester("Info", "String: "+PeekS(*Buffer), 0)
  
        Case 3
          MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has send a file via the network !", 0)
          ReceiveNetworkFile(ClientID, "C:\TEST_Network.ftp3")
  
        Case 4
          MessageRequester("PureBasic - Server", "Client "+Str(ClientID)+" has closed the connexion...", 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

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

Ca marche en local, mais sur internet je bute sur l'ouverture des ports.

Bon, j'ai fait de la redirection de port vers l'IP de mon ordi.
J'ai pris les 4662 et 4672 que tu indiquais. (j'ai essaye aussi plus large)
J'ai temporairement arrêté le firewall zinzin (j'ai aussi essayé avec des exceptions sur les ports TCP et UDP).

Je suis même allé à mettre l'IP de ma machine en DMZ !

Ca change rien, l'IP qu'indique la fenêtre est bien celle de mou routeur sur internet, mais quel que soit le port que je teste, j'ai un retour d'erreur.

Qu'est-ce qu'il faut qu'je fais (à part apprendre le subjonctif) ?

Par exemple, faut-il provoquer de l'activité sur ma machine sur les ports susnommés, ou bien cela n'a aucun rapport ?

salut kayne ont se bip ce week end sur msn Wink avec screenshoot
bonne soirée

Ok ca marche ajd vers 18h ?

PureBasic

Commandes Network (reseau)