Problème : le OPEN ne lit qu'une partie du fichier :(Résolu

Question

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).

Donc voila, si vous pouvez m'aider... :D

Merci d'avance

thomvaill · Accepted Answer

C'est bon ! J'ai trouvé tout seul (enfin j'ai un peut regardé sur une source de transfert par winsock). Je te met ce que j'ai mis :

Dim fichier_jpg() As Byte
Dim taille_jpg As Long

.........

Open "C:\WINDOWS\system32\39482temp.jpg" For Binary As #1

taille_jpg = LOF(1)
ReDim fichier_jpg(taille_jpg - 1)

Get #1, 1, fichier_jpg
wsk.SendData "TAILLE=" & taille_jpg
Close #1

........

wsk.SendData fichier_jpg

(Enfin y a pas tout en vrac comme ça, j'ai mis juste des petits bouts).

En tous cas ça marche ^^

Merci quand même, tu m'as mis sur la voix :)


A bientôt sur IRC Jack ;) Et bonne cuisine lol

cs_Jack · Answer

Salut
Tu ne peux pas lire un fichier binaire comme un texte.
Open ... For Binary As #1
et quand tu veux lire les donn&#233;es :
' Pr&#233;parer une variable ayant la m&#234;me longueur que les datas
Contenu = Space(LOF(1))
' Lecture totale
Get #1, , Contenu

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

thomvaill · Answer

Ah merci Jack ;)

(aufaite, ta lib jpg que tu m'a filé, j'ai réussit à la faire marcher xD lol)

thomvaill · Answer

Ah non enfaite !
Donc maintenant, il me sors dans la variable : ÿØÿà

(j'ai ce code la :)
Open "C:\WINDOWS\system32\39482temp.jpg" For Binary As #1

fichier_jpg = Space(LOF(1))

Get #1, , fichier_jpg
Close #1

-- 
PS : Plus haut, j'ai Dim fichier_jpg As String
Peut etre que ça vient de la ?

crenaud76 · Answer

Ben c'est exactement de la que ca vient !!! Le contenu d'un fichier JPEG n'est pas de type string !!! C'est du binaire ...

thomvaill · Answer

Et donc je dois metre Dim fichier_jpg as quoi ?

cs_Jack · Answer

Salut
... Mais tu veux en faire quoi de cette variable qui contient l'image ?
Tu peux tr&#232;s bien garder ta variable sous forme String.
Si tu veux passer en Byte :
Dim Contenu() As Byte
Open ... For Binary As #1
' Pr&#233;parer une variable ayant la m&#234;me longueur que les datas
Redim Contenu(LOF(1))
' Lecture totale
Get #1, , Contenu
Close #1

Mais tout d&#233;pend de ce que tu veux faire de ces donn&#233;es ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

PCPT · Answer

salut, VB6 ... çà marche sans problème chez moi.... Option Explicit ' Private Sub Form_Click() Me.AutoRedraw = True Dim Fichier_jpg As String Open "C: mp.jpg" For Binary As #1 Fichier_jpg = Space(LOF(1)) Get #1, , Fichier_jpg Close #1 Me.Print Fichier_jpg End Sub Coloration syntaxique automatique [AFCK] attention, les caractères suivants un VbNullChar ne sont pas affichés dans une TxtBox !!!!! ++ PCPT [AFCK]

thomvaill · Answer

Bon.. ça n'a toujours pas l'air de marcher :(
Enfaite, je vous explique mieu :

- Je dois ouvrir le fichier JPG
- J'envoie sa taille dans un winsock
- Puis j'envoie le fichier par le winsock

Voila en clair se que je veux faire.

thomvaill · Answer

Jack : Si tu veux pour mieu nous expliquer, viens sur IRC.

cs_Jack · Answer

Salut
Pas le temps pour mIRC, je suis en cuisine jusqu'&#224; demain !
Ok pour l'utilisation.
Tu peux conserver la lecture dasn une String sans probl&#232;me.
Sa taille est donc Len(Contenu)
Il te suffira de faire un WS.SendData Contenu

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)