delphi 调用vc dll打开串口问题

Question

CommOpen---打开串口函数
原型函数      HANDLE CommOpen(int port,int bandrate)
参  数：port  表示串口号  Bandrate  表示波特率
返回值：返回0表示串口打开失败，其他表示错误代码function CommOpen(Port,Bandrate:Integer):Integer; external 'RCPV11_VCDLL.dll ';procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
  //默认端口号为1  波特率为57600
  if CommOpen(1,57600)<>0 then Label1.Caption:='打开串口成功' else Label1.Caption:='打开串口失败';
end;返回值总是0 不知道什么地方不对了

Answer 1

顺便把这个也一起解答了 呵呵 请详细一点我菜
CommClose---关闭串口函数
原型函数 BOOL CommClose(HANDLE m_hCom)
参数：m_hCom 为串口句柄
返回值：返回1表示串口关闭成功，其他表示错误代码