Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2320 connectés 

  FORUM HardWare.fr
  Programmation
  C#/.NET managed

  [VB.NET] Conversions de données ...

 
 


 Mot :   Pseudo :  
 
 Page :   1  2
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

[VB.NET] Conversions de données ...

n°1034349
fdiedler
http://www.tutoworld.com
Posté le 04-04-2005 à 14:50:11  profilanswer
 

Bonjour, excusez moi de faire du multiposte mais toujours sur l'envoie de fichier via les sockets et bah je crois que j'ai avancé mais je voudrais savoir autre chose :
Lorsque mon client recoit les données sous formes de bytes :

Code :
  1. Dim bytesRead as Integer = sckclient.EndReceive(asyncResult)


Donc bytesread contient effectivement le nombre d'octets que j'ai envoyés mais alors pour appeller ma procedure de "decodage" il me faut un argument en byte. Donc comment convertir BytesRead ( actuellement en Integer ) en byte ???
 
PS : j'ai essayer ca :

Code :
  1. ReDim bufferRead(CInt(bytesRead))
  2.        Call envoie.tested(bufferRead)


Ca à l'air de marcher ( d'apres le point d'arret bufferread a pris la valeur de bytesread ) mais  quand je décode le fichier et bah j'arrive pas a l'ouvrir ( mon image n'apparait pas )
 
Voici ma procedure de decodage :

Code :
  1. Public Class EnvoyerFichier
  3.     Public Sub tested(ByVal bufferFichier As Byte())
  4.         Dim fs As New FileStream("C:\florent.jpg", FileMode.CreateNew, FileAccess.Write)
  6.         Dim w As New BinaryWriter(fs)
  8.         w.Write(bufferFichier)
  10.         w.Close()
  12.         fs.Close()
  13.     End Sub
  14. End Class


 
Merci beaucoup !!!!

mood
Publicité
Posté le 04-04-2005 à 14:50:11  profilanswer
 

n°1035799
FlorentG
Posté le 05-04-2005 à 14:36:47  profilanswer
 

bytesReads va représenter le nombre d'octets lus, et non les octets de ton fichier ;)

n°1036768
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 09:09:32  profilanswer
 

AH ok .... j'ai virer la ligne :  

Code :
  1. ReDim bufferRead(CInt(bytesRead))


Mais c'est bizarre, une fois le transfert du  fichier terminé et bah la fichier et bien crée, je peux meme lire les données ( image, son ... ) mais alors la taille plante ( elle est plus grande que celle du fichier originale )
 
Dans mon code j'ai :

Code :
  1. Dim BufferRead(4000000) as byte


ET j'ai remarqué que si je modifie la taille du buffer et que je met par exemple ca :

Code :
  1. Dim BufferRead(2048) as byte


et bah ca plante... (Normal car la taille du fichier est plus grande que la taille du buffer )
 
Si je met :

Code :
  1. Dim BufferRead(8000000) as byte


La ca marche mais si j'envoie un fichier de 4000000 Octets et bah mon fichier  transféré va prendre comme taille celle du buffer c'est à dire 8000000 Octets
 
Et ainsi de suite en fonction de la taille du buffer...
 
Donc comment faire pour faire ca :

Code :
  1. Dim BufferRead() as byte = taille du fichier envoyé


Je t'explique :
 
Pour les messages textes, je passe par un Encodage ( qui va recuperer un code puis les données à envoyées sous forme : ( 10||||ca va ?? ) DOnc apres pour le client il va decoder les bytes en string puis va appeller la procedure de décodage: Avec des "Case" si j'envoie 10||||ca va ??? et bah le code va aller dans la "Case 10 :" puis va decoder le code....
 
Ca ca marche tres bien je sais pas si on peut faire la meme chose avec un fichier non texte.
 
Merci beaucoup ce probleme me soule vraiment


Message édité par fdiedler le 06-04-2005 à 09:10:36
n°1036861
FlorentG
Posté le 06-04-2005 à 10:27:27  profilanswer
 

Bah je viens de te dire que ta variable bytesRead représentait le nombre d'octets lus [:delarue2]  
 
Donc :
 

Dim ByteBuffer(bytesRead) As Byte


Message édité par FlorentG le 06-04-2005 à 10:27:34
n°1037061
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 12:00:56  profilanswer
 

oui je sais c'est ce que j'avais fait mais alors pour la taille c'est bon mais pourquoi aucune image n'apparait si c'est une image, aucun son si c'est une musique....
Je comprends pas pourtant effectivement il ecrit bien le bon nombre d'octets...
Est ce que tu veux mes procedures pour verifier ?
 
Merci


Message édité par fdiedler le 06-04-2005 à 12:02:18
n°1037124
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 12:30:28  profilanswer
 

Bon je revient ce soir je te met toutes les procedures :
 
1) Evenement click du bouton "envoyer fichier"

