Получить Ip Адрес Delphi

Для получения IP-адреса в Delphi мы можем использовать библиотеку Indy. Эта библиотека предоставляет класс TIdStack, который содержит методы для работы с сетью. Один из таких методов - TIdStack.LocalAddresses - возвращает список локальных IP-адресов, присвоенных компьютеру.

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    GStack.AddLocalAddressesToList(sl);
    ShowMessage(sl.CommaText);
  finally
    sl.Free;
  end;
end;

В приведенном выше примере мы создаем TStringList, чтобы хранить список IP-адресов. Затем мы используем метод GStack.AddLocalAddressesToList, чтобы добавить каждый локальный IP-адрес в этот список. Наконец, мы показываем список IP-адресов с помощью метода CommaText.

Если мы хотим получить внешний IP-адрес компьютера, мы можем использовать внешний сервис, такой как ipify.org, который возвращает наш внешний IP-адрес в формате JSON. Для этого мы можем использовать TNetHTTPClient и TJSONObject, чтобы получить данные от сервера и извлечь наш IP-адрес.

var
  http: TNetHTTPClient;
  json: TJSONObject;
begin
  http := TNetHTTPClient.Create(nil);
  try
    json := TJSONObject.ParseJSONValue(http.Get('https://api.ipify.org?format=json').ContentAsString) as TJSONObject;
    ShowMessage(json.GetValue('ip').Value);
  finally
    http.Free;
    json.Free;
  end;
end;

В приведенном выше коде мы создаем TNetHTTPClient, который позволяет нам отправлять запросы на сервер. Затем мы используем метод Get, чтобы получить данные от ipify.org в формате JSON. Мы преобразуем полученные данные в объект TJSONObject и затем извлекаем наш IP-адрес с помощью метода GetValue.