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
<*> 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
