【文件属性】：
文件名称：TMS.Async32.v1.2.for.Delphi.BCB.Full.Source.rar
文件大小：392KB
文件格式：RAR
更新时间：2023-02-04 01:48:50
串口 MODBUS
很好的串行通迅软件
procedure TFrmMain.VaComm1RxChar(Sender: TObject; Count: Integer);
var
a, b:integer;
j:char;
begin
Timer1.Enabled:=False;
b := vacomm1.ReadBufUsed;
for a := RecvPoint to RecvPoint+b-1 do
begin
if vacomm1.readchar(j) then
begin
RecvBuffer[RecvPoint]:=Integer(j);
RecvPoint := RecvPoint+1;
end;
end;
Timer1.Enabled:=True;
end;