Форум: "Сети";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

Как получить IP адрес компьютера?   Найти похожие ветки 

← →
Snake2000   (2002-01-05 18:00) [3]

Да...... Не ожидал..... А так сойдет?
Код загоняется в любую процедуру или функцию:


var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
ShowMessage("Your IP is : ",inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;


Ну, очевидно же, что в uses надо добавить Winsock :)))))) Ну ты даешь !! :))))) На Новый Год перепил что ли...
Порылся бы по форуму, там подобных вопросов уйма...
Оба примера у меня отлично работают, и не мне приводить тебе код готового модуля.

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.022 c