Delphi dicas

Capturando seu ip global usando o componente tidhttp

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);

por : Wagner Goncalves De Jesus