用API函数
var
lpdcb:Tdcb;
Begin
hcom:=createfile(pchar('com2'),generic_read or
generic_write,0,nil,open_existing,
file_attribute_normal,0);//打开串行口
if hcom=invalid_handle_value then
showerror('串口初始化失败!!!',true)
else
begin
getcommstate(hcom,lpdcb);
lpdcb.baudrate:=9600;
lpdcb.StopBits:=0;
lpdcb.ByteSize:=8;
lpdcb.Parity:=noParity; //偶校验
Setcommstate(hcom,lpdcb);
end;
写入时用
writefile(hcom,pointer(temp)^,length(temp),lrc,nil);
这是小弟写的串口写入数据采用的方法,串口读取数据的方法应雷同,有空帮你试试。
希望对你有帮助