1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Lire 4 bytes dans un fichier binaire [Résolu]

Signaler
Messages postés
86
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
10 juillet 2008
 -
Messages postés
86
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
10 juillet 2008
 -
bonjour a tous,

j'ai un fichier binaire ou il y a a l'adresse 0x000E  4 bytes qui donne un entier normalement
(voir image)

moi je lit le fichier comme ça pour les données d'un byte (numero 8 , 9 et A sur l'image)
Dim Tampon As Byte
dim pos as integer
pos=1 ' par exemple
Open CommonDialog1.FileName For Binary As #1
Get #1, Pos, Tampon

mais je n'arrive pas a avoir la ligne video length, avez vous une idée ?

voir fichier ci dessous :

2 réponses

Réponse 1 / 2
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
 74
Salut
Non, en VB6, 4 bytes = Long
Integer sous .Net = Long sous VB6

La structure de ton type serait :
Private Type typeMonFichier
   mTotalSize   As Long
   mYear        As Byte
   mMonth       As Byte
   mDay         As Byte
   mHour        As Byte
   mMinute      As Byte
   mVideoLength As Long
   mAspectRatio As Byte
   mQuality1    As Byte
   mQuality2    As Byte
End Type

et quand tu veux lire cet entête :
   Dim monEntête As typeMonFichier
   ...
   Get #x, 2, monEntête
   ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Réponse 2 / 2
Messages postés
86
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
10 juillet 2008
merci beaucoup je n'ai pas penser a definir un type

super cool, merci je test ça de suite !
Répondre Posez votre question