Discussion :

[sgmsg]

Bon j'ai un composant qui m'indique incompatibilité au niveau de la liste des paramètres.

Il compile bien sur Delphi seattle (version évaluation) (j'arrive à l'utiliser et à l'installer à la palette des composants même si Delphi Seattle ignore où il se trouve).

Quand je compile le programme demo. Le compilateur me donne comme message : "La liste des paramètres de la fonction est composée de variable Double et Integer. Voulez-vous la retirer de la liste de référence?"

Peut-on corriger ce problème? Si oui comment? Ou suis-je mieux de me procurer Delphi Seattle ?

Merci d'avance

[Paul TOTH]

l'unité Windows.pas est coutumière du fait, selon la version de Delphi certains paramètres sont déclarés Integer ou Cardinal; pour contourner cela il faut utiliser {$IFDEF VERxxx} pour déclarer selon la version du compilateur le bon type de paramètre.

voir http://docwiki.embarcadero.com/RADSt...du_compilateur

exemple rapide pour D6 uniquement

Code :

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

1
2
3
 
var
  i:{$IFDEF VER140}Integer{$ELSE}Cardinal{$ENDIF};

[sgmsg]

Excusez-moi, il y a une partie du message d'erreur du compilateur qui manque. L'erreur donnée par le compilateur est :

"La méthode X1Y référencée par X1.onY a une liste de paramètres incompatible. Voulez vous retirez la référence?"

La procédure est déclarée comme suit dans le programme demo:

Code :

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

1
2
procedure TForm.X1Y(Sender: TObject;
  DataId:Integer; TkType: TtkType; Implied, Delta, Model, pvD: Double);

J'ai essayé ça sans succès, d'ailleurs je ne crois pas que c'est ce qu'il faut faire :

Code :

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

1
2
procedure TForm.X1Y(Sender: TObject;
  DataId:{$IFDEF VER140}Cardinal{$ELSE}Integer {$ENDIF}; TkType: TtkType; Implied, Delta, Model, pvD: Double);

Il y a quelques chose intéressant dans les uses du composant

Code :

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

1
2
3
4
5
{$IF CompilerVersion >= 24.0}  // XE3
uses System.SysUtils, System.Classes, Winapi.Windows, Winapi.WinSock;
{$ELSE}
uses  SysUtils, Classes, Windows, Winsock;
{$IFEND}

Ca semble avoir étrangement rapport avec ce tu dis Paul.

Est-ce que Delphi 6, il y aurait une déclaration différente à faire?

Le concepteur vient de me dire que ça fonctionne pas pour D6, seulement à partir de D7: I would think the trouble is the dfm form resource file is not backward compatible.

[Paul TOTH]

quel est ce composant X1 ?

il n'y a pas d'incompatibilité à mon avis entre D6 et D7, ce que Delphi indique c'est que la déclaration de TForm.X1Y ne correspond pas à ce qu'attends la méthode X1.OnY.

une façon simple d'avoir la bonne déclaration est de placer un nouveau composant X2 et de double-cliquer sur OnY, Delphi ajoutera automatiquement la déclaration correcte.

mais c'est peut-être simplement la référence à TtkType qui est incorrecte, où est-il déclaré ?

[sgmsg]

quel est ce composant X1 ?

il n'y a pas d'incompatibilité à mon avis entre D6 et D7, ce que Delphi indique c'est que la déclaration de TForm.X1Y ne correspond pas à ce qu'attends la méthode X1.OnY.

Il pilote une interface, qui communique avec un serveur extérieur.

Je crois que tu as raison, il affirme que son composant marche sur Delphi 6 et plus, mais pas le démo...

une façon simple d'avoir la bonne déclaration est de placer un nouveau composant X2 et de double-cliquer sur OnY, Delphi ajoutera automatiquement la déclaration correcte.

Tu es vraiment génial!

J'ai extrait le corps de la procédure, compilé, cliqué sur l’évènement, injecté le corps dedans et recompilé le tout. Ça compilé #1. L'entête de l'évènement (procédure) n'est plus le même.

Pour le fonctionnement, ça planter au bout de quelques manipulations. Ce n'est donc pas compatible Delphi 6.

mais c'est peut-être simplement la référence à TtkType qui est incorrecte, où est-il déclaré ?

Je ne crois pas: il est déclaré dans le .pas du composant.


Merci, je vais me procurer Delphi Seattle démarrage ça va régler le problème.

[hormis que je dois copier le .pas du composant dans chaque répertoire projet car j'arrive pas à savoir dans quel répertoire qui ferait son bonheur une fois pour toute... ]}

[Paul TOTH]

[hormis que je dois copier le .pas du composant dans chaque répertoire projet car j'arrive pas à savoir dans quel répertoire qui ferait son bonheur une fois pour toute... ]}

la méthode la plus simple pour gérer cela, c'est à mon avis d'ajouter le .PAS au projet (bouton +) ce qui a pour effet de l'ajouter dans le fichier DPR (menu Voir Source) sous la forme

Code :

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

1
2
3
4
5
6
7
8
 
program Project1;
 
uses
  MonUnit in '..\lib\MonUnit.pas'; // le mot clé "in" donne un chemin relatif (ou pas) vers le .PAS sans ambiguïté possible
 
begin
end.

toute unité du projet pourra faire un simple "Uses MonUnit", son emplacement étant parfaitement défini dans le DPR.

[sgmsg]

Merci Paul