И снова здравствуйте. Пишу примитивный клиент-сервер на сокетах. И почему-то не подключается клиент к серверу. Ниже прикладываю отрывки кода и сами ошибки.
Сервер:
Код:
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.
В упор не понимаю, в чем дело. Прошу вашей помощи