文件名称：delphi串口读写台达plc
文件大小：657KB
文件格式：RAR
更新时间：2021-12-24 09:51:10
PLC 台达 DELPHI 通讯 MODBUS
delphi串口读写台达plc PLC台达DELPHI通讯MODBUS procedure TfrmMain.btnReadMClick(Sender: TObject); var sStr:String; i:Integer; begin for i:= 0 to 1279 do Begin kmtPLC.SendData('0102'+IntToHex(i+$800,4)+'0001'); //取输出状态 sStr:=kmtPLC.ReadResFromPort(); if sStr<>'' then Begin memo1.Lines.Add('M'+IntToHex(i,4)+'-'+FormatFloat('0000',i)+'-'+Copy(sStr,1,Length(sStr)-2)); End; End; end; procedure TfrmMain.SpeedButton4Click(Sender: TObject); var sStr:String; begin kmtPLC.SendData('0103'+IntToHex(StrToInt(edtDAddr.Text)+$1000,4)+'0001'); sStr:=kmtPLC.ReadResFromPort(); if sStr<>'' then Begin edtDValue.Text:=sStr; End; end;
【文件预览】：
demo
----RxTimer.pas(7KB)
----uPublic.dcu(4KB)
----UDeltaPLC.dcu(6KB)
----CRCUnit.dcu(2KB)
----Umail.dfm(9KB)
----uPublic.pas(5KB)
----Project1.res(876B)
----Umail.ddp(51B)
----crc16.pas(4KB)
----RxTimer.dcu(6KB)
----demo()
--------RxTimer.pas(7KB)
--------uPublic.dcu(5KB)
--------UDeltaPLC.dcu(6KB)
--------CRCUnit.dcu(2KB)
--------Umail.dfm(9KB)
--------uPublic.pas(5KB)
--------Project1.res(876B)
--------Umail.ddp(51B)
--------crc16.pas(4KB)
--------RxTimer.dcu(7KB)
--------UDeltaPLC.pas(6KB)
--------Project1.cfg(434B)
--------Umail.~ddp(51B)
--------crc32.dcu(3KB)
--------Pcomm.dll(57KB)
--------Project1.dpr(310B)
--------Pcomm.dcu(7KB)
--------Project1.exe(636KB)
--------Umail.pas(6KB)
--------crc32.pas(8KB)
--------Umail.~dfm(9KB)
--------Umail.dcu(11KB)
--------crc16.dcu(1KB)
--------CRCUnit.pas(4KB)
--------Project1.dof(2KB)
--------Umail.~pas(6KB)
--------Pcomm.pas(10KB)
----UDeltaPLC.pas(6KB)
----Project1.cfg(434B)
----crc32.dcu(3KB)
----Pcomm.dll(57KB)
----Project1.dpr(310B)
----Pcomm.dcu(7KB)
----Project1.exe(626KB)
----Umail.pas(6KB)
----crc32.pas(8KB)
----Umail.dcu(10KB)
----crc16.dcu(1KB)
----CRCUnit.pas(4KB)
----Project1.dof(2KB)
----Pcomm.pas(10KB)