Discussion :

[Iwoks]

Bonjour,

J'ai rencontré un problème avec le uPSRuntime (ref. PascalScript)
J'ai ajouté à la ligne 10918

Code :

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

if (Tag<>nil) then

Effectivement,

Code :

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

1
2
 for I := TPSRuntimeClassImporter(Tag).FClasses.Count -1 downto 0 do  
 TPSRuntimeClassImporter(NIL)

ça fonctionne pas.

Cldt.
Iwoks

[Roland Chastain]

Bonjour ! Merci pour cette contribution mais ne serait-il pas plus utile de communiquer la chose à l'auteur du programme en question ?

[tourlourou]

En regardant le source sur https://github.com/remobjects/pascal...uPSRuntime.pas je retrouve la ligne incriminée en 11000, dans la fonction
function SpecImport(Sender: TPSExec; p: TPSExternalProcRec; Tag: Pointer): Boolean; .

La question reste ouverte de savoir dans quel cas de figure l'appel se fait avec un paramètre Tag à nil.

Afin de permettre l'expertise, envoie leur un exemple minimal reproduisant l'erreur observée.