seguinte :
essa funcao eu fiz pq o primeiro ip na minha maquina pega o da rede local e
o segundo pega do velox...
----- Original Message -----
From: "lixeirod" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, November 16, 2004 6:04 PM
Subject: [delphi-br] Re: Detectar IP da ADSL
Esse n�o funciona. Ele gera um IP em fun��o de um n�mero.
N�o entendi como isso possa funcionar.
[]'s
--- Em [EMAIL PROTECTED], "JUNIOR"
<[EMAIL PROTECTED]> escreveu
> tenta isso
>
>
> Function Get_IPD( iPos : integer = 2 ):String;
> { Declare a Winsock }
> var
> WSAData: TWSAData;
> HostEnt: PHostEnt;
> Name:string;
> ii,ic : Integer;
> sIPS : Array[1..10] of String;
> begin
> FillChar( sIPS,SizeOf(sIPS),#0 );
> WSAStartup(2, WSAData);
> SetLength(Name, 255);
> Gethostname(PChar(Name), 255);
> SetLength(Name, StrLen(PChar(Name)));
> HostEnt := gethostbyname(PChar(Name));
> with HostEnt^ do
> Begin
> ii := 0;
> iC := 0;
> repeat
> inc( ic );
> sIPS[ic] :=
> Format('%d.%d.%d.%d',[Byte(h_addr^[ii]),Byte(h_addr^[ii+1]),Byte
(h_addr^[ii+
> 2]),Byte(h_addr^[ii+3])]);
> inc( ii,4 );
> until ic >= 10;
> end;
> WSACleanup;
> Result := sIPS[iPos];
> end;
>
> boa sorte
> ----- Original Message -----
> From: "Vanderlei" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Friday, November 12, 2004 4:07 PM
> Subject: [delphi-br] Detectar IP da ADSL
>
>
>
> Pessoal,
>
>
> Preciso capturar o ip de uma conexao com a internet, ja tenho
varias funcoes
> para capturar o Ip Local, mas nao consigo nenhum q me de o
endereco ip da
> conexao adsl.
>
> Alguem poderia me ajudar.
>
> Att
>
> Vanderlei
>
> [As partes desta mensagem que n�o continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos:
http://br.yahoo.com/info/utos.html
