Forme d'appel de méthode réservé méthodes de classe

**Chicobrasil** · 02/01/2006, 23h46

Bonsoir,
quand je compile mon code, j'obtiens l'erreur suivante : "Forme d'appel de méthode autorisée seulement pour les méthodes de classes"
à cette ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  gauche:= '0';
  droite:= '0';
  haut  := '0';
  bas   := '0';
  //différents actions sur gauche, droite, haut et bas ...
  [b]Client.envoyerTouches(haut,bas,gauche,droite);[/b]
end;

Cette fonction me sert à envoyer une chaîne à partir d'un client vers un serveur en utilisant Winsocks:

Code :

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

1
2
3
4
procedure Client.envoyerTouches(haut,bas,gauche,droite:string);
		begin
			socket.sendStr('007 ' + haut + bas + gauche + droite +'#13#10');
		end;

et voici mes déclarations :

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
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Fleche_Haut: TImage;
    Fleche_Gauche: TImage;
    Fleche_Droite: TImage;
    Fleche_Bas: TImage;
    affichage: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  Client = class
			constructor creer(
				nom:String;
				serveur:String;
				port:String);
      destructor detruire();
			private
				socket:TWSocket;
				port:String;
				procedure onDnsLookupDone(sender:TObject; error:Word);
				procedure onSessionConnected(sender:TObject; error:Word);
				procedure onSessionClosed(sender:TObject; error:Word);
			public
        connecte:Boolean;
        [b]procedure envoyerTouches(haut,bas,gauche,droite:string);[/b]
      end;
var
  Form1: TForm1;
  gauche:string;
  droite:string;
  haut  :string;
  bas   :string;

Ma procédure est bien définie partout pareil, et je doute qu'une procédure du même nom soit définie dans uses standarts de Delphi. Je ne comprend vraiment pas d'où vient le problème :/

**bjl** · 03/01/2006, 00h03

Oi, esta realmente um chico do Brasil ?

question procedure, c'est normal.

Client est une classe, pas un objet de TForm1.

dans la procedure de Tform1, le compilateur cherche un objet de Tform1, une variable globale ou une méthode, mais pas une procédure de classe d'objet.

**Chicobrasil** · 03/01/2006, 01h01

é sou mesmo

Il n'y aurait pas de bidouille me permettant d'utiliser cette procédure de Client dans cette procedure de Tform1 ?

**adrien357** · 03/01/2006, 11h57

même si c'est pas très propre, tu peux modifier la fonction EnvoyerTouches pour qu'elle modifie les variables globales Gauche, Droite, Haut, Bas ... de cette manière TForm1 poura y accéder ... pas très propre mais ca devrait marcher !

**Chicobrasil** · 03/01/2006, 12h36

Le problème c'est que ces variables se modifie suivant l'appui sur les touches, donc au travers de la procédure TForm1.OnKeyDown

**bjl** · 03/01/2006, 13h06

Pourquoi ne pas déclarer client en amont de TForm1 en tant que class d'objet et déclarer une instance de client dans form1 ?

**Chicobrasil** · 03/01/2006, 13h23

je ne comprend pas très bien la syntaxe pour déclarer une instance de client dans form1

**LadyWasky** · 03/01/2006, 14h08

Effectivement, tu ne peux pas faire :

Code :

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

Client.envoyerTouches(haut,bas,gauche,droite);

parce que client, tu l'as déclaré comme type, ce n'est pas un objet. En fait c'est comme si tu étais en train de faire des trucs du style :

Code :

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

1
2
string:='Toto';
Integer:=5;

Il faut donc que tu déclares la variable de type Client, puis que tu utilises la variable pour accéder à ta procedure :

Code :

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

1
2
3
var MonClient:Client;
...
MonClient.envoyerTouches(haut,bas,gauche,droite);

Déjà,je te conseilles de renommer ton Client en TClient pour qu'il soit un peut plus "type" dans, :

Code :

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

