Como pegar o IP de uma máquina.

Delphi

13/11/2003

Amigos estou precisando descobrir o IP e/ou o Nome de uma máquina.
Quando o programa é aberto Pega o IP da Máquina que o abriu e compara com uma lista de IPs cadastrados no Banco.
Agradeço se alguém puder ajudar.


Mkoch

Mkoch

Curtidas 0

Respostas

Luizfernando777

Luizfernando777

13/11/2003

function NumIP:string;
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;


GOSTEI 0
Sam

Sam

13/11/2003

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
Result:=Format(´¬d.¬d.¬d.¬d´,[Byte(h_addr^[0]),
Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);
WSACleanup;
end;


GOSTEI 0
Mkoch

Mkoch

13/11/2003

Muito obrigado, funcionou muito bem.
Se precisar de algo é só teclar.


GOSTEI 0
POSTAR