[D7][WIN32]concaténer deux fichiers

Version imprimable

05/10/2006, 17h12
Herk77

[D7][WIN32]concaténer deux fichiers

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. :aie:
Quelqu'un aurait il une idée ?
05/10/2006, 21h40
Sub0

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... à+

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

Code:

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 :)

06/10/2006, 09h33
Herk77

En fait je veux rajouter une entête de fichier bitmap à un fichier quelconque. :aie:
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 ?
06/10/2006, 09h59
Lung

Citation:

Envoyé par Herk77

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

Non. Sous D6, je l'ai aussi.
06/10/2006, 10h57
Herk77

J'ai essayé Blockread et blockwrite mais j'ai une interruption : Erreur E/S 998 :cry:
06/10/2006, 11h25
hy00ga

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 ?
06/10/2006, 11h28
Herk77

J'ai commencé avec la taille du fichier, et après j'ai essayé avec une taille plus petite.
06/10/2006, 11h45
hy00ga

Et dans les 2 cas tu as l'erreur 998 ?
06/10/2006, 12h31
Herk77

oui, j'ai toujours l'erreur, même avec ton code. 8O
Ca coince sur le BlockRead.
06/10/2006, 12h59
hy00ga

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

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

Code:

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 :D , mais pourquoi ? :aie: :?

06/10/2006, 15h06
Herk77

De plus, avec

Code:

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

c'est plus rapide qu'avec

Code:

Buf: Array of Char;

et

Code:

SetLength(Buf,1024);

quelqu'un sait il pourquoi ? :roll:
06/10/2006, 15h20
hy00ga

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 :)
06/10/2006, 15h59
Herk77

Et bien merci pour ton coup de main. :D
Cette technique est bien plus rapide pour les gros fichiers que la copie octet par octet. (cela dit c'est logique :P )