Je trouve dommage que pour le chargement d'un header de fichier et surtout pour le rendre compatible en ASCII et Unicode, on soir obliger de faire tout a la main.
Avec un fichier ASCII simple et en mode non Unicode, on peu faire :
Code : Tout sélectionner
Structure lwo_header
form.s{4}
flen.l
lwo2.s{4}
EndStructure
Protected header.lwo_header
; un simple (on a bien fait l'ouverture du ficher et tout forcment, la je fait au plus simple) :
ReadData(ifile, header, SizeOf(lwo_header))
; pour envoyer les données dans la structure.
Code : Tout sélectionner
header\form = ReadString(ifile, #PB_Ascii, 4)
header\flen = ReadLong(ifile)
header\lwo2 = ReadString(ifile, #PB_Ascii, 4)
Code : Tout sélectionner
Structure lwo_header
form.p-ascii{4}
flen.l
lwo2.p-ascii{4}
EndStructure
Cordialement,
GallyHC