IP клиента

[JoanM]

Здравствуйте!
У меня такой вопрос:
Я шарил по справке форума, но там ничего конкретного найти не смог, поэтому пишу сюда. У меня есть серверное и клиентское приложения на Socket'ах (Server socket...) Подскажите, как определить на сервере при получении нового сообщения, от кого оно, точнее - от какого IP пришло. Соединяюсь по LAN. Ещё если можно подскажите, как повешенный на Socket'ах чат запустить через интернет (чтоб соединялся клиент с удалённым серваком через инет).
Заранее спасибо!

[Beermonza]

Может быть одна из статей поможет:
http://pblog.ru/?p=91
http://pblog.ru/?p=100

[BOBAH13]

Если на сокетах на TCP/Ip то хоть сеть хоть инет пофигу. Ну а если вы и на сокетах пишете, то вопрос как получить ip приходящих данных - это помойму ерунда какая-то Вы же все оформляите на сокетах, весь процесс там вся необходимая информация и содержится.

[JoanM]

Вы же все оформляите на сокетах, весь процесс там вся необходимая информация и содержится.

Правильно, информация есть (список подключенных IP). Ну вот допустим в сервере я пишу, что при OnClientRead прочитать IP клиента, приславшего сообщение, и отправить лично ему ответ. Вся фишка в том, что при отправлении сообщения клиентом, он не отправляет свой IP, а на сервере тупо висит лист всех подключений (лист IP) - в Server Socket. Мне нужно с помощью компонента TServerSocket (или какого-нить другого) пробить IP клиента приславшего, даже если путём перебора по листу IP на серваке. Но не присылая клиентом самим свою отличительную метку (например ID), я не смогу осуществить поиск нужного клиента. Тут какая-то функция должна быть. Вот прошу помочь!

[malevich]

при присоединении клиента к серверу будет выдаватся его IP

procedure TForm1.ServerSocket1ClientConnect(S ender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage(socket.LocalHost);
end;

[malevich]

или точнее socket.RemoteAddress

[DeCoder]

Хм... На сервер приходит какая-либо информация от клиента, точнее, от его ip. Не знаю как, но можно по полученному сообщению определить Ip.
Просто сегодня часов 6 гуглил - так ничего на данную тему не нашёл кроме этого(((.

[Квэнди]

Что есть сервер ? что есть клиент ?

[Beermonza]

JoanM, DeCoder, вам же сказали - Socket.RemoteAddress , означает: "показать удаленный адрес" , это свойство возвращает строку типа String, в ней нужный вам IP клиента.
Пример:

S:=Socket.RemoteAddress;
...переменная S типа String будет содержать удаленный IP адрес.

Пишите это, допустим, на прием сообщения у сервера OnClientRead тогда, каждый раз будет определяться IP клиента, приславшего сообщение. Или при подключении, для составления списка IP-адресов клиентов.

[BOBAH13]

Оформите пакет вида

TPacked  = packed record
  MyIP: Integer;
  ...
end;

ну или в таком духе чтот, как удобнее для вас. И отправляется все что хотите