dephi中怎么显式调用dll中的函数

zzzling 2000-07-10 05:07:00
我的这段程序有什么错呢?我刚学dephi还请各位指点
.....
type
result_matrix = function:PByteArray;StdCall;
.....
procedure TDisplay.FormPaint(Sender: TObject);
var
des,output:PByteArray ;
size,n,k:Integer ;
myfun:result_matrix;
begin
@myfun:=GetProcAddress(Dll,'result_matrix');

if not Assigned(myfun) then
begin
FreeLibrary(Dll);
Dll:=NUlL;
Raise Exception.Create('[GetProcAddress Fail] GetLastError reports:'+
IntToStr(GetLastError));
end

des:=myfun;
.......
...全文
117 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
daidai 2000-07-11
  • 打赏
  • 举报
回复
ft 原来end后没加;
zzzling 2000-07-11
  • 打赏
  • 举报
回复
难道没人能解决这个问题吗?不可能啊
zzzling 2000-07-10
  • 打赏
  • 举报
回复
我当然已经加载了,是在form的create时.
程序编译在des:=myfun;出错.

dephi竟然没有自动存盘功能,我一下午的活白忙了,呜呜
endlessway 2000-07-10
  • 打赏
  • 举报
回复
在使用GetProcAddress之前需要使用LoadLibrary将你的dll文件加载.

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