1
2
3
Client = class
         constructor creer(
          ...

comme ça :

Code :

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

1
2
3
TClient = class
         constructor creer(
          ...

Ensuite, il va falloir que tu déclares ta variable pour ta fiche :

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
TForm1 = class(TForm)
    Label1: TLabel;
    Fleche_Haut: TImage;
    Fleche_Gauche: TImage;
    Fleche_Droite: TImage;
    Fleche_Bas: TImage;
    affichage: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    MonClient:TClient;
  end;

Puis que tu utilises ton constructeur (dans le OnCreate de ta fiche par exemple) :

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
   MonClient:=TCLient.creer(UnNom,UnServeur,UnPort);
end;

Détruire l'objet dans le FormDestroy :

Code :

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

1
2
3
4
procedure TForm1.FormDestroy(Sender: TObject);
begin
   MonClient.detruire;
end;

Et comme ça tu pourras l'utiliser comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  gauche:= '0';
  droite:= '0';
  haut  := '0';
  bas   := '0';
  //différents actions sur gauche, droite, haut et bas ...
  MonClien.envoyerTouches(haut,bas,gauche,droite);
end;

Avec tout ça, ça devrait marcher... 8)

**Chicobrasil** · 03/01/2006, 15h26

J'en suis sûr et je t'en remercie beaucoup, j'ai inséré les modifications, mais maintenant lors de l'éxécution, il n'arrive pas à trouver la form alors qu'elle est bien là :

---------------------------
Notification d'une exception du débogueur
---------------------------
Le projet fiche_client.exe a provoqué une classe d'exception EResNotFound avec le message 'Ressource TForm1 non trouvée'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.
---------------------------
OK Aide
---------------------------

même en mettant tout le code concernant TClient entre accolade (en vérifiant bien qu'elle ne se ferme pas en plein milieu).

Les commentaires ne sont pas censés être ignorés lors de la compilation ?

**LadyWasky** · 03/01/2006, 16h30

Mais qu'est ce que tu as fait ?

**Chicobrasil** · 03/01/2006, 16h44

Je ne sais vraiment pas

La form avait disparue, il ne restait plus que son unit.

Mais même en recréant tout proprement, quand j'ajoute le code relatif à TClient il me fait toujours la même erreur

**LadyWasky** · 03/01/2006, 16h51

Le code, il est a ajouter au .pas pas au .dfm !!! (tu as du basculer entre l'affichage mode fiche et l'affichage mode texte !)

Poste le code de ton unité une fois modifié. Je pourrais sans doute t'aider.

**Chicobrasil** · 03/01/2006, 17h11

oui j'ai bien tout rajouté dans le .pas, pas le .dfm

Version qui marche

Version qui ne marche pas

**bjl** · 03/01/2006, 17h25

il manque l'appel à la dfm dans l'unit qui ne marche pas

{$R *.dfm}

en plus, est ce qu'il ne faudrait pas déclarer TClient en class(Tobject) ?

**Chicobrasil** · 03/01/2006, 17h27

Merci beaucoup, moi qui virait cette ligne pensant qu'elle ne servait à rien, ça m'apprendra

**LadyWasky** · 03/01/2006, 17h42

hmmm, déjà les constructeurs et destructeurs de TClients devraient être dans la partie Public ta classe :

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
TClient = class
              private
                 socket:TWATCPClient;
                 port:String;
                 procedure onDnsLookupDone(sender:TObject; error:Word);
                 procedure onSessionConnected(sender:TObject; error:Word);
                 procedure onSessionClosed(sender:TObject; error:Word);
              public
                 connecte:Boolean;
                 constructor creer(nom:String;
                                   serveur:String;
                                   port:String);
                 destructor detruire;
                 procedure envoyerTouches(haut,bas,gauche,droite:string);
              end;

Et tu dois supprimer ça :

Code :

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

1
2
3
4
procedure MonClient.envoyerTouches(haut,bas,gauche,droite:string);
begin
   socket.sendStr('007 ' + haut + bas + gauche + droite +'#13#10');
end;