[DELPHI] PEGAR IP DA INTERNET

//uses IDHttp

procedure TForm1.Button1Click(Sender: TObject); 

var

  IP: TIdHTTP;

  Temporario: String;

  Endereco: String;

  X: Integer;

begin

  IP := TIdHTTP.Create(nil);

  try

    try

      with IP do

      begin

        Temporario := Get('http://checkip.dyndns.org');

        for X := 1 to length(Temporario) do

          if (CharInSet(Temporario[X], ['0' .. '9', '.'])) then

            Endereco := Endereco + Temporario[X];

      end;

      ShowMessage(trim(Endereco));

    except

      ShowMessage('ERRO AO RECUPERAR IP');

    end;

  finally

    IP.Free

  end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】