Discussion :

[JP CASSOU]

Bjr à vous,

J'utilise les composants PascalScript dans un de mes projets.

Ajout de fonctions personnalisées: OK
Compilation et Lancement d'un script: OK

Je bute sur plusieurs problèmes:
- Dans le composant PSScriptDebugger: PSScriptDebugger1.Exec.Stop n'arrête pas le script (exemple: une boucle infinie dans le script). Je dois flinguer l'application;
- Je suis obligé de lancer le script pour accéder à la liste des fonctions disponibles
- Dans l'événement OnSelectionChange de la TListBox lsbPSFunctions qui contient la liste des fonctions personnalisées, événement censé afficher l'aide en ligne d'une fonction, je tombe sur une erreur 'This function can be only called within the OnUses event'

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
 
procedure TCdrCalculette.DisplayHelpForProc(const MyProc: TPSRegProc);
var
  p: LongInt;
begin
  memoHelp.Clear;
  memoHelp.Lines.Add(MyProc.Name);
  p := MyProc.Decl.ParamCount;
  // ...
end;         
procedure TCdrCalculette.lsbPSFunctionsSelectionChange(Sender: TObject; User: boolean);
var
  MyProc: TPSRegProc;
begin
  ShowMessage('DisplayHelpForProc()');
  //try
    MyProc := PSScriptDebugger1.Comp.GetRegProc(lsbPSFunctions.ItemIndex);
    DisplayHelpForProc(MyProc);
  //except
  //end;
end;

La documentation est très lacunaire à ce sujet.

PS: L'insertion d'images dans le présent éditeur de commentaires DVP nécessite Flash et fonctionne de manière erratique

[JP CASSOU]

Aucune réponse à ce post depuis 15 mois...

[Roland Chastain]

Aucune réponse à ce post depuis 15 mois...

Bonjour ! Je suppose que personne ici ne connaît la solution à votre problème, faute d'utiliser les composants en question. J'avoue que pour ma part je ne les connais pas et que, soit dit en passant, je n'ai jamais trop bien compris à quoi servent les scripts en Pascal (je veux dire, quel genre d'utilisation on peut en faire).

Je crois qu'il ne vous reste plus qu'à nous faire un tutoriel.

Quant à votre question, peut-être pourrait-on aller la poser directement à l'auteur du projet, sur sa page GitHub ?

Bon courage !

[jurassic pork]

hello,

Aucune réponse à ce post depuis 15 mois...

sans code source complet ou projet de test il est difficile de répondre surtout si l'on utilise pas les composants. On ne peut pas facilement reconstituer tout un projet pour reproduire tes problèmes avec des composants que l'on ne connaît pas et d'après les petits morceaux de code que tu nous mets

Ami calmant, J.P

[anapurna]

salut

as tu essayé avec un pause plutot qu'un stop

a priori dans le source de pascalscript le stop n'est pas la pour interrompre le traitement

Code :

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

1
2
3
4
5
procedure TPSDebugExec.Stop;
begin
  FDebugMode := dmRun;
  inherited Stop;
end;

et dans son parent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TPSExec.Stop;
begin
  if FStatus = isRunning then
    FStatus := isLoaded
  else if FStatus = isPaused then
  begin
    FStatus := isLoaded;
    FStack.Clear;
    FTempVars.Clear;
  end;
end;

si tu regarde le pause

Code :

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

1
2
3
4
5
procedure TPSExec.Pause;
begin
  if FStatus = isRunning then
    FStatus := isPaused;
end;

et son enfant

Code :

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

1
2
3
4
procedure TPSDebugExec.Pause;
begin
  FDebugMode := dmPaused;
end;

Fait une pause et un stop ... je pense que ton processus seras remis a zero

[jurassic pork]

hello,

- Dans l'événement OnSelectionChange de la TListBox lsbPSFunctions qui contient la liste des fonctions personnalisées, événement censé afficher l'aide en ligne d'une fonction, je tombe sur une erreur 'This function can be only called within the OnUses event'

pour ce problème voir ici

To extend the compiler, you must assign a function to the OnUses event handler of the compiler object. I assigned the function ExtendCompiler, shown below, on line 10 of the CompileScript function shown above. The OnUses event handler is called by the compiler during compilation and will cause compilation to fails if it returns false. I’m not sure why it is designed this way but trying to extend the compiler from outside the OnUses event handler will result in an exception.

Ami calmant, J.P