文档介绍：本栏论题:西门子200PLC通信ppi协议-delphi[582]由于站点暂时不能上传源代码文件,所以只能先贴上代码了1、本程序仅用于工控爱好者交流使用,鄙视用于商业的行径2、已开发出西门子s7-300plc的通信控件,可以与西门子各种型号pic进行通信。期望与感兴趣的同仁进行交流。作者邮箱:lkl_******@qq:57476662200&\上位机通过串口与西门子200通信,基于ppi协议,pc-ppi编程电缆2\主要基于v区进行通信,实际应用屮足够了,故没有对其他区进行操作3\要点:1) 一次读取v区多个字节,2) v区的位操作:置位和复位,在第1个文本框中输入v区地址,在第2个文本框中输入位地址,) 写一个字4\注意:实际应用中一次最多可以读取v区55个字节,否则会造成读取失败5\安装:附带MSC0MM32串口通信控件的安装程序。代码XXXXXXXXXXXXXXXXXXXXXXXunitUnitl;interfaceusesWindows,Messages,Syslltils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,mLib_TLB,OleCtr1s;typeTForml=class(TForm)MSCoinml:m;Buttonl:TButton;Button2:TButton;Memo1:TMemo;Editl:TEdit;Edit2:TEdit;Label1:TLabel;Labe12:TLabel;StaticTextl:TStaticText;StaticText2:TStaticText;Button3:TButton;Edit3:TEdit;Button4:TButton;StaticText3:TStaticText;Button7:TButton;Button8:TButton;ButtonlO:TButton;Buttons:TButton;Buttonl1:TButton;procedureButtonlClick(Sender:TObject);procedureButton2Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureButton3CIick(Sender:TObject);procedureButton5Click(Sender:TObject);procedureFormShow(Sender:TObject);procedureButton7Click(Sender:TObject);procedureButton8Click(Sender:TObject);procedureButton9Click(Sendcr:TObject);procedureButton4Click(Sender:TObject);procedureButtonl0C1ick(Sender:TObject);procedureButtonl1C1ick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForml:TForml;str_write,mRecvTxt:arrayofByte;Temp_FCS:byte;implementation($R*・dfm}(Sender:TObject);vari:integer;tmp:string;beginstr_write[10]str_write[ll]str_write[12]strwrite[13]strwrite[14]str_write[15]str_write[16]strwrite[17]strwrite[18]strwrite[19]str_write[20]str_write[21]=byte($00);=byte($00);=byte($00);=byte($00);=byte($0E);=byte($00);=byte($05);=byte($05);=byte($01);=byte($12);=byte($0A)=byte($10);str_write[0]str_write[l]str_write[2]strwrite[3]strwrite[4]str_write[5]str_write[6]str_writo[7]strwrite[8]strwrite[9]=byte($68