Discussion :

[smyley]

Est-ce possible en Delphi ( ou avec l'Assembleur en ligne ) de créer dynamiquement la liste des paramètres d'une procédure/fonction ? par exemple la fonction que voici :

Code :

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

1
2
3
4
5
 
function DoAThing ( Param1 : Integer; Param2 : byte ) : Boolean;
begin
...
end;

j'aurai aimé pouvoir faire quelque chose du genre :

Code :

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

1
2
3
4
5
6
 
for i := 0 to Length(Params)-1 do
 begin 
  Move(Params.ParamPointer,UnStack,Params.ParamSystemSize);
 end;
Move(CallFunction(@DoAThing,UnStack),Pointer(Result)^,ResultSize);

c'est possible ?

[Benjamin GAGNEUX]

Salut,

Pourquoi ne pas utiliser une TList en paramètre ?

Code :

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

1
2
3
4
5
 
function DoAThing ( ParamList : TList ) : Boolean;
begin
...
end;

Comme cela, tu pourras choisir le type de chaque paramètre ainsi que le nombre de paramètres.

[smyley]

Oui mais pour par exemple faire un intérpréteur de script et ensuite charger une fonction avec LoadLibrary, ce serai utile de pouvoir reconstruire la liste des paramètres de façon dynamique ...

[Nono40]

Si j'ai bien compris tu veux pouvoir avec le même code appeller une fonction d'une dll dont la listes des paramètres est connue mais variable ?

Il te faudra transmettre à ce code la liste des paramètres sous une certaine forme, puis dans le code d'empiler en assembleur tous les paramètres en fonction de ce qui est passé puis d'appeler la fonction ( toujours en assembleur ) de ta dll.

Mine de rien ta question simple en apparence est compliquée à mettre en oeuvre.

Est-ce que tes dll sont en fait des objets COM / Interfaces ? Ou des dlls classiques ?

[smyley]

c'est pour une dll classique. Je voudrais créer un interpréteur simple pour un de mes programmes ( juste quelque fonctions présentes dans l'api Windows ). Par exemple, pour exécuter le script

Code :

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

1
2
 
function MessageBox(Integer,PChar,PChar,Integer) : Integer;external "user32.dll" //si toutefois je me trompe pas de dll

Je pourrai pas trop difficillement compiler un Integer comme un champ de 4 bytes en mémoire et un pchar comme un enregistrement de Char terminé par #0 grâce aux pointeurs. Mais alors comment empiler les paramètres en assembleur en ayant pour chaque type qu'un Pointeur indiquant sa valeur et un Integer indiquant la taille du Pointeur ?

note. Je crois que le type PChar est plus un pointeur vers un champ de Char qu'autre chose, donc égallement comment définir le type Pointeur en assembleur ?

[LadyWasky]

Tiens, c'est marrant, moi aussi je cherche à faire un petit interpreteur simplissime, voici l'idée que j'ai creusé :

Il s'agit d'utiliser par exemple un Paramètre de type TStrings :

Code :

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

1
2
3
4
function DoAThing ( ParamList : TStrings ) : Boolean;
begin
...
end;

En effet, à partir du TstringList, tu dois puvoir te faire un petit "scripting" maison assez facilement puisque chaque ligne du TStringList peut être écrite comme suit :

Code :

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

1
2
3
4
param1=valeur1
param2=valeur2
param3=valeur3
...

tu accèdes aux paramètres avec la propriété Names, et aux valeurs avec la propriété Values :

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
 
procedure Action1(AValue:string);
begin
...
end;
 
procedure Action2(AValue:string);
begin
...
end;
 
function DoAThing ( ParamList : TStrings ) : Boolean;
var i:integer;
begin
   for i:=0 to ParamList.Count-1 do
   begin
      if ParamList.Names[i]='Action1' then Action1(ParamList.Values[i]);
      if ParamList.Names[i]='Action2' then Action2(ParamList.Values[i]);
   end;
end;

tu as a ta disposition plein de propriété et methode intéressantes comme :

• CommaText
  DelimitedText
  Delimiter
  Names
  NameValueSeparator
  QuoteChar
  Strings
  StringsAdapter
  Text
  ValueFromIndex
  Values

A partir de là tu peux mème imaginer imbriquer des sous listes de paramètres pour te faire un système de boucle par exemple.


Concrêtement, sur une fiche, tu met deux memos (memo1 est la sortie, memo2 le code en entrée), et un bouton :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    valeur,debut,fin,increment,DebutBoucle:integer;
    procedure ActionPRINT(AValue:string);
    procedure InitBoucle(ParamList : TStrings);
    function DoAThing ( ParamList : TStrings ) : Boolean;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.ActionPRINT(AValue:string);
begin
   memo1.lines.add(AValue+' '+IntToStr(valeur));  //par exemple
end;
 
procedure TForm1.InitBoucle(ParamList : TStrings);
var i:integer;
begin
  increment:=1; //increment par defaut
  for i:=0 to ParamList.Count-1 do
   begin
      debut:=StrToInt(ParamList.Values['start']);
      increment:=StrToInt(ParamList.Values['step']);
      valeur:=debut;
   end;
end;
 
function TForm1.DoAThing ( ParamList : TStrings ) : Boolean;
var Ligne:integer;
     AStringList:TStringList;
     fonction,parametres:string;
