[VB] envoyer un objet avec winsock

envoyer un objet avec winsock [VB] - Programmation

Marsh Posté le 29-06-2001 à 17:34:36    

Voila, je souhaite envoyer un objet avec le controle winsock, le problème étant que cet objet doit être inséré dans une chaine qui contient d'autres informations (numéro du message, nombre de message restant, etc...). J'ai essayé de "poser" l'objet au milieu de la chaine mais ça ne marche pas, idem en utilisant  Cstr().
 
Si quelqu'un a une idée pour m'aider, je suis preneur.
 
Merci d'avance


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 29-06-2001 à 17:34:36   

Reply

Marsh Posté le 02-07-2001 à 09:26:38    

up


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 02-07-2001 à 16:05:06    

Un qui pourrait t'aider sans pb sur ce sujet, c HelloWorld.

Reply

Marsh Posté le 03-07-2001 à 09:24:06    

Alors, personne n'a de solution ?
bon, up quand même. :bounce:


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 03-07-2001 à 09:31:15    

D'après mes souvenirs, les messages échangés entre le client et le serveur sont des tableaux de d'octets.
 
voici un exemple :
 
Sub MessageClient(Msg As String)
    Select Case Msg
        Case "\BIENVENUE"
            Form_Connexion.Winsock.SendData "\NOM      " + Form_Connexion.Nom_Client
            Call MsgBox("Vous êtes connectés au serveur !!!", vbApplicationModal, "Connexion réussie" )
            Connecte = True
            Call MAJ_Interface
            Form_Connexion.Connexion.Caption = "&Déconnexion"
            Form_Connexion.Connexion.Enabled = True
            Form_Connexion.WindowState = 1 'Minimize
            Form_Principale.Visible = True
        Case "\DESOLE   "
            Call MsgBox("Echec de la connexion : le serveur est complet.", vbCritical Or vbApplicationModal, "Serveur complet" )
            Form_Connexion.Winsock.Close
            While Form_Connexion.Winsock.State <> sckClosed
                DoEvents
            Wend
        Case "\OK       "
             
    End Select
End Sub
 
euh je c pas si ça va t'aider mais pour l'instant j'ai que ça à te proposer

Reply

Marsh Posté le 03-07-2001 à 10:08:24    

J'ai essayé de convertir mon objet en une chaine de caractères. ça passe très bien pour les types simples (integer, boolean, etc...), mais cet objet pointe également sur un autre objet qui contient lui-même une collection d'objets...... => impossible de tout convertir en chaine et de tout récupérer par la suite...
 
HELP


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 03-07-2001 à 13:49:55    

le UP de la dernière chance :bounce:  
et merci à tom64pour avoir tenté de m'aider


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed