Lire 4 bytes dans un fichier binaire

Résolu
cs_ravachol Messages postés 86 Date d'inscription vendredi 28 décembre 2001 Statut Membre Dernière intervention 10 juillet 2008 - 4 juil. 2008 à 19:19
cs_ravachol Messages postés 86 Date d'inscription vendredi 28 décembre 2001 Statut Membre Dernière intervention 10 juillet 2008 - 4 juil. 2008 à 19:44
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

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
4 juil. 2008 à 19:35
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)
3
cs_ravachol Messages postés 86 Date d'inscription vendredi 28 décembre 2001 Statut Membre Dernière intervention 10 juillet 2008
4 juil. 2008 à 19:44
merci beaucoup je n'ai pas penser a definir un type

super cool, merci je test ça de suite !
0
Rejoignez-nous