C动态库在delphi的调用 ( 积分: 100 )

我有一動態庫12.dll,其函數說明為如下：

1.HANDLE OpenCfgComm ( short nPort,char* pSetting )
函數說明：打開串口
nPort:串口號,1表示COM1，2表示COM2...；
pSetting:串口初始化值,設爲"9600,n,8,1"；
返回：串口控制碼(長整型)；

2.void CloseCfgComm( HANDLE hComm )
函數說明：關閉串口；
hComm： 串口控制碼；
返回：無；
請求怎樣用delphi來實現，最好舉例子

我有一動態庫12.dll,其函數說明為如下：

1.HANDLE OpenCfgComm ( short nPort,char* pSetting )
函數說明：打開串口
nPort:串口號,1表示COM1，2表示COM2...；
pSetting:串口初始化值,設爲"9600,n,8,1"；
返回：串口控制碼(長整型)；

2.void CloseCfgComm( HANDLE hComm )
函數說明：關閉串口；
hComm： 串口控制碼；
返回：無；
請求怎樣用delphi來實現，最好舉例子

unit UseDLL;

interface

function OpenCfgComm(nPort: Shortint; pSetting: PChar): THandle; stdcall;
procedure CloseCfgConn(hComm: THandle);

implementation

function OpenCfgComm; external 'xxx.dll' name 'OpenCfgComm';
procedure CloseCfgComm; external 'xxx.dll' name 'CloseCfgComm';

end.


//////////
xxx.dll 是你DLL文件的名字