Внешний Ip Delphi 7

В Delphi 7 для получения внешнего IP адреса можно использовать функцию IdHTTP.Get() из библиотеки Indy. Необходимо отправить запрос к сервису, который вернет IP адрес.

Пример кода:

uses IdHTTP, IdSSLOpenSSL, System.JSON

function GetExternalIP: string;
var
  IdHTTP: TIdHTTP;
  Response: TStringStream;
  JSONObj: TJSONObject;
begin
  Result := '';
  IdHTTP := TIdHTTP.Create;
  try
    Response := TStringStream.Create('');
    try
      IdHTTP.Get('https://api.ipify.org?format=json', Response);
      JSONObj := TJSONObject.ParseJSONValue(Response.DataString) as TJSONObject;
      try
        Result := JSONObj.GetValue('ip').Value;
      finally
        JSONObj.Free;
      end;
    finally
      Response.Free;
    end;
  finally
    IdHTTP.Free;
  end;
end;

В этом примере мы используем сервис api.ipify.org для получения текущего IP адреса соединения. Полученный результат будем использовать в дальнейшем при необходимости выполнения других функций.