Delphi Web Script: Accessing a Variable after the Script is Executed

Question

Imagine this Script:

var s = TStrings.Create;
s.Add('Line 1');
s.Add('Line 2');

procedure MyProc;
begin
  if s.count = 2 then
  // ...
end;

When the Script runs it creates the variable "s". Now I'd like to call "MyProc" after the script is done:

...
Exec := Program.CreateNewExecution;
Exec.BeginProgram;
Exec.RunProgram(0);
if Exec.ProgramState in [psRunning, psRunningStopped] then
begin
  Func := Exec.Info.Func['MyProc']; 
  Func.Call([]);
  Exec.EndProgram; 
end;

I get an error accessing "s" from MyProc. I assume that the garbage collector of DWS already freed the stringlist. Is this right? Can I do something to keep "s" alive?

Eric Grange · Accepted Answer · 2011-05-19 13:35:57Z

2

That variable should not be cleaned up before the call to EndProgram.

One thing that could explain your issue is if your script didn't compile without errors in the first place (check Program.Msgs, it should then contain the errors).

answered May 19, 2011 at 13:35

Eric Grange

6,2413 gold badges45 silver badges66 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Eric Grange Over a year ago

FWIW your sample code has been added verbatim to the unit tests.

Collectives™ on Stack Overflow

Delphi Web Script: Accessing a Variable after the Script is Executed

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related