Discussion :

[Papy214]

Bonjour

En voulant lire le premier octet d'un fichier, je me retrouve devant un comportement inquiétant.
Si quelqu'un voulait tester le petit bout de code suivant sous RIO, ça m'arrangerait

Nouveau projet FMX, je pose juste un TButton et un TMemo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TForm2.Button1Click(Sender: TObject);
const
  N = 'G:\Doccf.pdf';               //  remplacer par le nom de fichier de votre choix
var
  F: File;
  B: Byte;
begin
  AssignFile(F, N);
  FileMode := fmOpenRead;
  Reset(F);
  BlockRead(F, B, 1);
  Memo1.Text := B.ToString;
  CloseFile(F);
end;

[free07]

Bonjour,

Il faut indiquer avec Reset la taille de l'enregistrement que tu veux lire, si tu ne le précises pas, la taille de l'enregistrement par défaut est de 128 octets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Reset(F,1);

[SergioMaster]

Bonjour,

bon, j'ai testé et trouvé une erreur dans ton code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm28.Button1Click(Sender: TObject);
var
  F: File;
  B: Byte;
begin
if OpenDialog1.Execute then
 begin
  AssignFile(F, OpenDialog1.FileName);
  FileMode := fmOpenRead;
  Reset(F,1); // << Ici  
  BlockRead(F, B, SizeOf(B));
  Memo1.Text := B.ToString;
  CloseFile(F);
 end;
end;

En fait l'aide m'a été utile pour déterminer pourquoi cela m'envoyait balader avec ton code, mais cette même aide me file les jetons

Avertissement : C'est une ancienne méthode qui est particulièrement dangereuse à utiliser en raison du paramètre Buf non typé, conduisant à une corruption potentielle de la mémoire. La taille d'enregistrement utilisée par BlockRead et BlockWrite est gérée par le second paramètre facultatif de l'appel de Reset ou Rewrite ayant été utilisé pour ouvrir le fichier écrit. Il est préférable d'utiliser les flux dans vos applications. Par exemple, une procédure utilisateur impliquant un flux peut utiliser TMemoryStreams et TFileStreams, au lieu d'être limité à l'utilisation des fichiers comme avec ces anciennes routines.

Je pense que, sagement, il vaudrait mieux passer par les streams comme préconisé par l'aide.
Moi je dis ça, je dis rien je me suis juste contenté de tester ton code

[Edit] Grillé par free07 le temps que j'épistole

[pprem]

Je débarque alors que docwiki est en rade, mais y a aussi quelques perles dans System.IOUtils.TFile pour la lecture de fichiers sans écrire des tonnes de code. N'hésitez pas à y jeter un coup d'oeil.

[Papy214]

J'avais vu l'aide sur le buffer non type mais vu qu'on donne la taille à récupérer, je ne vois pas pourquoi ça pète la mémoire comme ça au blockread.

Alors, oui, avec un TFileStream, ça va mais je pense aux anciens projets qui pourraient utiliser ça et qu'il faudrait penser à migrer.
C'est le genre de truc à se faire des nœuds au cerveau si ne sait pas que c'est "dangereux"

Encore que j'ai du mal à comprendre que ça ne soit pas corrigé ou balisé.

[Papy214]

Je débarque alors que docwiki est en rade, mais y a aussi quelques perles dans System.IOUtils.TFile pour la lecture de fichiers sans écrire des tonnes de code. N'hésitez pas à y jeter un coup d'oeil.

Le but est de lire la structure d'un dbf: https://docs.microsoft.com/en-us/pre...75386(v=vs.71)

TFile me permettra effectivement de lire le fichier sous la forme d'un tableau d'octets que je traiterai dans un second temps.

[ShaiLeTroll]

Que cela soit TFileStream.Read ou BlockRead, je ne vois pas trop la différence, les deux sont avec un buffer non typé
On les a utilisé des années, tant que l'on est en environnement Windows, c'est maitrisé et sans risque particulier.

Papy, tu peux déclarer un packed record qui mappe ta structure des 32 premiers octets et une autre structure pour 31-264
un BlockRead avec un Reset en 32 pourrait très bien passé

en {$Z1}, c'est un Byte pour stocker de 0 à 255 (FF)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
type
  TFileType = (ftFoxBase = $02, FoxDBASEIII = $03, ..., tfFoxBASE_FB = $FB);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
THeader = packed record
  FileType: TFileType;
  LastUpdate = packed record
    Year: Byte;
    Month: Byte;
    Day: Byte;
  end;
  RecordCount: Cardinal; // Attention BigEndian ou LittleEndian
  DataSegmentStart:Word;
  DataRecordLength: Word;
  ... 
end;

je suis persuadé que l'on trouve ce format en Pascal

[Papy214]

Merci Shaï

Je reviens sur ce sujet un peu tardivement, désolé.
Mais c'est plus un sujet perso que pour le boulot

Je n'avais pas pensé à cette solution mais effectivement, ça marche bien.
Pour l'instant je n'ai testé que sur les quelques premiers éléments mais aucune raison que ça ne puisse aller plus loin.
Ça va donc se faire comme ça.