VPF::Как в Delphi узнать свой IP? IPWatch не предлагать

Delphin1024

Дата 27.3.2016, 06:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 4.3.2016

Репутация: нет
Всего: нет

Здравствуйте. Меня интересует, как узнать свой IP в Delphi 7. Сразу скажу, что IdIPWatch мне не подходит, так как он позволяет узнать только локальный IP, а мне нужен настоящий.

bySawka

Дата 28.3.2016, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 10.10.2013

Репутация: нет
Всего: нет

Отправляй запрос на сервер ( например 2ip) и парси результат

Этот ответ добавлен с нового Винграда - http://vingrad.com

kami

Дата 28.3.2016, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 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

Дата 28.3.2016, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »