Discussion :

[m.nico]

bonjour

dans une unite je voudrais utiliser le compostant ftpclient
je le cree puis j'assigne on display a une procedure

Code :

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

1
2
3
 
ftpclient := TFtpClient.create(nil);
ftpclient.OnDisplay := ftpclientdisplay;

mais la compile j'ai une erreur

[Erreur] UPROC.pas(26): Types incompatibles : pointeur de méthode et procédure normale

que dois je faire pour traiter les evenement display ?


merci d avance

[madfu]

bonjour,

tu dois déclarer ta procédure ftpclientdisplay comme un pointeur de procédure car c'est ce qui est attendu en affectation de ta classe TFtpClient.


pour cela complète la déclaration de ta fonction comme ceci :

Code :

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

1
2
3
 
 
procedure ftpclientdisplay (param..) of object;

[m.nico]

le compilateur me reponds

Code :

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

1
2
3
4
 
 
 
[Erreur] UPROC.pas(11): ';' attendu(e) mais 'OF' trouvé(e)

que dois je faire ?

[denokan]

essaye de déclarer ftpclientdisplay comme une méthode d'objet, de ta form par exemple :

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
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure ftpclientdisplay(...);
  end;
 
implementation
 
procedure TForm1.ftpclientdisplay(...);
begin
  // ici mon code
end;

[m.nico]

essaye de déclarer ftpclientdisplay comme une méthode d'objet, de ta form par exemple :

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
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure ftpclientdisplay(...);
  end;
 
implementation
 
procedure TForm1.ftpclientdisplay(...);
begin
  // ici mon code
end;

merci le porbleme est la je n utyilise pas de forme

[madfu]

tu peux faire un copier-coller de ton code, en particulier de la déclaration de tafonction?

[m.nico]

Code :

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

1
2
 
procedure  FtpClientDisplay(Sender: TObject; var Msg: String)  of object;

puis le code qui cree le ftpclient

Code :

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

1
2
3
4
 
begin
ftpclient := TFtpClient.create(nil);
ftpclient.OnDisplay := ftpclientdisplay;

[madfu]

procedure FtpClientDisplay(Sender: TObject; var Msg: String) of object;

autant pour moi je me suis mélangé les pinceaux avec la déclaration d'un pointeur de méthode , je voulais parler de ça :

Code :

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

1
2
 
Type TMyEvent = procedure(param...) of object

Le problème est que pour affecter une procédure à ftpclient.OnDisplay il te faut une procédure qui appartient à une classe alors le plus simple pour moi serait de faire comme suit :

1-créer une classe bidon avec ton code dedans:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type TMyEventHandler=class
   procedure Ondisplay (Sender: TObject; var Msg: String);
end;
 
implementation
 
(...)
 
procedure TMyEventHandler.Ondisplay (Sender: TObject; var Msg: String);
begin
  //ton code ici
end;

2-instancier ta classe TMyEventHandleret affecter la procédure de ta classe à ftpclient.OnDisplay

Code :

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

1
2
3
4
5
6
7
 
var
  evt: TMyEventHandler;
begin
  ftpclient := TFtpClient.create(nil);
  evt := TMyEventHandler.create;
  ftpclient.OnDisplay := evt.Ondisplay ;

chez moi ça compile et excuse pour la fausse indication