记一次回调函数崩溃

神女软件定制

一般回调函数，调用约定都是stdcall，易语言取指针取到的也是stdcall的，今天遇到个cdecl调用约定的回调函数，刚开始想简单了，想着直接在函数中置入代码，截断函数，让他以cdecl方式返回
结果不行，od看了下， &取到的地址，和函数真正地址不一样，不知道易语言怎么封装了，多了一层跳板
最终用字节集构造了一段汇编代码，模拟了一个cdecl调用约定的函数，然后里面再去调用易语言定义好的函数，就行通了
备忘一下方法：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
cx_shellcode	字节集

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

cx_shellcode ＝ { 85, 137, 229, 255, 117, 20, 255, 117, 16, 255, 117, 12, 255, 117, 8, 184 } ＋ 到字节集 (&LPDEVICEPROC) ＋ { 255, 208, 137, 236, 93, 195, 204, 204, 204, 204, 204, 204, 204, 204, 204 }

子程序名	返回值类型	公开	备 注
LPDEVICEPROC
参数名	类 型	参考	可空	数组	备 注
tDev	整数型
tParam	整数型
nCode	整数型
nData	整数型

调试输出 (tDev, tParam, nCode, nData, 指针到文本 (tParam))  ' 0 | 36635136 | 1 | 0

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
s	文本型

s ＝ “123456”
EVS_Open (取窗口句柄 (), 取变量数据地址 (cx_shellcode), 取变量数据地址 (s))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 cx_shellcode, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> cx_shellcode ＝ { 85, 137, 229, 255, 117, 20, 255, 117, 16, 255, 117, 12, 255, 117, 8, 184 } ＋ 到字节集 (&LPDEVICEPROC) ＋ { 255, 208, 137, 236, 93, 195, 204, 204, 204, 204, 204, 204, 204, 204, 204 }<br /> <br /> .子程序 LPDEVICEPROC<br /> .参数 tDev, 整数型<br /> .参数 tParam, 整数型<br /> .参数 nCode, 整数型<br /> .参数 nData, 整数型<br /> <br /> 调试输出 (tDev, tParam, nCode, nData, 指针到文本 (tParam))  ' 0 | 36635136 | 1 | 0<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 s, 文本型<br /> <br /> s ＝ “123456”<br /> EVS_Open (取窗口句柄 (), 取变量数据地址 (cx_shellcode), 取变量数据地址 (s))