Code :
  1. Call envoie.ChargeFichier("C:\marie.jpg" ) [ C'est pour un test ... ]


 
2) Procedure qui ouvre et lit le fichier :

Code :
  1. Public Function ChargeFichier(ByVal fichier As String)
  2.         Dim s As FileStream
  3.         Dim file As FileInfo
  6.         file = New FileInfo(fichier)
  7.         If file.Length < 2000000000 Then '2Go
  8.             Dim info As Integer = file.Length
  9.             ' lecture des octets du fichier
  10.             ReDim buffer(CInt(file.Length))
  11.             s = New FileStream(fichier, FileMode.Open, FileAccess.Read)
  12.             s.Read(buffer, 0, CInt(file.Length))
  13.             s.Close()
  15.             Call socket.EnvoyerFichier(buffer)
  16.         Else
  17.             Throw New Exception("Le fichier transféré ne doit pas dépasser 2 Go." )
  18.         End If
  19.     End Function


 
3) Procedure d'envoie du fichier via la socket :

Code :
  1. Public Sub EnvoyerFichier(ByVal msg As Byte())
  2.         sckclient.BeginSend(msg, 0, msg.Length, SocketFlags.None, AddressOf SendCallback, sckserver)
  3.     End Sub


4) Reception des données par le client :

Code :
  1. Public Sub ReceiveCallback(ByVal asyncResult As IAsyncResult)
  2.         If sckclient.Connected Then
  3.             Try
  4.                 bytesRead = sckclient.EndReceive(asyncResult)
  6.                 Dim mesreceive As String = Encoding.UTF8.GetString(bufferRead) 'Pour les msg texte
  8.                 Dim bufferFichier(bytesRead) As Byte
  10.                 Call envoie.tested(bufferFichier) 'Appelle procedure de décodage
  12.                 If mesreceive <> "" Then RaiseEvent MessageReceive(mesreceive) ' Pour les msg texte
  14.         Catch es As Exception
  16.                 MsgBox("Erreur fatal du serveur" )
  18.             End Try
  19.         End If


5) Décodage du fichier envoyé :

Code :
  1. Public Sub tested(ByVal bufferFichier As Byte())
  2.         If File.Exists("C:\florent.jpg" ) Then
  3.             File.Delete("C:\florent.jpg" )
  4.         End If
  6.         Dim fs As New FileStream("C:\florent.jpg", FileMode.CreateNew, FileAccess.Write)
  8.         Dim w As New BinaryWriter(fs)
  10.         w.Write(bufferFichier, 0, bufferFichier.Length)
  13.         w.Close()
  15.         fs.Close()
  16.     End Sub


 
Voila je comprends pas pourquoi ca marche pas....
 
Merci !


Message édité par fdiedler le 06-04-2005 à 12:31:58
n°1037252
FlorentG
Posté le 06-04-2005 à 14:01:49  profilanswer
 

Donc comme dit, avec les deux lignes :

Dim bufferFichier(bytesRead) As Byte
Call envoie.tested(bufferFichier) 'Appelle procedure de décodage


T'as créé un tableau de taille bytesRead, et tu le balances direct à la fonction tested... Sans l'avoir rempli :/ Aussi, le 'Call' ne sert plus, tu peux mettre simplement l'appel à la fonction

n°1037272
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 14:06:30  profilanswer
 

ok Donc comment on fait pour remplir le tableau ??
POur le "call" je savais mais je prefere le mettre copmme ca quand je relis mon code c'est plus facile ...

n°1037281
FlorentG
Posté le 06-04-2005 à 14:10:36  profilanswer
 

[:msdn]
:D

n°1037302
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 14:16:02  profilanswer
 

Justement j'etais dessus mais j'ai ps trouver qurand chose ...
http://msdn.microsoft.com/library/ [...] sTopic.asp
Je sais pas si c'est ca ....
 
Est ce que tu connais le nom de la methode ce sera plus facile a chercher.
lol
Merci

mood
Publicité
Posté le 06-04-2005 à 14:16:02  profilanswer
 

n°1037303
FlorentG
Posté le 06-04-2005 à 14:16:48  profilanswer
 

Tu utilises un object  System.Net.Sockets.Socket ?

n°1037314
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 14:19:22  profilanswer
 

oui

n°1037328
FlorentG
Posté le 06-04-2005 à 14:23:27  profilanswer
 

Parce que la MSDN me donne la belle méthode Socket.Receive qui comporte en paramètre un tableau de Byte ;)

n°1037345
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 14:28:56  profilanswer
 

j'utilise le mode asynchrome donc "Send" et "receive" ne marche pas pour mon cas. J'utilise "BeginSend" "EndSend" "BeginReceive" et "EndReceive" mais j'utilise ca !!  

Code :
  1. Public Sub ReceiveCallback(ByVal asyncResult As IAsyncResult)
  2.         If sckclient.Connected Then
  3.             Try
  4.                 bytesRead = sckclient.EndReceive(asyncResult)
  6.                 Dim mesreceive As String = Encoding.UTF8.GetString(bufferRead)
  8.                 Dim bufferFichier(bytesRead) As Byte
  10.                 Call envoie.tested(bufferFichier)
  12.                 If mesreceive <> "" Then RaiseEvent MessageReceive(mesreceive)
  14.            
  16.                 If sckclient.Connected And bytesRead > 0 Then
  17.                     Try
  18.                         'Tente de recevoir le reste des données
  19.                         sckclient.BeginReceive(bufferRead, 0, bufferRead.Length, SocketFlags.None, AddressOf ReceiveCallback, sckclient)
  20.                     Catch ex As Exception
  21.                         MsgBox("Erreur de réception client", MsgBoxStyle.Critical, "Erreur" )
  22.                         RaiseEvent MessageError(1003, "Erreur de réception de données" )
  23.                     End Try
  24.                     bufferRead.Clear(bufferRead, 0, bufferRead.Length)
  25.                 End If
  26.             Catch es As Exception
  27.                 MsgBox("Erreur fatal du serveur" )
  29.             End Try
  30.         End If
  31.     End Sub


Donc je vois pas comment le remplir en fonction des données qu'il recoit ...


Message édité par fdiedler le 06-04-2005 à 14:29:53
n°1037358
FlorentG
Posté le 06-04-2005 à 14:33:41  profilanswer
 

Regarde la référence sur EndReceive, y'a un exemple

n°1037362
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 14:34:54  profilanswer
 

Mais avec ce code :
La variable "bufferRead" contient les bytes envoyé par le serveur. Puis je crée un tableau de bytes de taille BytesRead avec :
 
Dim bufferFichier(bytesRead) As Byte
 
Et apres j'appelle Envoie.tested pour créer un new fichier puis ecrire dedans avec "Write"
 
Mais si le tableau de bytes est vide comment le remplir ?
 
 

n°1037367
FlorentG
Posté le 06-04-2005 à 14:36:08  profilanswer
 

Ben si la variables bufferRead contient les bytes, pourquoi ne l'utilise-tu pas avec la fonctions tested ? :??:

n°1037378
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 14:40:21  profilanswer
 

bah tout  simplement a cause de probleme de la taille:
Je l'ai declarer en private :
 
    Private bufferRead(4000000) As Byte
 
Mais voila si le fichier est trop gros ca va planT et si il est trop petit et bah sa taille prendra imediatemetn celle du buffer...
 
C'était le probleme que j'avais soulever plus haut dans ce topic ...
 
ET si je emt ca :

Code :
  1. Private bytesRead As Integer
  2.     Private bufferRead(bytesRead) As Byte


 
Et bah y'a une erreur : Une expression de constante est requise.


Message édité par fdiedler le 06-04-2005 à 14:41:53
n°1037382
FlorentG
Posté le 06-04-2005 à 14:41:44  profilanswer
 

Donc copie ton bufferRead dans ton bufferFichier alors

n°1037385
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 14:42:35  profilanswer
 

et comment on fait ca ?

n°1037396
FlorentG
Posté le 06-04-2005 à 14:45:27  profilanswer
 

*soupir*
 
 
:D

n°1037452
fdiedler
http://www.tutoworld.com
Posté le 06-04-2005 à 15:02:49  profilanswer
 

