IP INternet

Delphi

08/09/2006

Galara Como faço para pegar o ip da internet, no caso eu uso um modem adsl, mas a função que eu uso pega o ip da placa de rede e nao da internet, www.meuip.com.br


Guigosnet

Guigosnet

Curtidas 0

Respostas

Mahdak

Mahdak

08/09/2006

idHttp1 = TIDHttp1

procedure TForm1.Button1Click(Sender: TObject);
var 
  strFull : string; 
begin 
  strFull      := idHttp1.Get(´http://www.meuip.com.br´);
  Edit_IP.Text := Copy(strFull,Pos(´<strong class="IP">´, strFull) + 19, 12);
end;



GOSTEI 0
POSTAR