udpclient.Active:=true;
udpclient.Sendln(cmd,#$D);
if udpclient.Connect then
begin
data:=udpclient.Receiveln(#$D);
end;
udpclient.Active:=False;
udpclient.Active:=true;
udpclient.Sendln(cmd,#$D);
if udpclient.Connect then
begin
data:=udpclient.Receiveln(#$D);
end;
udpclient.Active:=False;
转载于:https://my.oschina.net/jingshishengxu/blog/499007