西门子200PLC通信 ppi协议delphi.docx
- 文档编号:30143458
- 上传时间:2023-08-05
- 格式:DOCX
- 页数:42
- 大小:18.38KB
西门子200PLC通信 ppi协议delphi.docx
《西门子200PLC通信 ppi协议delphi.docx》由会员分享,可在线阅读,更多相关《西门子200PLC通信 ppi协议delphi.docx(42页珍藏版)》请在冰豆网上搜索。
西门子200PLC通信ppi协议delphi
本栏论题:
西门子200PLC通信ppi协议-delphi [582]
由于站点暂时不能上传源代码文件,所以只能先贴上代码了
1、本程序仅用于工控爱好者交流使用,鄙视用于商业的行径
2、已开发出西门子s7-300plc的通信控件,可以与西门子各种型号plc进行
通信。
期望与感兴趣的同仁进行交流。
作者邮箱:
lkl_xz@
qq:
57476662
2008.06.25
*****************************说明**********************
1\上位机通过串口与西门子200通信,基于ppi协议,pc-ppi编程电缆
2\主要基于v区进行通信,实际应用中足够了,故没有对其他区进行操作
3\要点:
1)一次读取v区多个字节,
2)v区的位操作:
置位和复位,在第1个文本框中输入v区地址,在第2个文本框中输入位地址,如程序默认的地址是V0.0
3)写一个字
4\注意:
实际应用中一次最多可以读取v区55个字节,否则会造成读取失败
5\安装:
附带MSCOMM32串口通信控件的安装程序。
代码×××××××××××××××××××××××
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,MSCommLib_TLB,OleCtrls;
type
TForm1=class(TForm)
MSComm1:
TMSComm;
Button1:
TButton;
Button2:
TButton;
Memo1:
TMemo;
Edit1:
TEdit;
Edit2:
TEdit;
Label1:
TLabel;
Label2:
TLabel;
StaticText1:
TStaticText;
StaticText2:
TStaticText;
Button3:
TButton;
Edit3:
TEdit;
Button4:
TButton;
StaticText3:
TStaticText;
Button7:
TButton;
Button8:
TButton;
Button10:
TButton;
Button5:
TButton;
Button11:
TButton;
procedureButton1Click(Sender:
TObject);
procedureButton2Click(Sender:
TObject);
procedureFormCreate(Sender:
TObject);
procedureFormClose(Sender:
TObject;varAction:
TCloseAction);
procedureButton3Click(Sender:
TObject);
procedureButton5Click(Sender:
TObject);
procedureFormShow(Sender:
TObject);
procedureButton7Click(Sender:
TObject);
procedureButton8Click(Sender:
TObject);
procedureButton9Click(Sender:
TObject);
procedureButton4Click(Sender:
TObject);
procedureButton10Click(Sender:
TObject);
procedureButton11Click(Sender:
TObject);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
str_write,str_val,CommRecvTxt:
arrayofByte;
Temp_FCS:
byte;
implementation
{$R*.dfm}
procedureTForm1.Button1Click(Sender:
TObject);
var
i:
integer;
tmp:
string;
begin
memo1.Lines.Add('W--------------------------');
SetLength(str_write,38);
str_write[0]:
=byte($68);
str_write[1]:
=byte($20);//packagelen
str_write[2]:
=byte($20);//packagelenrepeated
str_write[3]:
=byte($68);
str_write[4]:
=byte($02);//plcstationno
str_write[5]:
=byte($00);//pcdefaultzero
str_write[6]:
=byte($7C);//6cread,7cwrite
str_write[7]:
=byte($32);
str_write[8]:
=byte($01);
str_write[9]:
=byte($00);
str_write[10]:
=byte($00);
str_write[11]:
=byte($00);
str_write[12]:
=byte($00);
str_write[13]:
=byte($00);
str_write[14]:
=byte($0E);
str_write[15]:
=byte($00);
str_write[16]:
=byte($05);
str_write[17]:
=byte($05);
str_write[18]:
=byte($01);
str_write[19]:
=byte($12);
str_write[20]:
=byte($0A);
str_write[21]:
=byte($10);
//*****************************************8
str_write[22]:
=byte($02);
str_write[23]:
=byte($00);
str_write[24]:
=byte($01);//datalen
str_write[25]:
=byte($00);
str_write[26]:
=byte($01);
str_write[27]:
=byte($84);//04S,05SM,06AI,07AQ,1EC,81I,82Q,83M,84V,1FT
str_write[28]:
=byte($00);
str_write[29]:
=(strtoint(edit1.Text)*8)div256;
str_write[30]:
=(strtoint(edit1.Text)*8)Mod256;
str_write[31]:
=byte($00);
str_write[32]:
=byte($04);//04为写入其他,03写入位
str_write[33]:
=byte($00);
str_write[34]:
=byte($08);//01bit,08byte,10word,20dword
str_write[35]:
=byte(strtoint(edit2.Text));//data
//str_write[35]:
=$10;
Temp_FCS:
=0;
Fori:
=4To35do
Temp_FCS:
=Temp_FCS+str_write[i];
memo1.Lines.Add(inttostr(temp_Fcs));
str_write[36]:
=Temp_FCSMod256;
str_write[37]:
=byte($16);
MSComm1.Output:
=str_write;
Sleep(100);
SetLength(CommRecvTxt,1);
CommRecvTxt:
=mscomm1.Input;
memo1.Lines.Add('begin');
ifLength(CommRecvTxt)<>0then
begin
ifinttohex(CommRecvTxt[0],2)='E5'then
begin
memo1.Lines.Add('E5');
MSComm1.Output:
=str_val;
Sleep(100);
SetLength(CommRecvTxt,512);
CommRecvTxt:
=mscomm1.Input;
ifLength(CommRecvTxt)<>0then
begin
fori:
=Low(CommRecvTxt)toHigh(CommRecvTxt)do
tmp:
=tmp+inttohex(CommRecvTxt[i],2)+',';
memo1.Lines.Add(tmp);
end
elsememo1.Lines.Add('ok...zero');
end
elsememo1.Lines.Add('error');
end
elsememo1.Lines.Add('zero...');
end;
procedureTForm1.Button2Click(Sender:
TObject);
var
i:
integer;
tmp:
string;
begin
memo1.Lines.Add('R--------------------------');
//str_write:
=VarArrayCreate([0,32],varByte);
str_write[0]:
=byte($68);
str_write[1]:
=byte($1B);//packagelen
str_write[2]:
=byte($1B);//packagelenrepeated
str_write[3]:
=byte($68);
str_write[4]:
=byte($02);//plcstationno
str_write[5]:
=byte($00);//pcdefaultzero
str_write[6]:
=byte($6C);//6cread,7cwrite
str_write[7]:
=byte($32);
str_write[8]:
=byte($01);
str_write[9]:
=byte($00);
str_write[10]:
=byte($00);
str_write[11]:
=byte($00);
str_write[12]:
=byte($00);
str_write[13]:
=byte($00);
str_write[14]:
=byte($0E);
str_write[15]:
=byte($00);
str_write[16]:
=byte($00);
str_write[17]:
=byte($04);
str_write[18]:
=byte($01);
str_write[19]:
=byte($12);
str_write[20]:
=byte($0A);
str_write[21]:
=byte($10);
//*****************************************8
str_write[22]:
=byte($02);//01bit,08byte,10word,20dword
str_write[23]:
=byte($00);
str_write[24]:
=byte($01);//datalen
str_write[25]:
=byte($00);
str_write[26]:
=byte($01);//04为写入其他,03写入位
str_write[27]:
=byte($84);//04S,05SM,06AI,07AQ,1EC,81I,82Q,83M,84V,1FT
str_write[28]:
=byte($0);
str_write[29]:
=(strtoint(edit1.Text)*8)div256;
str_write[30]:
=(strtoint(edit1.Text)*8)Mod256;
Temp_FCS:
=0;
Fori:
=4To30do
Temp_FCS:
=Temp_FCS+str_write[i];
memo1.Lines.Add(inttostr(temp_Fcs));
str_write[31]:
=Temp_FCSMod256;
str_write[32]:
=byte($16);
MSComm1.Output:
=str_write;
Sleep(100);
CommRecvTxt:
=mscomm1.Input;
//ifinttohex(CommRecvTxt[0],2)='E5'then
begin
MSComm1.Output:
=str_val;
sleep(100);
CommRecvTxt:
=mscomm1.Input;
fori:
=0to27dotmp:
=tmp+inttohex(byte(CommRecvTxt[i]),2)+',';
memo1.Lines.Add('//'+tmp);
end;
//memo1.Lines.Add('error');
end;
procedureTForm1.FormCreate(Sender:
TObject);
begin
self.MSComm1.PortOpen:
=true;
end;
procedureTForm1.FormClose(Sender:
TObject;varAction:
TCloseAction);
begin
self.MSComm1.PortOpen:
=false;
end;
procedureTForm1.Button3Click(Sender:
TObject);
var
i,j:
Integer;
tmp:
string;
begin
memo1.Lines.Add('Rmore----------------------');
//str_write:
=VarArrayCreate([0,32],varByte);
SetLength(str_write,33);
str_write[0]:
=byte($68);
str_write[1]:
=byte($1B);//packagelen
str_write[2]:
=byte($1B);//packagelenrepeated
str_write[3]:
=byte($68);
str_write[4]:
=byte($02);//plcstationno
str_write[5]:
=byte($00);//pcdefaultzero
str_write[6]:
=byte($6C);//6cread,7cwrite
str_write[7]:
=byte($32);
str_write[8]:
=byte($01);
str_write[9]:
=byte($00);
str_write[10]:
=byte($00);
str_write[11]:
=byte($00);
str_write[12]:
=byte($00);
str_write[13]:
=byte($00);
str_write[14]:
=byte($0E);//数据块占位字节,长度=4+数据块数*10,条数据时为4+10=0E(H);读M,V,Q三个数据块时4+3*10=22(H)。
str_write[15]:
=byte($00);
str_write[16]:
=byte($00);
str_write[17]:
=byte($04);
str_write[18]:
=byte($01);
str_write[19]:
=byte($12);
str_write[20]:
=byte($0A);
str_write[21]:
=byte($10);
//*****************************************8
str_write[22]:
=byte($02);//02byte为单位04word
str_write[23]:
=byte($00);
str_write[24]:
=byte(StrToInt(Edit3.Text));//datalen
str_write[25]:
=byte($00);
str_write[26]:
=byte($01);//04为写入其他,03写入位
str_write[27]:
=byte($84);//04S,05SM,06AI,07AQ,1EC,81I,82Q,83M,84V,1FT
str_write[28]:
=byte($0);
str_write[29]:
=(strtoint(edit1.Text)*8)div256;
str_write[30]:
=(strtoint(edit1.Text)*8)Mod256;
Temp_FCS:
=0;
Fori:
=4To30do
Temp_FCS:
=Temp_FCS+str_write[i];
memo1.Lines.Add(inttostr(temp_Fcs));
str_write[31]:
=Temp_FCSMod256;
str_write[32]:
=byte($16);
MSComm1.Output:
=str_write;
Sleep(100);
SetLength(CommRecvTxt,1);
CommRecvTxt:
=MSComm1.Input;//
ifLength(CommRecvTxt)<>0then
ifinttohex(CommRecvTxt[0],2)='E5'then
begin
MSComm1.Output:
=str_val;
sleep(100);
SetLength(CommRecvTxt,512);
CommRecvTxt:
=MSComm1.Input;//
ifLength(CommRecvTxt)<>0then
forj:
=Low(CommRecvTxt)toHigh(CommRecvTxt)do
tmp:
=tmp+inttohex(byte(CommRecvTxt[j]),2)+',';
memo1.Lines.Add('//'+tmp);
memo1.Lines.Add(IntToStr(High(CommRecvTxt)));
end;
end;
procedureTFor
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 西门子200PLC通信 ppi协议delphi 西门子 200 PLC 通信 ppi 协议 delphi
![提示](https://static.bdocx.com/images/bang_tan.gif)