Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

IP сервера [D6, Win95/98]


c0pyc@t ©   (2002-08-26 12:27:00) 

Сделал сервер на ServerSoket
вопрос как узналь ip сервера программо


Digitman   (2002-08-26 16:00:00) [1]

см. TServerWinSocket.LocalAddress


c0pyc@t   (2002-08-26 13:46:00) [2]


> AlexAn ©


Тоесть пока ко мне не подконнектяться я так свой ip и не узнаю???


c0pyc@t   (2002-08-26 13:40:00) [3]


> AlexAn ©

На моем компе есть ip я его знаю, я же хочю чтоб при запуске программы мне выдовали ip моей машины, через Accept не выходит


AlexAn   (2002-08-26 13:14:00) [4]

У сервера может быть несколько интерфейсов, а по-сему и несколько IP-адресов - ореентироваться нудно на это.
Если явным образом не указывать на каком IP у тебя висит сервер, то он вешается на все сразу, отсюда вывод узнать IP сервера для конкретнго клиента можно, когдаон установил соединение:

procedure TForm1.ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
var
addr: string;
begin
addr := Socket.LocalAddress;
...
end;

если же нужно определить на каких IP весит сервер, то здесь необходимо обращаться скорее всего к API и просмотреть какие интерфейсы поддерживают TCP/IP и какие у них адреса.


Наверх

Титульная страница Поиск, карта сайта Написать письмо