lol dosolé d'etre sur les nerfs mais ca fait 3 semaines que je suis dessus  et voila... lol
Sinon j'ai mis ca et ca a l'air de marcher :
 
  Dim bufferFichier(bytesRead) As Byte
                bufferFichier.Copy(bufferRead, bufferFichier, bytesRead)
                Call envoie.tested(bufferFichier)
 
J'ai remarquer que des que je me deconnectais et bah mon fichier contient 1 octet ? lol pourquoi ?? Pourtant il a été souvegarder !
 

n°1038381
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 07:34:45  profilanswer
 

Nan c'est bon c'est régler : j'y suis presque mais bon...
Certes ca marche mais le probleme de taille du buffer est toujours la :

Code :
  1. Dim bufferFichier(bytesRead) As Byte
  3.                 bufferFichier.Copy(bufferread, bufferFichier, bytesRead)
  5.                 Call envoie.tested(bufferFichier)


Au fait il faudrais que je déclare ca en private dans toute la class comme ci :

Code :
  1. Public bytesRead As Integer
  2.     Public bufferread(bytesRead) As Byte


Mais il veut une expression de constante...
 
Si je met ca :

   Public Const bytesRead As Integer = 0
    Public bufferread(bytesRead) As Byte


et bah cette ligne plante :

Code :
  1. bytesRead = sckclient.EndReceive(asyncResult)


Car une constante ne peut pas etre la cible d'une assignation...
Or cette ligne met fin a l'envoie donc je peut pas la virer...
 
Si j'arrivais à resoudre ce pb et bah ca reglerais enfin la probleme de la taille car le buffer prendrais immédiatement la taille du fichier a chaque envoie...
 
Voila Aidez moi !!!
 
Merci
 
 
 

n°1038441
FlorentG
Posté le 07-04-2005 à 09:04:38  profilanswer
 

Ou ça l'expression constante ?

n°1038490
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 10:03:56  profilanswer
 

bah elle est la :
 
    Public Const bytesRead As Integer = 0
    Public bufferread(bytesRead) As Byte
...
mais ca marche pas .. le truc de de se debrouiller pour ne plus définir la taille du buffer avec Dim buffer(1024) as byte par exemple...


Message édité par fdiedler le 07-04-2005 à 10:05:18
n°1038493
FlorentG
Posté le 07-04-2005 à 10:05:58  profilanswer
 

J'veux dire, pourquoi utilise-tu une constante ? Normalement on peut mettre ce que l'on veut

n°1038510
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 10:21:22  profilanswer
 

ah bah parce que cela ne marche pas :
 
    * Public bytesRead As Integer
    *     Public bufferread(bytesRead) As Byte
 
Le programme me demande une expression de constante

n°1038514
FlorentG
Posté le 07-04-2005 à 10:25:25  profilanswer
 

Sûrement parce que bytesRead est public. D'ailleurs il ne faut jamais mettre de variables membres publiques ;)

n°1038533
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 10:38:32  profilanswer
 

oui ce doit etre ca mais alors comment faire pour que le buffer prennent la taille du fichier a chaque envoi : On est obliger de le declarer en public ?? non ? sinon comment faire ?
Merci

n°1038557
FlorentG
Posté le 07-04-2005 à 10:47:41  profilanswer
 

En private il est accessible dans ta classe, donc pas de probs ;) Enfin ça dépend comment est architecturé ton truc :D

n°1038603
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 11:08:13  profilanswer
 

justement il est deja en private :
 
    Private bytesRead As Integer
    Private bufferread(bytesRead) As Byte
 
MAIS j'ai tjrs l'erreur ...
T'a pas une idée ?

n°1038617
FlorentG
Posté le 07-04-2005 à 11:13:06  profilanswer
 

Y'a-t-il vraiment un interêt à avoir cette variable dans le corps de la classe ? Ca pose problème si tu la déclare localement dans la fonction ?

n°1038653
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 11:24:50  profilanswer
 

Dans la procedure receive ca pose pas de pb mais regarde :
Code :
 
    * Dim bufferFichier(bytesRead) As Byte
    *
    *                 bufferFichier.Copy(bufferread, bufferFichier, bytesRead)
    *
    *                 Call envoie.tested(bufferFichier)
 
 
et j'ai definie  Dim buuferRead(4000000) as byte  
mais ca prends bcp de mémoire et si le fichier depasse cette valeur et bah ca plante c'est pour ca que je peux pas definir la taille du buffer ...


Message édité par fdiedler le 07-04-2005 à 15:58:03
n°1039016
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 15:58:14  profilanswer
 

