|
Модераторы: Snowy, Poseidon, MetalFan |
|
Delphin1024 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 4.3.2016 Репутация: нет Всего: нет |
Здравствуйте. Меня интересует, как узнать свой IP в Delphi 7. Сразу скажу, что IdIPWatch мне не подходит, так как он позволяет узнать только локальный IP, а мне нужен настоящий.
|
|||
|
||||
bySawka |
|
|||
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 10.10.2013 Репутация: нет Всего: нет |
Отправляй запрос на сервер ( например 2ip) и парси результат
Этот ответ добавлен с нового Винграда - http://vingrad.com |
|||
|
||||
kami |
|
|||
Эксперт Профиль Группа: Завсегдатай Сообщений: 1806 Регистрация: 25.8.2007 Где: Санкт-Петербург Репутация: 6 Всего: 72 |
У меня на компьютере 5 IP:
1. Lan. 192.168.1.120. Используется в локалке 2. Wi-Fi. 192.168.0.165. Вторая локалка и выход в интернет через роутер. У роутера свой IP. 3. 3 штуки виртуальных VM-Ware и т.п. Какой из них считать "настоящим"? |
|||
|
||||
mikeyess |
|
|||
Новичок Профиль Группа: Участник Сообщений: 0 Регистрация: 7.1.2014 Репутация: нет Всего: нет |
function TForm_Login.Get_LocalIP: string;
const WSVer = $101; var wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin Result := ''; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin P := GetHostByName(@Buf); if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup; end; end; Этот ответ добавлен с нового Винграда - http://vingrad.com |
|||
|
||||
Правила форума "Delphi: Сети" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Сети | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |