ftp client ondisplay

bonjour

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

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

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:

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

le compilateur me reponds
Code:

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

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

Code:

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;

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

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

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

Code:

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

puis le code qui cree le ftpclient

Code:

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

Citation:

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:

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:

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:

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

parfait cela marche je te remercie