Retour de carré avec la lib network [Résolu]

[Kwai chang caine]

Bonjour les gens

J'y comprend rien (Comme d'habituuuuuuuuuuuuuu- uuuu deeeeeee copyright de claude françois)

J'ai fait un copier/coller de l'exemple donné par FRED de la lib network.
Et à la place de la phrase que je devrais recevoir via le client

Code : Tout sélectionner

"An hello from a client !!! :-)") 

J'ai des carrés

Code : Tout sélectionner

If InitNetwork() = 0
  MessageRequester("Error", "Can't initialize the network !", 0)
  End
EndIf

Port = 7000

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 

et

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 = 7000
*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   

Mais pourquoi, j'aime quelque chose qui ne m'aime pas

Merci de votre aide

[Kwai chang caine]

Bon ça y'ai j'ai trouvé, alors je me répond tout seul ....

A ecrire 30 fois sur une feuille blanche :

IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE
IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE

Voila ça m'apprendra à déranger tout le monde pour rien.
Je laisse le POST car ça pourra peut etre servir à "quinquin" car c'est marqué nulle part que IL NE FAUT PAS ACTIVER LE SUPPORT UNICODE

Bonne journée

[Backup]

Bonjour les gens

J'y comprend rien (Comme d'habituuuuuuuuuuuuuu- uuuu deeeeeee copyright de claude françois)

non! non!

copyright : Jacques Revaux puis ensuite claude françois

Initialement titrée For Me avec des paroles anglophones et après avoir été refusée par plusieurs artistes, dont Michel Sardou, la chanson est acceptée par Hervé Vilard. Cependant, avec l'assentiment de ce dernier, le compositeur Jacques Revaux, qui désirait travailler avec Claude François, la présente à celui-ci. L'œuvre est remaniée par Claude François qui lui induit le thème de la vie quotidienne d'un couple qui se délite, résumant ainsi sa récente rupture sentimentale avec France Gall. C'est sur ce concept que le parolier Gilles Thibaut achève le texte de ce qui devient Comme d'habitude.

[Ar-S]

j'ai eu ce soucis hier :):):)

[Scrat]

Je remonte ce post car j'ai eu le même souci avec le support de l'unicode

Le pb peut etre contourné en utilisant peekB au lieu de peekS

Code : Tout sélectionner

ReceiveLen = ReceiveNetworkData(NC, *Buffer, BufferLen)
          StrAscii.s = ""
              For i = 0 To ReceiveLen -3
              StrAscii=StrAscii+Chr(PeekB(*Buffer+i))
              Next    

Si ça peut servir

A+

[Ollivier]

Merci !