VC动态调用DLL

关注

原创最新推荐文章于 2025-11-24 19:54:21 发布 9.8k 阅读 AI 写同款· GEO 优化 ›

IAR9.30以上版本安装、注册、新建工程和配置过程详细介绍 IAR 一般是指一款嵌入式软件的集成开发环境，类似于 MDK-Keil 这款软件。IAR 对于不同的内核处理器，是对应不同的 IAR 软件的，IAR 到目前为止支持大部分的MCU，比如8051系列、ARM架构系列、MSP430系列、AVR系列等等这些常用的芯片架构。对于 ARM 架构的芯片，有对应的 IAR Embedded Workbench for ARM 软件平台，因为我主要是使用 ARM 架构芯片，下面安装、注册和使用都是基于这个版本进行介绍的。阅读详情

1.生成DLL

CDLLApp theApp;
extern "C" _declspec(dllexport) int ADD(int i)
{
AFX_MANAGE_STATE(AfxGetStaticModuleState());
return ++i;

}

//////////////////////////////////////////////////////////////////////////////////////////////////////

extern "C" _declspec(dllexport) char* SendMess(char* buffer, int length)

{

////调用的时候要先给BUFFER分配内存(NEW())不然会出10014的错误.

10014--------------------系统检测到在一个调用中尝试使用指针参数时的无效指针地址。

}

////////////////////////////////////////////////////////////////////////////////////////////////////

2.动态调用DLL

void CTestDlg::OnBtest()
{

UpdateData(true);

typedef int(_cdecl *Connect)(int i);
HINSTANCE hinstDLL=NULL;
hinstDLL=LoadLibrary("TEST.dll");
if (hinstDLL)
{
  Connect Proc;
  Proc = (Connect)GetProcAddress (hinstDLL,"ADD");
  int iValue = Proc(m_i);
  FreeLibrary(hinstDLL);

}
else
{
AfxMessageBox("没找到dll");
}
}

3.在DELPHL中的调用方法

procedure TForm1.Button1Click(Sender: TObject);
type
TIntFunc=function(i:integer):integer;stdcall;
var
Th:Thandle;
Tf:TIntFunc;
Tp:TFarProc;
begin
Th:=LoadLibrary('TEST.dll'); {装载DLL}
if Th>0 then
try
Tp:=GetProcAddress(Th,PChar('ADD'));
if Tp<>nil
then begin
Tf:=TIntFunc(Tp);
Edit1.Text:=IntToStr(Tf(1)); {调用TestC函数}
end
else
ShowMessage('ADD函数没有找到');
finally
FreeLibrary(Th); {释放DLL}
end
else
ShowMessage('TEST.dll没有找到');
end;