Discussion :

[marcpleysier]

J'utilise un TIdFTP que je créé à la volée :

IdFTP:=TIdFTP.Create(ParentObject);
with IdFTP do begin
...
end;

Je veux mettre du code dans le OnWork pour faire avancer une barre de progression. J'ai donc créer une procédure :

procedure FTPOnWork(Sender:TObject;AWorkMode:TWorkMode; const AWorkCount:integer);
begin
...
end;

J'arrive pas à lier cette procédure à mon objet IdFTP :
OnWork:=FTPOnWork;
Erreur de compil : pointeur de méthode et procédure normale.

et là je suis au bout de mes compétances...

[Fabrice ROUXEL 1]

Bonjour Marc.

Ne paniques pas ce n'est pas compliqué.
La différence entre une procedure normale et une méthode tient au fait qu'une méthode est une procédure contenue dans une classe.

Ceci étant précisé, on comprend l'erreur:
-> le compilo attend une méthode et il reçoit une procédure.

Cela se corrige par exemple par:

Code :

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

1
2
3
4
5
procedure TForm1.FTPOnWork(Sender:TObject;AWorkMode:TWorkMode; const AWorkCount:integer);
begin
...
end;

Ici on utilise TForm1 mais la méthode peut être encapsulée dans sa propre classe distincte.

@+

[marcpleysier]

Merci pour la réponse rapide :-)

Le pb est que je n'ai pas de form.
J'ai une unité de procédures et functions FTP utilisées par diférentes forms :

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
 
unit UtilFTP;
 
interface
 
uses IdFTP,IdFTPCommon,IdComponent;
 
FTPDownload(sDossierWeb,sFichierWeb,sHost,sUser,sPassW,sFichier:string; bProgress:boolean; ParentObject:TComponent): string;
 
implementation
 
function FTPDownload(sDossierWeb,sFichierWeb,sHost,sUser,sPassW,sFichier:string; bProgress:boolean; ParentObject:TComponent): string;
var
  IdFTP: TIdFTP;
  procedure FTPOnWork(Sender:TObject;AWorkMode:TWorkMode; const AWorkCount:integer);
  begin
    ...
  end;
begin
  result:='';
 
  IdFTP:=TIdFTP.Create(ParentObject);
  with IdFTP do begin
    ...
    OnWork:=FTPOnWork;//Ici, ça marche pas.
    Get(sFichierWeb,sFichier,true);
  end;
end;

Je souhaite que ma fonction FTPDownload encapsule tous le code FTP.
Quelle est la déclaration correcte de ma méthode FTPOnWork?
Comment l'assigner à IdFTP.OnWork? (ou le contraire ;-))

[Fabrice ROUXEL 1]

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
 
unit UtilFTP;
 
interface
 
uses IdFTP,IdFTPCommon,IdComponent;
 
 TMyClass = Class(TObject)
 private
 protected
   function FTPDownload(sDossierWeb,sFichierWeb,sHost,sUser,sPassW,sFichier:string; bProgress:boolean; ParentObject:TComponent): string; 
 public    
 end;
 
var
 MyClass: TMyclass;
 
implementation
 
function TMyCLass.FTPDownload(sDossierWeb,sFichierWeb,sHost,sUser,sPassW,sFichier:string; bProgress:boolean; ParentObject:TComponent): string;
var
  IdFTP: TIdFTP;
 
  procedure FTPOnWork(Sender:TObject;AWorkMode:TWorkMode; const AWorkCount:integer);
  begin
    ...
  end;
begin
  result:='';
 
  IdFTP:=TIdFTP.Create(ParentObject);
  with IdFTP do begin
    ...
    OnWork:=FTPOnWork;//Ici, ça marche pas.
    Get(sFichierWeb,sFichier,true);
  end;
end;

Et ensuite:

Code :

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

1
2
  MyClass := TMyclass.Create(nil);
           IdFTP.OnWork := MyClass.FTPOnWork;

@+

[marcpleysier]

Ca marche, merci