[fn12gl34]

И снова здравствуйте. Пишу примитивный клиент-сервер на сокетах. И почему-то не подключается клиент к серверу. Ниже прикладываю отрывки кода и сами ошибки.

Сервер:

Код:

procedure Tserverform.N1Click(Sender: TObject);
begin
IdIPWatch1.Active:=true;
host := IdIPWatch1.LocalIP;
server1.Port := 28965;
server1.Active := true;
server1.Open;
mainconsole.items.Add('Сервер запущен.');
mainconsole.items.Add('Адрес сервера: '+host);
mainconsole.items.Add('Порт сервера: '+inttostr(server1.Port));
end;

Клиент:

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1.Host := '172.0.0.1';
clientsocket1.Port := 28965;
clientsocket1.Active := true;
clientsocket1.Open;
end;

Когда компилирую сервер и жму на кнопку "Подключиться" в ивент логе появляется надпись выделенная красным: Thread Start: Thread ID: 6452. Process server.exe (8436).

Когда оба проекта запускаю с папки и пытаюсь подключить клиент к серверу появляется ошибка: Asynchronous socket error 10049.

В упор не понимаю, в чем дело. Прошу вашей помощи

[NumLock]

Use TServerSocket & TClientSocket

[fn12gl34]

Так я их и так использую:

Код:

Server1: TServerSocket;

Код:

ClientSocket1: TClientSocket;

Хотя может я неправильно понял ваш совет

[NumLock]

Код:

clientsocket1.Host := '172.0.0.1';

>>

Код:

clientsocket1.Host := '127.0.0.1';

[fn12gl34]

Это уже поправил. Но результата ноль

[NumLock]

либо Active, либо Open

[fn12gl34]

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

либо Active, либо Open

Спасибо, все помогло