D
dreamya
Unregistered / Unconfirmed
GUEST, unregistred user!
请问能不能不用ONCOM事件进行通信
procedure button1click(..)
var
buf:variant;
rbuf
levariant;
sbuffer:string;
begin
buf:='010f00f010';
rbuf:=buf;
MScomm1.RThreshold:=0;
MScomm1.portopen:=true;
MScomm1.output:=rbuf;
delay; {等待下位机的信号}
rbuf:=MScomm1.input;
MScomm1.portopen:=false;
memo1.text:=rbuf;
end;
这个程序可不可以实现通信，应怎么改？谢谢
procedure button1click(..)
var
buf:variant;
rbuf
levariant;sbuffer:string;
begin
buf:='010f00f010';
rbuf:=buf;
MScomm1.RThreshold:=0;
MScomm1.portopen:=true;
MScomm1.output:=rbuf;
delay; {等待下位机的信号}
rbuf:=MScomm1.input;
MScomm1.portopen:=false;
memo1.text:=rbuf;
end;
这个程序可不可以实现通信，应怎么改？谢谢
