DWS 在调试时插入变量值

Question

我遇到了一个问题，我找不到解决方法... 我有一个脚本，它在执行前获取一些参数数据。当我运行时，我的代码如下所示：

Exec := FProgram.CreateNewExecution;
Exec.BeginProgram;

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

Exec.RunProgram(0);
Exec.EndProgram;

运行很好。但是如果我想调试脚本，我会这样做：

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

Debugger.BeginDebug(Exec);
Debugger.EndDebug;

作为 TdwsDebugger 的调试器 class，我得到“运行时间错误：脚本已经运行ning”。如果我在调试前不给变量赋值就没问题。

有什么提示吗？

Answer 1

我设法使用 TDelphiWebScript 组件事件解决了这个问题。使用 OnExecutionStarted 也不起作用。我修改了代码并添加了 OnAfterExecutionStarted 事件，然后我在新事件上添加了变量，现在一切正常。

DWS 在调试时插入变量值

DWS insert variable values on debug

delphi

debugging

dwscript