Discussion :

[Invité]

Bonjour,

Voila j'essaye de transmettre des objets par réseau en me servant des fonctions soap de serialisation.

je sérialise un objet dans un memory stream

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim message As New Message_Réseau       'classe que jai implémenter 
Dim m As New IO.MemoryStream
Dim formateur As New Runtime.Serialization.Formatters.Soap.SoapFormatter
 
formateur.Serialize(m, message)

puis je l'envoie par réseau ainsi avec les TcpClient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.GetSteam.Write(m.ToArray, 0, m.Length)

ensuite je le désérialise de lautre cote du reseau apres avoir recuperer mon tableau de byte() 'tab' avec read

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim message As Message_Réseau
Dim m As New IO.MemoryStream
m.Write(tab, 0, tab.Length)
 
Dim formateur As New Runtime.Serialization.Formatters.Soap.SoapFormatter
message = CType(formateur.Deserialize(m), Message_Réseau)

Et j'ai l'erreur "Elément racine manquant" et je ne vois pas pourquoi ?

Merci de votre aide

[Invité]

J'ai essayé la meme chose avec un binary formatters et cette fois une erreur survient me disant que la fin du flux est atteinte avant la fin de l'analyse.

[tomlev]

En gros si je comprends tu fais du remoting à la main... Regarde plutôt du côté de System.Runtime.Remoting pour transmettre des objets sérialisés sur le réseau.
Sinon, tu n'aurais pas un problème avec le transfert des données ? as-tu vérifié que tu reçois bien la même chose que tu as envoyé ?
Pour le problème de SOAP, à quoi ressemble le XML généré ? tu as bien un élément racine ?

[Pol63]

+1 pour le remoting

[tomlev]

+1 pour le remoting

Cela dit, j'ai voulu voir comment ça marchait il y a quelques jours, et c'est bien galère... notamment si tu veux que le serveur publie des évènements, le callback est un vrai cauchemar !
Par contre j'ai un peu mis mon nez dans WCF, et c'est nettement plus simple !

[Pol63]

j'ai cru voir à une époque que WCF était plus que lent ...

et pour faire des évènements en remoting, il doit aussi etre possible d'appeler une classe locale qui s'occupera de faire l'évènement

enfin je connais pas trop le remoting, j'ai juste vu le fonctionnement en singleton et à priori ca prend 3 lignes de codes pour synchroniser une instance entre 2 applis

[tomlev]

j'ai cru voir à une époque que WCF était plus que lent ...

A vrai dire j'ai pas assez utilisé pour comparer... mais ça me surprend un peu quand même. Tu as vu ça où ?

et pour faire des évènements en remoting, il doit aussi etre possible d'appeler une classe locale qui s'occupera de faire l'évènement

Oui c'est ça, sauf qu'il faut aussi ouvrir un channel en écoute côté client, et là ça se complique... en tous cas j'ai pas trouvé comment faire.

enfin je connais pas trop le remoting, j'ai juste vu le fonctionnement en singleton et à priori ca prend 3 lignes de codes pour synchroniser une instance entre 2 applis

Oui, pour une appli très basique c'est effectivement assez simple...

[Pol63]

à l'époque de la beta 2 je regardais ce que vs 2008 apportait
et je suis tombé sur un test de WCF ...


EDIT :
à manger pour google :
wcf performance
wcf vs remoting


enfin ca dit que c'est plus lent mais mieux (surement plus pratique)

[Invité]

Merci pour vos réponses J'ai finalement réussi j'avais juste oublié de me repositionné dans mon MemoryStream ! Voici mon code pour les intéressés :

Serialisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim m As New IO.MemoryStream
Dim formateur As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
m.Seek(0, 0)
formateur.Serialize(m, objet_a_serialiser)
var_TcpClient.GetStream.Write(m.ToArray, 0, m.Length)
m.Close()

Désérialisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim m As New IO.MemoryStream
Dim tab() As Byte
var_TcpClient.GetStream.Read(tab,0,var_TcpClient.ReceiveBufferSize)
m.Seek(0, 0)
m.Write(tab, 0, tab.Length)
Dim formateur As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
m.Seek(0, 0)
message = CType(formateur.Deserialize(m), Module_Réseau.Message_Réseau)
m.Close()

Merci !