ntToStr(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
Olá
Eu utilizava a propriedade ipaddress no evento de conexão. Assim pego o IP
de cada eqpto que se conecte ao server.
[]'s
Silvia
Em 01/12/05, Thiago Quinelato <[EMAIL PROTECTED]> escreveu:
>
> Olá.
> Tente assim:
>
> Function Tform1.GetIPAddress: String;
> Type
> Name = Array[0..100] Of Char
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))
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
4 matches
Mail list logo