Delphi调用C++编写的动态链接库dll的方法

hehehepaopao

于 2015-11-16 11:48:30 发布

阅读量5.4k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi 动态链接库

本文链接：https://blog.youkuaiyun.com/qq_22129035/article/details/49863679

本文详细介绍了如何在Delphi中调用C++编写的动态链接库DLL，包括静态和动态调用的方法。通过声明DLL函数、加载库、获取函数地址并执行，展示了具体的实现步骤。同时，提到了在遇到函数名乱码问题时，如何通过tdump工具查看函数名或使用函数位置来解决问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

首先我们先看一下普通Delphi调用动态链接库dll的方法：

{===================静态调用DLL函数===================}
//首先声明这个DLL中的函数，然后就可以直接调用了

function AddNum(Num1,Num2:integer):integer;stdcall;external 'project1.dll' name 'AddNumber';
//function AddNum(Num1,Num2:integer):integer;stdcall;external 'Add_Dll_test.dll' name 'AddNumber';

procedure TForm1.Button1Click(Sender: TObject);
var
Num1,Num2:integer;
Sum:integer;
begin
Num1:=StrToInt(Edit1.Text);
Num2:=StrToInt(Edit2.Text);
Sum:=AddNum(Num1,Num2);
Edit3.Text:=IntToStr(Sum);
end;

{===================动态调用DLL函数===================}
procedure TForm1.Button2Click(Sender: TObject);
Type
//这里的TADDFunc即是Project1.dll中的AddNumber方法
TADDFunc=function (X,Y:Integer):integer;Stdcall;
var
OneHandle:THandle;
ADDFunc:TADDFunc;
Num1,Num2:integer;
Sum:variant;
b