帮忙转换一下C++写的DLL的delphi 调用函数!!!急(200)

帮忙转换一下C++写的DLL的delphi 调用函数!!!急 1、HANDLE _stdcall Open_Com(char* cPort,int nType);2、unsigned int _stdcall Close_Com(HANDLE hPort);3、unsigned int _stdcall Set_UserPort(BYTE NAD);4、unsigned long _stdcall GetaCount(HANDLE hPort, char* cErrMsg);5、unsigned int _stdcall Load(HANDLE hPort,unsigned char DLKindex,long nAmount,char* cDateTime,char* cErrMsg);

1、function Open_Com(cPort: Pchar; nType: integer): THandle;stdcall;2、function Close_Com(hPort: THandle): word;stdcall;3、function Set_UserPort(NAD: Byte): word;stdcall;4、function GetaCount(hPort: THandle; cErrMsg: Pchar): word;stdcall;5、function Load(hPort: THandle; DLKindex: Byte; nAmount: Longint; cDateTime, cErrMsg: Pchar): word;stdcall;

1、function Open_Com(cPort:char;nType:integer):THandle;stdcall;2、function Close_Com(hPort:THandle):integer;stdcall;3、function Set_UserPort(NAD:BYTE):integer;stdcall;4、function GetaCount(hPort:THandle; cErrMsgchar):LongInt;stdcall;5、function Load(hPort:THandle;DLKindex:Char;nAmount:LongInt;cDateTimechar;cErrMsgchar):integer; stdcall;

var Open_Com: function(cPort: PChar; nType: Integer): THandle cdecl {$IFDEF WIN32} stdcall {$ENDIF}; var Close_Com: function(hPort: THandle): Word cdecl {$IFDEF WIN32} stdcall {$ENDIF}; var Set_UserPort: function(NAD: BYTE): Word cdecl {$IFDEF WIN32} stdcall {$ENDIF}; var GetaCount: function(hPort: THandle; cErrMsg: PChar): LongInt cdecl {$IFDEF WIN32} stdcall {$ENDIF}; var Load: function(hPort: THandle; DLKindex: Byte; nAmount: LongInt; cDateTime: PChar; cErrMsg: PChar): Word cdecl {$IFDEF WIN32} stdcall {$ENDIF};

上面的结果是用Bob的工具转换的，你直接下载来用就行了：http://www.drbob42.com/tools/headconv.htm