串口通讯?[Delphi]
7757 2000-04-22 04:44:00 以下代码是串口通讯程序的一部分,编译时显示
Clearcommerror函数和ReadFile函数的参数Coms和lpol
声明的类型不匹配。
[Error] Types of actual and formal var parameters must be identical
请高手指点迷津!
var
Clear:Boolean;
Coms: Tcomstat;
cbNum,ReadNumber,lpErrors:Integer;
Read_Buffer:array[1..100]of char;
Begin
Clear:= Clearcommerror(hcom,lpErrors,@Coms);
if Clear Then Begin
cbNum:=Coms.cbInQue;
ReadFile(hCom,Read_Buffer,cbNum,ReadNumber,lpol);
SetEvent(Post_Event);
end;
end;