Discussion :

[Herk77]

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]

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]

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]

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]

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

Non. Sous D6, je l'ai aussi.

[Herk77]

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