fichier bmp en fichier hex pour exploitation donner

Question

slt a tous
je suis a la recherche d'une solution:
 j'ai un fichier BMP(monochrome) donc je veut extraire les données et les affiché en hexa dans mon champ text2

voila mon code:

Private Sub Command4_Click()
Open "essaie.bmp" For Input As #1         ' Ouvre le fichier.



Do While Not EOF(1)                                 ' Effectue la boucle jusqu'à la fin du fichier.
      Input #1, TextLine                                 ' Lit la ligne dans la variable.
    carpos = 1                                               'init du compteur de position
    Do While Not carpos >= 1024                'boucle tantque la ligne n'est pas fini
        x = Mid(TextLine, carpos, 1)               'récuperation des valeurs
        carpos = carpos + 1                            'incrémentation du compteur position
        Text2.Text = Text2.Text & Hex$(Asc(x))  
     Loop
Loop
Close #
End Sub


lorsque je lance l'appli il fonctionne mais arrivé a un moment il me met ler message suivant:

argument ou appel de procedure incorect

en sachant que la valeur X vaut "" a ce moment la ???????? aidez moi svpl

PCPT · Answer

salut,

ouvre ton image en BINARY

http://www.codyx.org/snippet_mettre-fichier-dans-tableau-bytes_1.aspx#250

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Fichier bmp en fichier hex pour exploitation donner

1 réponse

Votre réponse

Discussions similaires