Создание подключения через INDY [Delphi7]

[-Jack-]

Всем доброго времени суток. Возникла загвоздка в подключении клиента к серверу ... что я делаю не так ?

сервер

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPServer1.DefaultPort:=StrToInt(Edit1.Text); // здесь порт 19910
IdTCPServer1.Active:=true;
Memo1.Lines.Add('Система включена');
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
  memo1.Lines.add('подключились');
end;

клиент

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Connect;
end;

[Stilet]

что я делаю не так ?

А что происходит?

[-Jack-]

По идеи, на сколько я понимаю, при каждом подключении пользователя должно в мемо идти ''подключились''. Но в мемо пусто и клиент выдаёт timeout

[Stilet]

Файерволл не гасит?

[-Jack-]

Нет ... его вообще нету

[Shouldercannon]

Попробуй ClientSocket и ServerSocket

[Alex2009]

Проверь открыты ли у тебя порты, особенно если у тебя роутер.

[Stilet]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    IdTCPClient1: TIdTCPClient;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure IdTCPServer1Connect(AThread: TIdPeerThread);
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 IdTCPServer1.DefaultPort:=19910;
 IdTCPServer1.Active:=true;

 IdTCPClient1.Port:=19910;
 IdTCPClient1.Host:='localhost';

end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('Connectes');
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
 Memo1.Lines.Add(AThread.Connection.AllData);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 IdTCPClient1.Connect;
  IdTCPClient1.WriteLn(TimeToStr(now));
 IdTCPClient1.Disconnect;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 IdTCPClient1.Disconnect;
 IdTCPServer1.Active:=false;
end;

end.

Это работает?
Если нет - попускай файерволл.