IP сервера

← →
c0pyc@t © (2002-08-26 12:27) [0]

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

← →
AlexAn © (2002-08-26 13:14) [1]

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

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

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

← →
c0pyc@t © (2002-08-26 13:40) [2]

> AlexAn ©

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

← →
c0pyc@t © (2002-08-26 13:46) [3]

см. TServerWinSocket.LocalAddress

IP сервера Найти похожие ветки