DWS在调试时插入变量值

阿德里安·德·阿玛斯(Adrian De Armas)

我遇到一个我找不到解决方法的问题...我有一个脚本,该脚本在执行前需要一些参数数据。当我运行它时,我的代码如下所示:

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;

作为Debugger的TdwsDebugger类,我收到“运行时错误:脚本已在运行”。如果在调试之前不分配变量值,则一切正常。

有什么提示吗?

阿德里安·德·阿玛斯(Adrian De Armas)

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章