DWS insert variable values on debug

Question

I'm facing a problem I can't find the workaround... I have a script which take some parameter data before execution. When I run it my code looks like:

Exec := FProgram.CreateNewExecution;
Exec.BeginProgram;

Exec.Info.ValueAsString['varName'] := 'varValue';

Exec.RunProgram(0);
Exec.EndProgram;

It runs just fine. But if I want to debug the script I do something like this:

Exec := FProgram.CreateNewExecution;
Exec.BeginProgram;
Exec.Info.ValueAsString['varName'] := 'varValue';

Debugger.BeginDebug(Exec);
Debugger.EndDebug;

Being Debugger a TdwsDebugger class, I get "runtime error: script is already running". If I don't assign variables values before debugging everything is ok.

Any hints?

Just a guess: move the parameter data code line after BeginDebug. Or remove BeginProgram line. Or read the documentation :-) :-) — fpiette
– fpiette, Commented Sep 30, 2020 at 15:09
Hi fpiette, I've already tried that. When debug starts BeginDebug does not end until the scripts ends. — Adrian De Armas
– Adrian De Armas, Commented Sep 30, 2020 at 15:25

Adrian De Armas · Accepted Answer · 2020-10-02 15:45:16Z

1

I managed to solve it using the TDelphiWebScript component events. Using OnExecutionStarted does not work either. I modified the code and added OnAfterExecutionStarted event, then I added the variables on the new event and everything is ok now.

edited Oct 2, 2020 at 15:45

answered Sep 30, 2020 at 22:31

Adrian De Armas

1011 silver badge6 bronze badges

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

1 Comment

Adrian De Armas Over a year ago

Using OnExecutionStarted does not work either. I modified the code and added OnAfterExecutionStarted event.

Collectives™ on Stack Overflow

DWS insert variable values on debug

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