Discussion :

[SergioMaster]

Bonjour
Comment traiter ce contenu de stream (<bh:00> remplace 00)

DATEC=20230914121613<bh:00>FORMAT=tif<bh:00>FILENAME=F2022-6045.tif<bh:00>FTDATEM=20230116091534<bh:00>FTDATEA=20230914121602<bh:00>FTDATEC=20230116083700<bh:00>

je pensais mettre ceci dans un Array of String, mais la manipulation entre le stream et sa destination m'échappe

[Paul TOTH]

Bonjour
Comment traiter ce contenu de stream (<bh:00> remplace 00)

je pensais mettre ceci dans un Array of String, mais la manipulation entre le stream et sa destination m'échappe

je n'ai pas compris ton "(<bh:00> remplace 00)"...c'est une série de PChar ?

ton stream c'est quel type de stream ?

[SergioMaster]

Bonjour,

c'est un TFileStream et le <bh:00> est là pour indiquer qu'il s'agit d'un octet de valeur 00

[ShaiLeTroll]

Tu peux le voir comme un array de chaine à zéro terminal

Sinon, il faut lire le fichier en buffer
Regarde ReadLineRaw c'est la même chose en CRLF mais avec un 0x00 ça fonctionne aussi ce type d'algo, c'est juste une lecture binaire bufferisé (le ReadLn standard de Delphi fait pareil)

pour résumer
- Position du début de la chaine
- Position du séparateur
- Extraction entre les deux
- Position du début de la chaine devient la position du séparateur + longueur du séparateur

Cela boucle jusqu'au dernier Zéro
A chaque boucle, faut gérer en plus la possibilité que la chaine souhaitée soit à cheval sur deux buffers ou sur plus encore (là faut relire généralement la section complète)

[SergioMaster]

J'ai fait une analyse caractère par caractère qui fonctionne

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
16
17
18
19
20
21
22
23
24
25
26
27
procedure getinfos(const FileName : String; const M : Tmemo);
var FS : TFileStream;
    Pos, long : Integer;
    S : String;
    B : TArray<Byte>;
    C : Char;
begin
  M.Lines.Clear;
  if (not FileExists(FileName)) then exit;
  pos :=GetSize(FileName); // pour obtenir la position de début des infos (6 infos de type xxxxxx=xxxxxxx)
  FS := TFileStream.create(FileName, fmOpenRead or fmShareDenyWrite);
  FS.Position:=pos;
  long:=FS.Size-pos; // infos de taille variable, situées à la fin du fichier  
  SetLength(B,long);
  FS.Read(B,Long);
  S:=EmptyStr;
  for var i := low(b) to high(b) do
   begin
     if (B[i]=0)
      then begin
       if not S.IsEmpty then m.Lines.Add(S);
       S:=EmptyStr;
      end
      else S:=S+Char(B[i]);
   end;
  FS.Free;
end;

mais je me demande s'il n'y a pas plus simple

[ShaiLeTroll]

Plus simple, surement avec un fichier minuscule
Chargement du fichier entier dans un RawByteString puis conversion vers String et recherche via System.Classes.ExtractStrings (non le 0x00 ça ne lui plaira pas)
Le zéro comme séparateur, il faut tout de même se méfier de fonction à base de PChar qui pourrait ne pas comprendre que c'est un séparateur

Regarde ExplodeLazy cela fait la même chose, idem, petit fichier chargé en entier
J'avais écrit les versions binaires de ExplodeLazy et SearchString pour lire les fichiers DUMP, si je le retrouve ... d'ailleurs à peu de chose près, la découpe de plusieurs buffer consécutif reçu par Socket, cela y ressemble beaucoup

Plus rapide mais moins lisible, certains aussi

Code :

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

S:=S+Char(B[i]);

Mémoriser les positions c'est plus rapide qu'un concat en boucle mais FastMM te sauve en perf à ce sujet.