Discussion :

[asecos]

Bonjour à tous,

Désolé pour le titre pourri j'arrivais pas bien à expliquer succinctement mon besoin.

Je suis entrain de développer un protocole de dialogue sur liaison série entre mon PC et un équipement que j'ai développé
et j'aimerais écrire une librairie de fonctions "le plus élégamment" du monde, sans écrire 40 fois la même chose.

En gros pour faire simple, j'ai écris des fonctions bas niveau de dialogue, et maintenant j'aimerais écrire des fonctions par dessus du genre :

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
 
 
interface
 
function Commande1():boolean;
function Commande2():boolean;
function Commande3():boolean;
function Commande4(out parametre_sortie: String):boolean;
function Commande5(out parametre_sortie: String):boolean;
 
implementation
 
function Commande1():boolean;
begin
   result:= FonctionBasNiveau1('ma_syntax_commande_1');
end;
 
function Commande2():boolean;
begin
   result:= FonctionBasNiveau1('ma_syntax_commande_2');
end;
 
function Commande3():boolean;
begin
   result:= FonctionBasNiveau1('ma_syntax_commande_3');
end;
 
 
function Commande4(out parametre_sortie: String):boolean;
begin
   result:=FonctionBasNiveau2('ma_syntax_commande_4',parametre_sortie);
end;
 
function Commande5(out parametre_sortie: String):boolean;
begin
   result:=FonctionBasNiveau2('ma_syntax_commande_5',parametre_sortie);
end;

ça fonctionne mais je trouve ça totalement inélégant !!! J'aurais préféré un fichier qui ressemble à ça dans l'esprit (la syntax est fausse biensur)

Code :

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

1
2
3
4
5
6
7
8
 
interface
 
function Commande1():boolean; alias FonctionBasNiveau1('ma_syntax_commande_1');
function Commande2():boolean; alias FonctionBasNiveau1('ma_syntax_commande_2');
function Commande3():boolean; alias FonctionBasNiveau1('ma_syntax_commande_3');
function Commande4(out parametre_sortie: String):boolean; alias FonctionBasNiveau2('ma_syntax_commande_4',parametre_sortie);
function Commande5(out parametre_sortie: String):boolean; alias FonctionBasNiveau2('ma_syntax_commande_5',parametre_sortie);

avoir juste une partie définition et pas d'implémentation, puisque mes fonctions ne sont que des "alias" vers d'autres fonctions avec des paramètres
fixes !!!

Je suis certain qu'il y a un moyen plus élégant que mon code exemple plus haut, mais j'ai passé plusieurs jours sur le net et j'ai rien trouvé.

Merci d'avance pour votre aide

[tourlourou]

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
interface
 
const
  CMD_ENVOYER  = 1;
  CMD_RECEVOIR = 2;
 
function CommandeSimple( aCommand: integer): Boolean;
 
implementation
 
function CommandeSimple( aCommand: integer): Boolean;
var
  commande: string;
begin
  Case aCommand of
   CMD_ENVOYER: commande := 'ma_syntax_commande_1';
   CMD_RECEVOIR:commande := 'ma_syntax_commande_2';
  end;
 
  Result := FonctionBasNiveauSimple( commande);
end;

[asecos]

c'est effectivement une manière de contourner le problème, mais j'ai pour habitude de fournir des librairies ou chaque fonctionnalité a une fonction delphiassociée afin de faciliter la lecture et l'utilisation.

pour avoir des codes du genre

Code :

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

1
2
3
4
5
6
7
 
 
Initialisation();
 
DemarrageAlim();
 
PilotageInstrument1();

je trouve cela plus lisible que

Code :

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

1
2
3
4
5
6
7
 
 
EquipementDialogue(INIT);
 
EquipementDialogue(START_ALIM);
 
EquipementDialogue(INSTRUMENT_1);

mais c'est une question d'habitude... je veux surtout savoir s'il y a un moyen de limiter mon code à la section interface ou non. C'est juste histoire d'améliorer encore ma connaissance du language.

Je te remercie pour ton aide.

[Andnotor]

Rien ne t'empêche d'utiliser les mêmes noms de fonction.

Une unité Headers avec les exports qui fait référence à une unité bas niveau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
unit Headers;
 
uses BasNiveau;
 
function Commande4(out parametre_sortie: PChar):boolean; stdcall;
begin
  result := BasNiveau.Commande4('ma_syntax_commande_4', parametre_sortie);
end;
 
exports
  Commande4;

Attention aux types de paramètre, string va coincer.

[asecos]

Merci Andnotor, mais je ne vois pas bien l'économie au niveau codage par rapport à ce que j'écrivais déjà ? c'est aussi lourd non ?

[Paul TOTH]

il n'existe pas d'alias ou de #define sous Delphi, il faudra donc bien déclarer tout cela, par contre il peut être intéressant d'ajouter "inline" pour éviter la redirection...le seul défaut de 'inline' c'est que la fonctionne appelée doit être aussi accessible sinon tu as un warning qui t'indique que l'appel ne peut pas se faire en inline => il faut faire un uses de BasNiveau en plus de Headers.