文件名称: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;