[D7][WIN32]concaténer deux fichiers

**Herk77** · 05/10/2006, 17h12

Salut,
je voudrais soit insérer des données (octet par octet) en début d'un fichier, soit concaténer deux fichiers. Pour l'instant je fais une copie octet par octet, et ça peut devenir long sur des fichiers de plusieurs Mo.

Quelqu'un aurait il une idée ?

**Sub0** · 05/10/2006, 21h40

Insérer (la vraie insersion) des données en début d'un fichier est impossible; Je m'explique : En fait, il faut créer un nouveau fichier, faire une copie. Par contre, il est possible d'ajouter des nouvelles données à la fin d'un fichier. Jette donc un oeil à la FAQ si tu cherches des exemples de code, tu trouveras tout ce dont tu as besoin. Et n'oubli pas la touche F1, renseigne toi en particulier sur la classe TFileStream... à+

**hy00ga** · 06/10/2006, 00h50

Hummm... perso je ferai a peu près comme ca ... En améliorant un peu la gestion d'erreur bien entendu.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
 
//--------------------------------------------------------------------------//
// procedure: Append
// But      : Cette fonction concatene les fichier1 et fichier2 et met le
//            resultat de cette concatenation dans fichierDest
//
// Params   : fichier1    : le fichier qui sera au debut de fichierDest
//            fichier2    : le fichier qui sera à la fin de fichierDest
//            fichierDest : le résultat de la concatenation
//
// Remarque : Le fichier de destination doit etre différent de ceux d'entrée
//--------------------------------------------------------------------------//
procedure TForm1.Append(fichier1, fichier2 : String; fichierDest : String );
  var f1, f2, fdest : File;
      fSize         : Integer;
      buffer        : String;
begin
 
  if FileExists(fichier1) and FileExists(fichier2) then begin
 
    try
      AssignFile(f1,fichier1);
      AssignFile(f2,fichier2);
      AssignFile(fdest,fichierDest);
      Reset(f1);
      Reset(f2);
      Rewrite(fdest);
      fSize := FileSize(f1);
      BlockRead(f1, buffer, fSize );
      BlockWrite(fdest, buffer, fSize);
      fSize := FileSize(f2);
      BlockRead(f2, buffer, fSize );
      BlockWrite(fdest, buffer, fSize);
    finally
      CloseFile(f1);
      CloseFile(f2);
      CloseFile(fdest);
    end;//try
 
  end else begin
    ShowMessage('Un des fichier spécifiés en entrée n''existe pas');
  end;//if
 
end;

Si tu veux écrire octet par octet, au lieu de passer la taille du fichier en entier dans le BlockRead BlockWrite tu met 1 comme taille et tu fais une boucle while not EOF(f1) ... si ca peut t'aider

**Herk77** · 06/10/2006, 09h33

En fait je veux rajouter une entête de fichier bitmap à un fichier quelconque.

La méthode pour faire l'entête je l'ai et elle est au point.
Je vais essayer avec les blockread et blockwrite pour voir si c'est plus rapide pour copier le fichier après l'entête.

question: le TFileStream c'est seulement en .NET, non ?

**Lung** · 06/10/2006, 09h59

Envoyé par Herk77

question: le TFileStream c'est seulement en .NET, non ?

Non. Sous D6, je l'ai aussi.

**Herk77** · 06/10/2006, 10h57

J'ai essayé Blockread et blockwrite mais j'ai une interruption : Erreur E/S 998

**hy00ga** · 06/10/2006, 11h25

Hummm..

998 :L'accès à cet emplacement de la mémoire n'est pas valide.

J'ai po eu ce problème dans ma fonction ... ca fait un bail que je l'utilise et je l'ai retestée hier ... Tu lis par block de 1 dans ton fichier la ?

**Herk77** · 06/10/2006, 11h28

J'ai commencé avec la taille du fichier, et après j'ai essayé avec une taille plus petite.

**hy00ga** · 06/10/2006, 11h45

Et dans les 2 cas tu as l'erreur 998 ?

**Herk77** · 06/10/2006, 12h31

oui, j'ai toujours l'erreur, même avec ton code.

Ca coince sur le BlockRead.

**hy00ga** · 06/10/2006, 12h59

Ahh c'est peut etre la facon dont j'ai fait le buffer... Mais c'est etrange que ca marche chez moi

J'essayerai de voir ca quand je rentre .. vers 17h

**Herk77** · 06/10/2006, 14h46

J'ai trouvé un tuto de Bodman que j'ai retouché :

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
procedure Append(fichier1, fichier2: String; fichierDest: String );
var
  F1, F2, FDst: File;
  lus, ecrit: Integer;
  Buf: array[0..1023] of Char;
begin
  AssignFile(F1, fichier1);
  Reset(F1,1);
  AssignFile(F2, fichier2);
  Reset(F2,1);
  AssignFile(FDst, fichierDest);
  Rewrite(FDst,1);
  repeat
    BlockRead(F1, Buf, SizeOf(Buf), lus);
    BlockWrite(FDst, Buf, lus, ecrit);
  until (lus = 0) or (ecrit <> lus );
  repeat
    BlockRead(F2, Buf, SizeOf(Buf), lus);
    BlockWrite(FDst, Buf, lus, ecrit);
  until (lus = 0) or (ecrit <> lus );
  CloseFile(F1);
  CloseFile(F2);
  CloseFile(FDst);
end;

et ça marche

, mais pourquoi ?

**Herk77** · 06/10/2006, 15h06

De plus, avec

Code :

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

Buf: Array[1..1024] of Char;

c'est plus rapide qu'avec

Code :

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

Buf: Array of Char;

et

Code :

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

SetLength(Buf,1024);

quelqu'un sait il pourquoi ?

**hy00ga** · 06/10/2006, 15h20

Je veux pas dire de bêtise. Mais il me semble que dans le premier cas on a un tableau statique et dans le 2eme on a un tableau dynamique. Dans le premier cas, il peut réserver l'espace necessaire a la compilation. Dans le 2eme cas il devra alouer la mémoire sur le tas ce qui est moins rapide.

En ce qui concerne le code .. ouaip c'est ce que je pensait changer.. mettre un tableau de caractères

parce que dans mon cas je ne lui spécifiait aucune taille... c'est etrange d'ailleur que ca marche chez moi