Question

delphi 利用indy简单构建通讯的问题

在delphi里面，我通过，indy中的IdTCPClient, IdTCPServer构建一个简单的通信程序
思路是，通过输入对方的IP和端口绑定连接后，就发信息这样简单的程序 但是奇怪的是，我在我的机上，试了好多次都是成功连接，能接受发送信息，但是和几个朋友试验了都不行，都没法连接，是什么问题，？我在猜，估计是window那个安全警告那里截烂了，这些TCP服务的建立，端口没有成功开打。？？
希望有人可以帮帮手，我就得这么点40分。
客户端的代码
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
StdCtrls;

type
TForm1 = class(TForm)
TCPClient: TIdTCPClient;
host: TEdit;
Label1: TLabel;
Label2: TLabel;
port: TEdit;
Memo1: TMemo;
msg: TEdit;
Label3: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
TCPClient.Host:=host.Text;
TCPClient.Port:=strToint(port.Text);
try
TCPClient.Connect(3000);
text:='成功连接到'+TCPClient.Host;
memo1.Lines.add(text);
except
text:='连接失败！';
memo1.Lines.add(text);
end;

end;
procedure TForm1.Button4Click(Sender: TObject);
begin
try
TCPClient.WriteLn(msg.Text);
text:='发送成功呢！';
memo1.Lines.add(text);
except
text:='发送失败！';
memo1.Lines.add(text);
end;

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
memo1.Clear;
end;

end.
代码是没有错，端口也打开了，我感觉我有个问题没有搞清楚，是这样的通讯仅仅是针对同一个内网的机啊？要是一个内网一个外网的。就是不同一个局域网的，就不行，，但是局域网的，我这个是可以的。那样怎样才能不同内网都能够通讯，UDP打洞啊？、还有其他办法吗？不用服务器的，，直接大家登陆程序就可以的。。有办法吗》

Answer 1

你先下个 indy的demo里面的例子正好tcpclient和server的 试验一下，看是不是结果和你的一样，如果是就说是系统设置问题，如果不是，那么就是你代码的问题了。www.indyproject.org吧，官网

Answer 2

你关闭防火墙和杀毒工具试试。

或者先用telnet命令试试远程的电脑端口（服务端的端口）是否开放，如：

telnet 192.168.10.22 80

Answer 3

内网连外网应该是可行的；但是外网连内网要经过一个路由器，很难实现；

一个解决的思路是，把服务端程序放到一个具有公网IP的机器上，其他客户端程序连这台机器

Answer 4

搭车~我也来等答案……