Aqui funciona Blz.....
passo o parametro 2 e pega o ip do velox , parametro 1 pego ip da rede local
----- Original Message -----
From: "lixeirod" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 17, 2004 3:45 PM
Subject: [delphi-br] Re: Detectar IP da ADSL
Já tenti, e por isso que eu não entendo como isso possa funcionar.
Você tem certeza que o IP que está te retornando é seu mesmo?
Tente verificar com um "ipconfig" ou entre nas configurações do
modem e confirme isso.
Me parece que ele simplesmente inventa um número IP conforme um
número que é passado por parâmentro. Até porque, não funciona se
enviar um número maior que 9.
Esse é o meu ponto de vista, mas posso estar enganado.
[]'s
--- Em [EMAIL PROTECTED], "JUNIOR"
<[EMAIL PROTECTED]> escreveu
> tente passar o parametro Get_IPD( 1 ),Get_IPD( 2 ),Get_IPD(3)......
> ----- 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
--
<<<<< 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
