在VC中编写DLL,以及在VC及Delphi中调用的方法

在VC++中,如果生成DLL可以不使用.def文件。只需要在VC++的函数定义前要加 __declspec(dllexport)修饰就可以了。但是使用__declspec(dllexport)和使用.def文件是有区别的。如果 DLL是提供给VC++用户使用的,只需要把编译DLL时产生的.lib提供给用户,它可以很轻松地调用你的DLL。但是如果DLL是供VB、PB、 Delphi用户使用的,那么会产生一个小麻烦。因为VC++对于__declspec(dllexport)声明的函数会进行名称转换,如下面的函数:
__declspec(dllexport) int __stdcall IsWinNT()
会转换为IsWinNT@0,这样你在VB中必须这样声明:
Declare Function IsWinNT Lib “my.dll” Alias “IsWinNT@0” () As Long
@的后面的数由于参数类型不同而可能不同。这显然不太方便。所以如果要想避免这种转换,就要使用.def文件方式。
EXPORTS后面的数可以不给,系统会自动分配一个数。对于VB、PB、Delphi用户,通常使用按名称进行调用的方式,这个数关系不大,但是对于使用.lib链接的VC程序来说,不是按名称进行调用,而是按照这个数进行调用的,所以最好给出。如:
EXPORTS
test @1

vc的dll,delphi调用的方法:

////K9RtExpr.h
extern “C” __DECDLL
unsigned int _stdcall K9RtSysInterrupt(int nInterruptTag);

extern “C” __DECDLL
unsigned int _stdcall K9RtSysExprm(unsigned int nModuleTag,
float fTimeout,
void * pTestPar,
void * pResultPar
);

// K9RtExpr.cpp
#include “K9RtExpr.h”
#include “RtCtrl.h”
extern “C” __DECDLL
unsigned int _stdcall K9RtSysInterrupt(int nInterruptTag)
{
return CRelayTestControl::Instance()->InterruptTest(nInterruptTag);
}
extern “C” __DECDLL
unsigned int _stdcall K9RtSysExprm(unsigned int nModuleTag,
float fTimeout,
void * pTestPar,
void * pResultPar
)
{
return CRelayTestControl::Instance()->RelayTest(
nModuleTag, fTimeout, pTestPar, pResultPar);
}

///K9RtExpr.def
LIBRARY “K9RtExpr”
DESCRIPTION K9RtExpr Windows Dynamic Link Library’

EXPORTS
K9RtSysInterrupt
K9RtSysExprm
; Explicit exports can go here

//delphi 调用文件
unit InterfaceFunc;

interface

uses
UnitData,Types;

function K9RtSysExprm(nModuleTag:integer ;
uTimeout:integer;
pTestPar:Pointer;
pResultPar:Pointer) : Integer; stdcall;

function K9RtSysInterrupt(nInterruptType:Integer) : Integer; stdcall;

implementation
const DLLPATH = ‘RtBsExpr.dll’;
function K9RtSysExprm; external DLLPATH name ‘ExperimentRelayTest’;
function K9RtSysInterrupt; external DLLPATH name ‘InterruptRelayTest’;

end.



发表评论

电子邮件地址不会被公开。 必填项已用*标注

+ 23 = 24