vc 调用delphi写的 dll 问题 急！！

[zbk502]

以下是用delphi写的 dll 里面的函数
function PortOpen(Port: longint): longint;
function setDeviceMute(IsMute:Longint;AliasID,waittime:Longint):Longint;
function ReadDeviceRecords(aliasid,waittime:Longint;var PmRecordData:pchar;var REC_COUNT:Longint):longint;
在VC里如何定义 来调用这三个函数呢

[cnzdgs]

如果有lib文件，
long __stdcall PortOpen(long Port);
如果没有lib文件，
使用dll前先执行LoadLibrary，然后用GetProcAddress分别取这三个函数的指针，使用完dll后FreeLibrary。
typedef long (__stdcall *PORTOPENFUNCTION)(long Port);

HMODULE library = LoadLibrary("xxx.dll");
PortOpen = (PORTOPENFUNCTION)GetProcAddress(library, "PortOpen");

FreeLibrary(library);

[zbk502]

楼上的，我按你的方法试了还是不行呀，返回值是对的，但是实际上串口并没被打开

[内存泄漏]

是不是串口打开前需要调用什么函数完成初始化操作? 你没有调用??

[cnzdgs]

函数可以调用执行就说明定义没问题了，其它问题是程序内部的事。