begin
   Ligne:=0;
   while (Ligne<=ParamList.Count) do
   begin
      fonction:=ParamList.Names[Ligne];
      parametres:=ParamList.ValueFromIndex[Ligne];
      if fonction='FOR' then
      begin
         parametres:=copy(parametres,2,length(parametres)-2);
         AStringList:=TStringList.create;
         AStringList.delimiter:=';';
         AStringList.DelimitedText :=parametres;
         InitBoucle(AStringList);
         DebutBoucle:=Ligne;
         AStringList.Free;
      end;
      if fonction='ENDFOR' then
      begin
         fin:=StrToInt(parametres);
         Inc(valeur,increment);
         if (valeur<=fin) then
         begin
           Ligne:=DebutBoucle;
         end;
      end;
      if fonction='CLS' then memo1.Clear;
      if fonction='PRINT' then ActionPRINT(parametres);
      inc(Ligne);
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  DoAThing (memo2.Lines);
end;
 
end.

A l'exécution et avant d'appuyer sur le bouton, dans memo2, tu écris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
//-Pas de signe egal dans les commentaires
//-Signe egal obligatoire pour une instruction
//-Lignes vides autorisées !!!
 
//Efface le memo1
CLS=0
 
//Debut de boucle, step est facultatif
FOR="start=1;step=2"
//Affiche
PRINT=coucou
//Fin de boucle
ENDFOR=10

Bon courage

[smyley]

c'est une idée. Moi j'avais pensé utilisé un outil comme CocoR pour générer un Parser et même pouvoir compiler vers un PCode pour pouvoir mieux l'exécuter ( une sorte d'assembleur fait maison ) donc au lieu de devoir interpréter

Code :

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

1
2
 
MessageBox(0,"blabla","blabla",MB_ICONWARNING OR MB_YESNO);

j'exécute

Code :

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

1
2
3
4
5
6
7
8
9
 
: define [Integer] Opx;
: set Opx [MB_ICONWARNING] Or [MB_YESNO]
: pcall [MessageBox] ;
: add [Integer] 0 ;
: add [String] "blabla" ;
: add [String] "blabla" ;
: add Opx;
: call

ce code est lourd mais c'est pas trop dur de l'exécuter car chaque étape est bien délimitée. Par contre j'aurai aimé pouvoir faire des procédures pour importer des dlls et donc construire quelque chose comme la lib d'Api Standard mais dans mon propre langage ( avec des external dans les principales dlls de Windows ) d'où mon envie de savoir comment on empile dynamiquement des paramètres pour appeller une fonction ( ou plutot un pointeur vers une fonction )

[sjrd]

Vous voulez coder ces interpréteurs pour le plaisir (ou la fierté) d'en coder un ou bien pour l'utiliser dans une application. Si c'est la deuxième solution, alors je vous conseille à tous les deux la librairie Pascal Script de RemObjects qui fait exactement ce que vous voulez !
http://www.remobjects.com/?ps

[smyley]

je connais ce composant, mais les applications générées avec sont énormes ( par rapport à celles que j'ai ). Je voudrais compiler une application de moins de 100 Ko et en utilisant juste quelque fonctions de base ( avec l'appel de dlls ), je pense pouvoir faire en gros un truc de 80 Ko ...

[rv66]

et si vous utilisiez le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure maprocedure(params : array of const);
begin 
  .....
end;
 
ou 
 
function mafonction(params : array of const) : variant;
begin
  ...
end;

nombre de paramétres indéfinis, et nombre de résultat infinis pour la fonction (objet, class, TStrings, .....) . Sans oublier que vous pouvez passer en paramétre n'importe quoi (objet, class, integer, ............)

[smyley]

ce serai bien si c'était mes dlls, mais pour la dll user32.dll, faire

Code :

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

1
2
 
function MessageBoxA ( params : Array of const ) : Variant;stdcall;external 'user32.dll';

fait une violation d'accès. Je ne peut donc pas utiliser ce prototype de fonction pour mon script

[LadyWasky]

Vous voulez coder ces interpréteurs pour le plaisir (ou la fierté) d'en coder un ou bien pour l'utiliser dans une application. Si c'est la deuxième solution, alors je vous conseille à tous les deux la librairie Pascal Script de RemObjects qui fait exactement ce que vous voulez !
http://www.remobjects.com/?ps

C'est sympa, je te remercie.

Pour ton information, je suis en train de développer pour un usage concret une ActiveX et un plugin Netscape/Mozilla qui permette, à partir d'un fichier script en lien "embeded" ou "object" d'une page HTML de restituer un problème d'échecs ou une partie complète avec l'affichage de l'échiquier et des interaction avec l'utilisateur (un peu à la manière d'un flash maison).

A l'arrivée, le but est que l'affichage et l'interaction soient pris en charge par l'applet ainsi créé à partir de commandes simples du style :

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
 
SET POSITION="tcfdrfctpppppppp                                         PPPPPPPPTCFDRFCT"
PRINT="A vous de trouver la suite..."
SET A=1
GOTO=QUESTION
LABEL=RECOMMENCER
INC A=1
IF A="3;SOLUTION"
PRINT="Je suis sur que vous allez trouver !"
LABEL=QUESTION
ONMOVE="E2E4;SUITE;OTHER;RECOMMENCER"
LABEL=SOLUTION
PRINT="Solution : e4"
MOVE="E2E4"
LABEL=SUITE
MOVE="E7E5;CGF3"

Tu vois ce que j'essaies de faire ?