delphi 调用vc dll打开串口问题
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 不知道什么地方不对了