VC++中怎样调用Delphi写的Dll?

victorzheng 2008-12-15 02:38:44

由于delphi操作数据比较方便，故想在VC++中调用delphi写的dll来进行数据处理，dll中数据处理界面是MDI子窗体,Exports出来的接口函数需要传入类TAppliction的实列，但VC＋＋中没有TApplication类，咱办呢？

...全文

107 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

fdsloading 2009-03-09

打赏
举报

不知道现在你还需不需要：给你个例子：
Delphi 中的代码：
Unit Common;

Interface

Uses SysUtils, Ora, Windows, DM, Forms,Dialogs;

Function CheckSnExist(pSn: String): Integer; StdCall; export;

Implementation

Function CheckSnExist(pSn: String): Integer;
Var
ChkQry : TOraQuery;
Begin
ChkQry := TOraQuery.Create(Nil);
ChkQry.Session := Data.Orsn;

With ChkQry Do
Begin
Close;
SQL.Clear;
SQL.Add('select count(*) from sfism4.r_wip_tracking_t');
SQL.Add(' where serial_number = :sn');
ParamByName('sn').AsString := pSn;
Open;
Result := Fields[0].AsInteger;
Close;
End;
ChkQry.Free;
End;

Exports
CheckSnExist,

End.

VC中的代码：

typedef int (* pGetData)( char* P1) ;
pGetData GetData;
HINSTANCE hinst;
hinst=LoadLibrary(TEXT("TEST.dll")); //Load dll LPCTSTR strContent);
if(hinst==NULL)
{
AfxMessageBox("load dll Fail");
}
GetData=(pGetData)GetProcAddress(hinst,"CheckSnExist"); //get address of the function
if(GetData==NULL)
{
AfxMessageBox("get the address of the function Fail");
}
else
{
if(GetData("2GE02001")==0) //run the function in the delphi dll
{
AfxMessageBox("the number is not exist");
}
else
{
AfxMessageBox("the number is exist");
}
}
if(hinst!=NULL)
{
FreeLibrary(hinst); // unload hinst
hinst=NULL;
free(GetData);
}