Use a funcão abaixo, mas é necessário que o cabo de rede esteja conectado,
senão ela ira retornar o endereço 127.0.0.0 ok........
uses WinSock;
Function TNMInfo.GetIPAddress: String;
Type
Name = Array[0..100] Of Char;
PName = ^Name;
Var
HEnt: pHostEnt;
HName: PName;
WSAData: TWSAData;
i: Integer;
Begin
Result := '';
If WSAStartup($0101, WSAData) <> 0 Then
Exit;
New(HName);
If GetHostName(HName^, SizeOf(Name)) = 0 Then
Begin
HEnt := GetHostByName(HName^);
For i := 0 To HEnt^.h_length - 1 Do
Result :=
Concat(Result,
IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
SetLength(Result, Length(Result) - 1);
End;
Dispose(HName);
WSACleanup;
End;
----- Original Message -----
From: Tito G. S. de Aguiar
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, November 30, 2005 7:57 PM
Subject: [delphi-br] Sockets - Pegar IP da máquina
Como faço para pegar o IP local da máquina usando componentes
TClientSocket ou TServerSocket? Existe algum método específico que
faça isso diretamente?
Uso Delphi 5, Windows 2000 e XP (estou testando em máquinas diferentes).
Grato.
--
Tito G. S. de Aguiar (tgsaguiar)
Desenvolvimento - PROCEMPA
[EMAIL PROTECTED]
[EMAIL PROTECTED] (grupos)
MSN: [EMAIL PROTECTED]
"Banda Larga não traz felicidade."
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[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]
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
