Обратное подключение IdTCPServer

@NIKOLAYY · Регистрация: 22.09.2012

Author24 — интернет-сервис помощи студентам

Подключаюсь клиентом через ай-пи адрес сервера ну примерно так:

Delphi

1
2
3

IdTCPClient1.Host := Edit1.Text; // здесь пишем IP-адрес компьютера-СЕРВЕРА!
  IdTCPClient1.Port := 8090;
  IdTCPClient1.Connect();

А как подключится серверу к клиенту (наоборот) через ай-пишку КЛИЕНТА!?

В гугле нарыл такой кодно он не заработал, гдето ошибка наверн.

Delphi

//Код для кнопки "Создать сервер" (или для события OnShow формы): 
  IdTCPServer1.Bindings.Add;
  IdTCPServer1.Bindings.Items[0].IP:='здесь пишем IP-адрес компьютера-КЛИЕНТА';
  IdTCPServer1.Bindings.Items[0].Port:=1234; { Порт должен быть и на сервере и на клиенте одинаковым! }
  IdTCPServer1.Active:=True; // запуск сервера

Или мож есть у кого готовый исходничек?

Добавлено через 7 минут
Смысл думаю понятен, Чтоб не перебирать ай-пишники серверов (если их много), проще сделать чтоб сервер сам искал подключившегося клиета!
Тогда достаточно будет прописать в сервер тока один единственный свой ай-пи!

@mss · 10.07.2013, 08:11

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

ак подключится серверу к клиенту

Никак.

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

чтоб сервер сам искал подключившегося клиета

Что его искать-то ? Он уже подключился.

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	10.07.2013, 08:11	2
	Сообщение от NIKOLAYY ак подключится серверу к клиенту Никак. Сообщение от NIKOLAYY чтоб сервер сам искал подключившегося клиета Что его искать-то ? Он уже подключился. 0