Olá.
Tente assim:
Function Tform1.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;
Essa função funciona comigo e foi encontrada em um e-mail antigo daqui do
grupo. Testa e diz o resultado.
Espero ter ajudado.
--
Thiago de Oliveira Quinelato.
Aluno do 4º Módulo do Curso Técnico de Informática Industrial - CTU/UFJF.
Aluno da 3ª série "A" do Ensino Médio - CTU/UFJF.
Programador de Pascal, Delphi, PHP, Java e MySQL, com conceitos da linguagem
C.
Em 30/11/05, Tito G. S. de Aguiar <[EMAIL PROTECTED]> escreveu:
>
> 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
> <http://br.rd.yahoo.com/SIG=12fvh46v3/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1133395089/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/>
> ------------------------------
> *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]<[EMAIL PROTECTED]>
>
> - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
--
Thiago de Oliveira Quinelato.
Aluno do 4º Módulo do Curso Técnico de Informática Industrial - CTU/UFJF.
Aluno da 3ª série "A" do Ensino Médio - CTU/UFJF.
Programador de Pascal, Delphi, PHP, Java e MySQL, com conceitos da linguagem
C.
[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
