调用DLL错误

[Rich_Zhou]

调用DLL错误，在调试环境下，退出程序时出现非法地址错误。
function Quit(WHandle: HWND): Integer; stdcall;
function Quit; external 'STK.DLL' Name 'Quit';
无论用Register,PASCAL,Stdcall,Cdecl,Safecall那种调用约定模式都无法解决问题，
无论是否执行只要定义了这一DLL引用就出现错误。

[tfafei]

没法帮你解决，只有帮你UP！UP！！UP！！！

[Rich_Zhou]

几种方法都试过了，解决不了

[visual_cjiajia]

DLL是你自己写的不
如果是 那么DLL本身就有问题 偶昨天刚处理 最终都能搞定

[Rich_Zhou]

Cipherliu(孤鹰)：
代码不太方便发给你，你有ＱＱ或者ＭＳＮ吗？我们联系
ＱＱ：342193458
ＭＳＮ：[e-mail]

[soaringsouth]

在工程和调用dll的单元的uses的第一位置加上sharemem
再者，注意参数的一致性

[Cipherliu]

如果参数中有string或动态数组,就一定要按楼上所说的uses ShareMem,否则你还是查一下其它原因

[Cipherliu]

把你的源码发给我,

[Cipherliu]

把你的源码发给我,我帮你看看

[Cipherliu]

[e-mail]

[visual_cjiajia]

Cipherliu(孤鹰) 大哥休正后帖子 给大家学习！谢谢！

[ttch]

用DLL错误，在调试环境下，退出程序时出现非法地址错误。
function Quit(WHandle: HWND): Integer; stdcall;
function Quit; external 'STK.DLL' Name 'Quit';
无论用Register,PASCAL,Stdcall,Cdecl,Safecall那种调用约定模式都无法解决问题，
无论是否执行只要定义了这一DLL引用就出现错误。

==============================================================

请保证您的参数和使用的函数指针参数一致,并且采用一致的参数调用方式.

其他的就没什么了

比如
{这是你的代码}
function Quit(WHandle: HWND): Integer; stdcall;
function Quit; external 'STK.DLL' Name 'Quit';//这个有编译时错误和运行时错误两种.

他返回类型没有定义,而且函数没有参数? 正确的调用方式是这样的
function Quit(WHandle: HWND): Integer; stdcall;
function Quit(WHandle: HWND): Integer; external 'STK.DLL' Name 'Quit';stdcall;
或者用动态的
TDllType = function(WHandle: HWND):integer;stdcall;

function test:integer;
var
testfunc:TDllType;
begin
@TestFunc:=GetProcAddress(DllHandle,'Quit');
if @TestFunc<>0 then
Result:=TestFunc(Form1.Handel);
end;