thomvaill
Messages postés366Date d'inscriptionmercredi 7 avril 2004StatutMembreDernière intervention20 février 2007
-
22 déc. 2005 à 19:28
thomvaill
Messages postés366Date d'inscriptionmercredi 7 avril 2004StatutMembreDernière intervention20 février 2007
-
23 déc. 2005 à 17:58
Bonjour tout le monde :)
Donc, j'ai ce code dans ma source :
-----
Open "C:\WINDOWS\system32\39482temp.jpg" For Input As #1
Line Input #1, texte
fichier_jpg = texte
If Len(fichier_jpg) <> 0 Then
While Not EOF(1)
Line Input #1, texte
fichier_jpg = fichier_jpg + texte
Wend
End If
Close #1
-----
Et donc il ne lit qu'une partie du fichier JPG (genre 4 lignes sur plus de 100).
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 22 déc. 2005 à 19:39
Salut
Tu ne peux pas lire un fichier binaire comme un texte.
Open ... For Binary As #1
et quand tu veux lire les données :
' Préparer une variable ayant la même longueur que les datas
Contenu = Space(LOF(1))
' Lecture totale
Get #1, , Contenu
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 23 déc. 2005 à 13:03
Salut
... Mais tu veux en faire quoi de cette variable qui contient l'image ?
Tu peux très bien garder ta variable sous forme String.
Si tu veux passer en Byte :
Dim Contenu() As Byte
Open ... For Binary As #1
' Préparer une variable ayant la même longueur que les datas
Redim Contenu(LOF(1))
' Lecture totale
Get #1, , Contenu
Close #1
Mais tout dépend de ce que tu veux faire de ces données ...
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 23 déc. 2005 à 17:23
Salut
Pas le temps pour mIRC, je suis en cuisine jusqu'à demain !
Ok pour l'utilisation.
Tu peux conserver la lecture dasn une String sans problème.
Sa taille est donc Len(Contenu)
Il te suffira de faire un WS.SendData Contenu
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)