![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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 и какие у них адреса.