VC动态调用DLL

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;