发表于:2004/8/21 16:43:00
#0楼
我刚开始接触PLC,想用DELPHI与FX系列PLC通信
下面和PLC握手函数的代码
function handshake:boolean;
var
tmpbyte:byte;
tmpvar:variant;
begin
mscomm1.rthreshold:=0;
mscomm1.output:=$05;//ENQ
sleep(1000);
if mscomm1.inbuffercount>0 then
begin
tmpvar:=mscomm1.input;
tmpbyte:=tmpvar[0];
if tmpbyte=$06 then //ACK
result:=true
else
result:=false;
end
else
result:=false;
end;
当函数运行到 mscomm1.output:=$05;//ENQ这一步时就出错
请高手们多多指教!
下面和PLC握手函数的代码
function handshake:boolean;
var
tmpbyte:byte;
tmpvar:variant;
begin
mscomm1.rthreshold:=0;
mscomm1.output:=$05;//ENQ
sleep(1000);
if mscomm1.inbuffercount>0 then
begin
tmpvar:=mscomm1.input;
tmpbyte:=tmpvar[0];
if tmpbyte=$06 then //ACK
result:=true
else
result:=false;
end
else
result:=false;
end;
当函数运行到 mscomm1.output:=$05;//ENQ这一步时就出错
请高手们多多指教!