Code issu d'une StringList non exécuté

Bonjour,

J'ai besoin de manipuler une ligne de code, en lui changeant des morceaux selon les cas, pour cela j'utilise des StringList.
Quand je récupère le contenu final de la StringList, je m'attends à ce qu'il soit exécuté, mais rien ne se passe, comme si c'était du texte et pas du code exécutable.
Voici un exemple simplifié:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button_TestClick(Sender: TObject); var SL: TStringList; begin SL := TStringList.Create; SL.Add('Windows.Beep(800, 500);'); Memo1.Text := SL.Strings[0];   SL.Strings[0]; // Ici, je récupère: Windows.Beep(800, 500); en espérant que ce code soit exécuté mais aucun son ne sort ! // Pourtant Memo1.Text me montre que SL.String[0] contient bien: Windows.Beep(800, 500); SL.Free; end;

---

En pratique, c'est par exemple keybd_event(VK_NUMPAD0, MapvirtualKey(VK_NUMPAD0, 0), 0, 0); que j'utilise et qui n'est pas exécuté en sortie de StringList alors que si je l'écris directement, il l'est.

Si quelqu'un a la réponse, je le remercie d'avance.

Bonjour,

Delphi est un langage "compilé", le code source est traduit en code machine binaire interprété directement par le processeur.

il est existe des interpréteur de langage Pascal (PascalScript, DWScript...) qui permettent d'évaluer une expression Pascal depuis le programme, mais je ne pense pas que ce soit le besoin ici.

je suppose que le besoin est tout simplement d'utiliser des variables (grand débutant en programmation ?).

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button_TestClick(Sender: TObject); var a, b: Integer; begin a := IntToStr(Edit1.Text); // lire le nombre tapé dans Edit1 - conversion chaîne vers entier b := IntToStr(Edit2.Text); // lire le nombre tapé dans Edit2 Windows.Beep(a, b); // faire un beep avec ces deux valeurs end;

---

Bonjour Paul TOTH,

Que je suis débutant, ça ne fait aucun doute !
Même si, depuis de nombreuses années, je lis assiduement vos réponses pertinentes dans ce forum.

Ce ne sont pas les variables qui me posent problème.
Comme je le disais dans mon exemple, c'est la ligne de code entière qui n'est pas exécutée quand elle provient d'un StringList.

Si J'écris Windows.Beep(800, 500); le son est joué
mais, si j'ai envoyé cette ligne comme texte 'Windows.Beep(800, 500);' dans un StringList, quand je la récupère pour l'exécuter, elle ne produit rien, comme si ce n'était qu'un texte.

Je ne comprends pas, je pensais que le fait que j'ai écrit moi-même cette ligne dans mon code ou qu'elle le soit en live par la StringList quand je lui dis: SL.String[0] entraînerait dans les deux cas la même réaction du programme, soit un son de 800 Hz pendant 500 ms.

Dans mon message, Windows.Beep(800, 500); c'était juste pour donner un exemple court.

En pratique, j'envoie, par exemple, dans une première StringList: SL1.Add('keybd_event(VK_NUMPAD4, MapvirtualKey(VK_NUMPAD4, 0), 0, 0);');
dans un autre StringList: SL2.Add('keybd_event(VK_NUMPAD0, MapvirtualKey(VK_NUMPAD0, 0), 0, 0);');
et dans une troisième, SL3.Add(' ...avec d'autres valeurs ...');

A la fin, selon les besoins de mon programme, je ne récupère que certaines de ces lignes et dans un certain ordre.
Je les envoie par exemple dans une autre StringList qui s'appelle SL_Finale, pour y faire du nettoyage, du classement et là, je voudrais bien qu'en faisant: SL.Text ou avec une boucle qui lit toutes les lignes de SL, ces lignes soient exécutées.
mais ça n'est pas le cas.
Si je teste, par exemple, avec un Memo, mon tri est bon, le résultat dans SL_Finale est bon, et donc SL.Text contient bien toutes les lignes que je voudrais voir exécuter.
Pourquoi, ces lignes qui fonctionnent quand elles sont écrites en clair ne fonctionnent plus quand elles sortent de la StringList, elles semblent ne plus être considérées comme que du simple texte et pas du code exécutable.

Existe-t-il un autre moyen , sans passer par les StringList, pour classer des lignes de code et les réinjecter tout en restant exécutables ?

Je pensais qu'en faisant, comme dans l'exemple de mon premier message: SL.Add('Windows.Beep(800, 500);'); puis SL.Text j'aurais le même résultat qu'en écrivant simplement : Windows.Beep(800, 500);

non, encore une fois le source Delphi est compilé sous la forme d'un .exe qui ne contient pas le source mais une traduction binaire directement exploité par le processeur qui ne comprend rien à rien, il faut tout lui dire en codes informatiques :)

par contre j'en reviens à ma première réponse :

Code:

---

1 2 3 4 5 6

var Key: Integer; begin keybd_event(Key, MapvirtualKey(Key, 0), 0, 0); end;

---

il ne reste plus qu'à manipuler une liste d'entiers pour faire varier la valeur de Key

en version un peu bourrin on pourrait faire ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var Codes, SL: TStringList; Index: Integer; begin Codes := TStringList.Create; Codes.Add('VK_NUMPAD0=' + IntToStr(VK_NUMPAD0)); Codes.Add('VK_NUMPAD1=' + IntToStr(VK_NUMPAD1)); Codes.Add('VK_NUMPAD2=' + IntToStr(VK_NUMPAD2));   SL := TStringList.Create; SL.Add('VK_NUMPAD0'); SL.Add('VK_NUMPAD1');   for Index := 0 to SL.Count - 1 do begin Key := StrToInt(Codes.Values[SL[Index]); keybd_event(Key, MapvirtualKey(Key, 0), 0, 0); end; end;

---

Codes contient donc des valeurs de type "VK_NUMPAD0=96", Codes.Values['VK_NUMPAD0'] retourne donc la chaîne "96" que l'on converti en entier avec StrToInt et qu'on peut alors utiliser dans la fonction keyb_event

Merci

Bonjour Alain_31,

Il me semble que tu confonds une variable avec une commande. La ligne stockée dans ta stringlist est 'inerte', c'est seulement une phrase qui décrit une action, mais pas l'action elle-même.
Pour effectuer une action, il te faut une commande, ce que tu obtiens en écrivant directement ta ligne. A la compilation de ta ligne, Delphi transforme la ligne en commande. Ton exécutable contiendra donc une suite de commandes, elles même exécutées plus ou moins directement par le microprocesseur.
C'est un peu comme Magrit avec son tableau 'Ceci n'est pas une pipe'. Il te faut faire la différence entre l'action et sa description.

C'est pourquoi Paul précise la différence entre les langages interprétés et les langages compilés.

Peux-tu décrire ton besoin ?

Merci pour cette réponse, claire pour le débutant que je suis.

"Pour effectuer une action, il te faut une commande, ce que tu obtiens en écrivant directement ta ligne."
Le "directement" m'éclaire.

Ceci dit, je ne confonds pas variable et commande et je n'aurais pas appelé "variable" la ligne de commande que je récupère dans ma StringList.
Mais je comprends maintenant que, pour le processeur, ce n'est pas une commande mais l'image texte d'une commande.

Ta comparaison avec la pipe de Magritte est très claire.

Merci à vous deux d'être là !

Je peux clore le sujet.