IdUDPClient和idUDPServer在局域网可以使用,但是外网ip没办法

Thinbug 2008-04-08 10:22:37
我的小程序用的IdUDPClient和idUDPServer在局域网可以使用,但是外网ip没办法接收发送数据

这个是为什么 ?

网络没问题,在网上找个其他软件测试网络没问题。但是我的程序就有问题。请指点
procedure TForm_main.Button_sendClick(Sender: TObject);
var
str : string ;
begin
try
IdUDPClient1.Port:=strtoint(Edit_port2.Text);;
IdUDPClient1.Host:=Edit_ip2.Text;
IdUdpClient1.Active:=true;
IdUdpClient1.ReceiveTimeout:=5000;
str := Memo2.Text ;

IdUdpClient1.Send(str);
except
Memo2.Lines.Add('发送出错!');
end;
end;

procedure TForm_main.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
DataStringStream: TStringStream;
s,cIP,cPort: String;
begin
try
DataStringStream := TStringStream.Create( ' ');
DataStringStream.CopyFrom(AData, AData.Size);
s := DataStringStream.DataString;
cIP := ABinding.PeerIP ;
cPort := inttostr(ABinding.PeerPort);
Memo1.Lines.Add(cIP+':'+cPort+' '+s);
ListBox_ip.Items.Clear;
ListBox_ip.Items.Add(cIP+':'+cPort) ;
except
Memo1.Lines.Add('接收出错!');
end;
end;

procedure TForm_main.Button_getClick(Sender: TObject);
begin
if Button_get.Caption = '关闭' then
begin
idUDPServer1.DefaultPort := strtoint(Edit_port1.Text);
Button_get.Caption := '打开' ;
idUDPServer1.Active := True ;
end
else
begin
Button_get.Caption := '关闭';
idUDPServer1.Active := false ;
end ;
end;

procedure TForm_main.ListBox_ipClick(Sender: TObject);
var
s : string ;
i,len : integer;
begin
s := Listbox_ip.Items.Strings[0] ;
len := length(s);
i := pos(':',s);
if i <> 0 then
begin
Edit_ip2.Text := MidStr(s,0,i-1);
Edit_port2.Text := MidStr(s,i+1,len);
end;
end;
...全文
153 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Thinbug 2008-04-09
  • 打赏
  • 举报
回复
找到问题了,散粉。
brightyang 2008-04-08
  • 打赏
  • 举报
回复
ip问题!~~

你确定你的IP是写的公网IP和端口?
喝口水 2008-04-08
  • 打赏
  • 举报
回复
如何真是外网IP的话,是没问题的
brightyang 2008-04-08
  • 打赏
  • 举报
回复
发的时候有没有服务器监控?

开一个抓包的looklook
Thinbug 2008-04-08
  • 打赏
  • 举报
回复
我收都没问题,发能有问题吗?想不通

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