procedure TForm1.Button3Click(Sender: TObject);
var
buf:array[0..9] of char;
begin
buf:='dafdsfa';
nmudp1.SendBuffer(buf,10);
end;procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
buf:array[0..9] of char;
begin
nmudp1.ReadBuffer(buf,numberbytes);
showmessage(buf);
end;把remotehost设成127.0.0.1就可以自已跟自已通讯了,进一步还是自已看帮助吧
var
buf:array[0..9] of char;
begin
buf:='dafdsfa';
nmudp1.SendBuffer(buf,10);
end;procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
buf:array[0..9] of char;
begin
nmudp1.ReadBuffer(buf,numberbytes);
showmessage(buf);
end;把remotehost设成127.0.0.1就可以自已跟自已通讯了,进一步还是自已看帮助吧
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货