--- Em delphi-br@yahoogrupos.com.br, Leslyn Fernandes <[EMAIL PROTECTED]>
escreveu
>
> Ola,
>
> Estou fazendo um sistema de leitura e parei num ponto
> em que preciso encontrar o IP da máquina local na rede
> via Delphi... como eu faço?
>
> att,
>
> LF
>
>
>
> _______________________________________________________
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
> o discador agora!
> http://br.acesso.yahoo.com
>
Esta Função irá resolver o seu problema....
function GetIP : string;
//--> Declare a Winsock na clausula uses da unit
var
WSAData: TWSAData;
HostEnt: PHostEnt;
Name:string;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
begin
Result := Format('%d.%d.%d.%d',
[Byte(h_addr^[0]),Byte(h_addr^[1]),
Byte(h_addr^[2]),Byte(h_addr^[3])]);
end;
WSACleanup;
end;
Giovanny Carvalho
