Discussion :

[SkYsO]

Bonjour à tous,

Voilà je tente de faire une application avec un système de plugin et pour pouvoir y connecter facilement n'importe quel style de dll je pensais utiliser la syntaxe suivante à l'interieur des dlls:

Function mafonction(params : Array of Const) : variant

C'est une syntaxe que j'ai trouvé dans un post.

J'ai aussi une procédure qui me permet de charger la dll en question

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
 
 
 TMaFonc = Function(params : array of Const) : variant;
 
 
Procedure TMDC_Application_M.Appeler_Dll(Nom_dll, Nom_proc : string; params : array of Const);
var
  Handle : THandle;
  i : integer;
  MaFonction : TMaFonc;
begin
  Handle:=LoadLibrary(Pchar(Nom_dll));     //chargement de la dll
  if Handle <> 0 then
  begin
    try
      //Charge dynamiquement la fonction de la dll
      @MaFonction:=GetProcAddress(Handle,'UneSomme');//PChar(Nom_Proc));
      if @MaFonction <> nil then
        i:=MaFonction(params);
    finally
      FreeLibrary(Handle);
    end;
  end;
end;

Donc déjà ça plante au niveau Procedure TMDC_Application_M.Appeler_Dll(Nom_dll, Nom_proc : string; params : array of Const);
car il ne comprend pas le Array of Const. et dans la procédure ou je rempli mon params je ne peux pas non plus déclarer la variable.

Si je remplace le tout par un Array of variant, l'appel à la fonction, dans la dll, ne marche pas.

Help

merci pour tout

[tourlourou]

vu un post il y a peu : regarde du côté de varargs

[SkYsO]

Je vais voir ce que je peux trouver là dessus, merci.

Par contre je n'ai rien dans mon aide Delphi sur ce point ;(

[tourlourou]

http://www.developpez.net/forums/vie...948&highlight=

[SkYsO]

merci, j'avais trouvé ce post déjà ^^

Je vous tiens au courant de mon avancé pour le moment incertaine

[Laurent Dardenne]

Donc déjà ça plante au niveau Procedure TMDC_Application_M.Appeler_Dll(Nom_dll, Nom_proc : string; params : array of Const);
car il ne comprend pas le Array of Const.

Essai avec

Code :

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

array of TVarRec

cf. la fonction VarIsType.
A l'avenir merci d'indiquer les messages d''erreurs rencontrés.

Paramètres tableau ouvert variant

Les paramètres tableau ouvert variant permettent de transmettre un tableau d'expressions de types différents à une seule routine. Pour définir une routine utilisant un paramètre tableau ouvert variant, spécifiez array of const comme type du paramètre. Donc

Code :

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

1
2
 
 procedure DoSomething(A: array of const);

déclare une procédure appelée DoSomething qui peut agir sur des tableaux de données hétérogènes.

La construction array of const est équivalente à array of TVarRec. TVarRec, déclaré dans l'unité System, représente un enregistrement avec une partie variable qui peut contenir des valeurs de type entier, booléen, caractère, réel, chaîne, pointeur, classe, référence de classe, interface et variant. Le champ VType de TVarRec indique le type de chaque élément du tableau. Certains types sont transmis comme pointeur et non comme valeur ; en particulier les chaînes longues sont transmises comme Pointer et doivent être transtypées en string.

L'exemple suivant utilise un paramètre tableau ouvert variant dans une fonction qui crée une représentation sous forme de chaîne de chaque élément transmis et concatène le résultat dans une seule chaîne. Les routines de manipulation de chaînes utilisées dans cette fonction sont définies dans l'unité SysUtils.

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
 
 function MakeStr(const Args: array of const): string
var
  I: Integer;
begin
  Result := '';
  for I := 0 to High(Args) do
     with Args[I] do
        case VType of
            vtInteger:  Result := Result + IntToStr(VInteger);
            vtBoolean:  Result := Result + BoolToStr(VBoolean);
            vtChar:     Result := Result + VChar;
            vtExtended: Result := Result + FloatToStr(VExtended^);
            vtString:   Result := Result + VString^;
            vtPChar:    Result := Result + VPChar;
            vtObject:   Result := Result + VObject.ClassName;
            vtClass:    Result := Result + VClass.ClassName;
            vtAnsiString:  Result := Result + string(VAnsiString);
            vtCurrency:    Result := Result + CurrToStr(VCurrency^);
            vtVariant:     Result := Result + string(VVariant^);
            vtInt64:       Result := Result + IntToStr(VInt64^);
  end;
end;

Il est possible d'appeler cette fonction en utilisant un constructeur de tableau ouvert. Par exemple,

Code :

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

MakeStr(['test', 100, ' ', True, 3.14159, TForm])

renvoie la chaîne

'test100 T3.14159TForm'

[anapurna]

salut

je pense qu'il serait util de mettre un separateur dans la chaine resultante afin de pouvoir inverser le processus

sinon un pchar suffit largement pour le passage de paramettre

@+ Phil

[SkYsO]

Merci et désolé pour le multiPost.

Donc ça marche très bien tout ça.


Une derniere question : Est ce que des je peux aussi écrire des dlls en C qui pourront servir de plugin, à mon appli Delphi, avec ce système ?

[Laurent Dardenne]

Merci et désolé pour le multiPost.

C'est comme les goto faut éviter

Donc ça marche très bien tout ça.

Pour confirmation ( pour la FAQ) l'usage du TVarRec régle ton pb sous D6 ?

Une derniere question : Est ce que des je peux aussi écrire des dlls en C qui pourront servir de plugin, à mon appli Delphi, avec ce système ?

La gestion de la pile est différente dans ce cas, là c'est la solution proposée dans l'autre post cité.
Mais le mieux c'est d'essayer

[SkYsO]

Pour confirmation ( pour la FAQ) l'usage du TVarRec régle ton pb sous D6 ?

Oui cela marche assez bien avec ça pour D6
Je vais tester les différents types.

Bon par contre si je veux aussi utiliser du C, je pourrais pas.
Je vais tacher de reprendre l'autre post.

Merci en tout cas.

ps : à bas les goto ^^ (et les multiposts)