![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() И снова здравствуйте. Пишу примитивный клиент-сервер на сокетах. И почему-то не подключается клиент к серверу. Ниже прикладываю отрывки кода и сами ошибки.
Сервер: Код:
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. В упор не понимаю, в чем дело. Прошу вашей помощи |