Buscar

Capturando seu ip global usando o componente tidhttp

Código

OBS: Nao Esqueca de Add o Componente TidHTTP

var
s: string;
x: integer;
Endereco : String;
result : string;
begin
 s:= idhttp1.Get('http://checkip.dyndns.org');
      For X := 1 to Length(s) do
        if (s[X] in ['0'..'9']) or (s[X] = '.') then
          Endereco := Endereco + s[X];
          Result := trim (endereco);
 edit1.Text:= (result);

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Componentes
Adicionada dia: 02/12/07
Por: Wagner Goncalves De Jesus
Visualizada: 3278 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009