Delphi10.4 64位编译报ACCESS_VIOLATION，32位正常求助

问题场景 #

• 原Delphi 5 32位应用迁移至Delphi 10.4并转为64位后，调用第三方Lingo17 64位求解器的外部函数时触发$C0000005 ACCESS_VIOLATION异常
• 32位编译运行完全正常，64位编译通过但执行时出错

相关代码 #

外部函数声明 #

function LSexecuteScriptLng( pnEnv: Integer; cScript: pAnsiChar): Integer;
 stdCall; external 'Lingd64_17.dll';

触发异常的代码行 #

intLingoError := LSexecuteScriptLng(intLingoEnvironment,PAnsiChar(strModelExecuteScript));

排查过程 #

• 代码逻辑：通过TLingoSolver类的Solve方法拼接求解脚本，调用上述函数执行
• 尝试给cScript参数添加const修饰，无效果
• 断点可步入函数，但返回结果异常，日志出现乱码（示例：㸀  伀䈀䨀...）

解决方法 #

新版本Lingo中，用于在应用与求解器环境间创建内存链接的外部函数已变更，此前的调用方式不符合新版本要求，修正该函数的调用逻辑后，访问违例问题彻底解决。

内容的提问来源于stack exchange，提问作者J. Dough