Discussion :

[marcus333]

Bonjour,
Je souhaite copier un fichier avec progressbar. J'ai trouvé le code suivant:

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
procedure TForm1.CopyFileWithProgressBar1(Source, Destination: string);
var
  FromF, ToF: file of byte;
  Buffer: array[0..4096] of char;
  NumRead: integer;
  FileLength: longint;
begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);
  with Progressbar1 do
  begin
    Min := 0;
    Max := FileLength;
    while FileLength > 0 do
    begin
      BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
      FileLength := FileLength - NumRead;
      BlockWrite(ToF, Buffer[0], NumRead);
      Position := Position + NumRead;
    end;
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFileWithProgressBar1('c:\Windows\Welcome.exe', 'c:\temp\Welcome.exe');
end;

Le problème c'est que j'ai message d'erreur : "

Undeclared identifier : CopyFileWithProgressBar1

Autrement dit, comment créer cette procédure? Si je fais un copier-coller simple du code, ca ne marche pas.

Merci pour toute aide.

[Pedro]

Salut
Il faut tout simplement que tu déclares cette procedure dans les membres de TForm1...

Code :

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

1
2
3
4
5
6
7
 
  TForm1=class(TForm)
  ...
  private
  public
    procedure CopyFileWithProgressBar1(Source, Destination: string);
  end;

Et c'est bon
Note: tu peux aussi la déclarer dans private mais alors les autres fiches ne pourront pas y accéder

[marcus333]

SUPER!!
Maintenant, je voudrais pouvoir choisir le fichier à copier par un "opendialogue1", et le copier vers une destination choisie aussi par le dialogue??

[Pedro]

Euh un petit coup de sur TOpenDialog ne ferait pas de mal ...
Tu dois avoir 2 boites de dialogue:
- Une pour sélectionner le fichier (Ex: OpenDialog1)
- Une pour sélectionner la destination (Ex: SaveDialog1)

Code :

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

1
2
3
 
  if (OpenDialog1.Execute) and (SaveDialog1.Execute) then
    CopyFileWithProgressBar(OpenDialog1.FileName,SaveDialog1.FileName);

Voila bon dev'

[marcus333]

MERCIII BEAUCOUP !!!
En fait, comment faire pour séléctionner et copier plusieurs fichiers à la fois ?

[Sub0]

comment faire pour séléctionner et copier plusieurs fichiers à la fois ?

Jette donc un oeil à ShFileOperation :

http://delphi.developpez.com/sources...no40source0019

Dans la page code source de Delphi, tu trouveras également mon code de copie de fichier qui ressemble au tien d'ailleurs...

http://delphi.developpez.com/sources...rche#SUBMyCopy

à+


Lien tout en bas à gauche de cette fenêtre

[marcus333]

Merci Sub0, très bon travail!

[Sub0]

Merci pour le compliment!
Malgré tout, je ne suis pas entièrement satisfait de mon travail; Il ne fonctionne pas exactement comme je le voudrais... Je le referai un de ces 4 lorsque j'aurai un peu de temps libre... Cela dit, rien ne t'empêche de t'en inspirer pour réaliser ton projet. Si tu as des questions, n'hésite pas, à+