проблема с TServerSocket и с TClientSocket

[DOLBY]

сделал прогу, которая передаёт из edit1 строку с помощью ClientSocket'a ServerSocket'у, а принятие идёт в edit2, запускаю 2 раза прогу у себя на одном компе..
проблема такая, если clientsocket.Host='127.0.0.1', то строка передаётся, но если пишу свой "внешний" IP (у меня ADSL2+), то clientsocket не может подключиться к serversocket'y с таким же IP, это наводит меня на мысль, что передача не будет идти с одного компа на другой, не соединёных ничем, кроме инета...
как мне решить эту проблему?
может взять другие компоненты?
P.S. TCPServer и TCPClient уже пробовал...

[zAlexandrz]

Код выкладывай

[DOLBY]

Вот код...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ser: TServerSocket;
    cli: TClientSocket;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    Button2: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure cliConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure cliDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure cliConnecting(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure serClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
begin
 cli.Active:=false;
 ser.Active:=false;
end;

procedure TForm1.cliConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 label1.Caption:='...Connected';
end;

procedure TForm1.cliDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
 label1.Caption:='Disonnected...';
end;

procedure TForm1.cliConnecting(Sender: TObject; Socket: TCustomWinSocket);
begin
 label1.Caption:='...Connecting...';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 cli.Socket.SendText(edit1.Text);
end;

procedure TForm1.serClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
 edit2.Text:=socket.ReceiveText;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 cli.Active:=false;
 ser.Active:=false;
 if checkbox1.Checked then
  begin
   cli.Port:=100;
   ser.Port:=200;
  end else
   begin
    cli.Port:=200;
    ser.Port:=100;
   end;
 cli.Host:=edit3.Text;
 cli.Active:=true;
 ser.Active:=true;
end;

end.

[zAlexandrz]

Странно, ошибки нет, у меня примерно также, все работает, единственное предположение может фаервол такое давать

[DOLBY]

Никаких программ, блокирующих выход в инет нету, поэтому и спрашиваю...

[zAlexandrz]

проверь, а пингуется нормально этот IP?


Вот чат, проверь у себя если не заработает это глюк твоей системы
Попробуй эту прогу

[DOLBY]

ошибка такая: "asynchrones socket error 10061" и у меня и у друга.
у нас у обоих ADSL2+, может в этом проблема?

[PAVEL315]

IP сервера надо вводить в клиенте
Узнать его можно ТУТ

[DOLBY]

Сообщение от PAVEL315

IP сервера надо вводить в клиенте
Узнать его можно ТУТ

я так и делаю!!!
ведь написал уже..

[Квэнди]

Вот что говорит по этому поводу MSDN (в свободном переводе) Socket error 10060 - Попытка установить соединение была безуспешной, т.к. от другого компьютера за требуемое время не получен нужный отклик, или было разорвано уже установленное соединение из-за неверного отклика уже подключенного компьютера.
Делайте выводы... NAT ? PortForwarding? IDS ?