• 主页
  • 招聘
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
lclwcf 2014年01月14日
坑爹,二点半了,倒底是DLL有问题还是我写的方法有问题,求教。
静态调用无伤何提示,也不报错。
procedure my_go(); cdecl; external 'my.dll';
动态调用,弹错误,运行到MyRro();时弹出(access violation at 0x10113903:read of address 0x10113903),不知道是什么问题,谢谢帮忙 。
type
TMyPro=procedure();cdecl;
var
MyHandle:Thandle;
MyRro:TMyPro;
begin
try
MyHandle:=LoadLibrary('my.dll');
if MyHandle>0 then ///大于0为DLL装载成功
try
@MyRro:=GetProcAddress(MyHandle,PChar('mygo'));
if @MyRro<>nil then
begin
MyRro();
end
else
ShowMessage(mygo函数没有找到');
finally
FreeLibrary(MyHandle);
end
else
ShowMessage(my.dll没有找到');
except

end;
end;
...全文
160 点赞 收藏 4
写回复
4 条回复

还没有回复,快来抢沙发~

发动态
发帖子
Delphi
创建于2007-08-02

1458

社区成员

26.2w+

社区内容

Delphi 开发及应用
社区公告
暂无公告