Au fait voila comment je vois les choses :
 
J'ai créer une class qui encode :
 
Si je veux envoyer ca "Slt !!!!" en taille 10, en arial :
Et bah je vais apeller ma class puis a la fin voila ce qui va etre envoyé :
20 (Code d'envoie pour des messages texte )|||| Pseudo + "dit" |||| 10 ( taille ) |||| "Arial" |||| red |||| false (gras) |||| false (italique)
 
Puis tout ca va se retrouver dans le bufferRead et puis  dans l'evenement que j'ai créer "MessageReceive" et bah je vais appeller ma procedure qui va decoder tout ca ...
et puis ds le Case 20 : 'Afficher le texte decoder...
 
et voila le travail !!!
 
Maintenant il faudrait faire ca aussi avec l'envoie de fichier :
 
J'ai deja preprogrammer le code d'envoie pour les fichier ( 30 ) mais alors il faut savoir que tout est en String puis avant l'envoie dans la procedure Socket.send et bah je l'encode en Bytes...

Code :
  1. Public Sub Send(ByVal Data As [String])
  2.         buffer = Encoding.UTF8.GetBytes(Data)
  3.         sckclient.BeginSend(buffer, 0, buffer.Length, SocketFlags.None, AddressOf SendCallback, sckclient)
  4.     End Sub


 
Donc il faudrait envoyer un truc du genre :
30 ( Code envoie de fichier ) |||| Pseudo + "Vous envoie" + FileName ( optionnel ) |||| Contenue du fichier en String
 
Maintenant comment recuperer les données du fichier en String et non en Byte ( comme j'ai fais ci-haut ) ????
 
Merci beaucoup pour ton soutient
 
Fdiedler

n°1039021
FlorentG
Posté le 07-04-2005 à 16:04:23  profilanswer
 

Et si tu utilisais le .NET remoting ? [:dawa] Tu sérialize ta classe, avec tes différents champs (pseudo, taille, police), puis tu désérialize de l'autre côté, ce serait 100x plus simple ;)

n°1039028
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 16:17:18  profilanswer
 

bah j'ai deja develloper mon application avec les socket. De plus je connais pas du tout le remoting et je sais aps si je devrais tout modifier ou pas ....

n°1039030
FlorentG
Posté le 07-04-2005 à 16:17:51  profilanswer
 

Faut regarder dans la MSDN comment ça marche :)

n°1039043
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 16:23:50  profilanswer
 

Mais tu penses que ca va regler mes pb ?? et est ce que la connection et tout ca je devrais recommencer ?

n°1039049
FlorentG
Posté le 07-04-2005 à 16:26:06  profilanswer
 

Pas sûr. En tous cas, ça sera 50 000 fois moins galère à faire

n°1039079
fdiedler
http://www.tutoworld.com
Posté le 07-04-2005 à 16:39:19  profilanswer
 

J'ai vu sa et je trouve que c'est plus difficile...
De plus c'est un autre moyen de communication reseau donc j'utiliserais plus les sockets. Or ca fait 2 mois que je developpe mon Chat et donc j'ai pas trop envie de recommencer tout... Donc je vais essayer de trouver une solution...
 
Pour l'encodage j'ai utiliser ca :
 
            Dim ascii As New ASCIIEncoding
            Dim decode As String = ascii.GetString(buffer)
 
Mais bon a mon avis c'est pas bon. Pour le code d'envoie de fichier y'a pas de probleme sinon il va bien dans le Case 30 : 'et puis la j'apelle ma class qui endecode les string en byte puis le ecrit dans un autre ficher.
 
Mais bon le resultat n'est pas la.
 
Faudrais peut etre que je t'envoie mes class par mail complete pour que tu comprenne mieux mon systeme?


Message édité par fdiedler le 07-04-2005 à 16:44:43
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  C#/.NET managed

  [VB.NET] Conversions de données ...

 

Sujets relatifs
Ouvrir un fichier Excel en VB.NETDrag souris en C++ .NET
[ASP.NET] Conversion DOC en PDF (gratuit)[ Pocket PC ] Installer une base de données
(débutant) enregistrer des données via un formulaireReactualiser les données d'un formulaire après les avoir modifiées
Les bases de données et le language CAfficher des données en 2 collones via un tableau
[VB.NET] Créer tchat multiclient[VB.NET] Envoie de fichier avec socket !!
Plus de sujets relatifs à : [VB.NET] Conversions de données ...

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.152 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)