IP do computador
Oi!
Fiz um chat com o componente TMMNsg e ele precisa do IP do computador. Alguém sabe como conseguí-lo ?
:idea: Obrigado.
Fiz um chat com o componente TMMNsg e ele precisa do IP do computador. Alguém sabe como conseguí-lo ?
:idea: Obrigado.
(conta Desativada)
Curtidas 0
Respostas
Rahalpeterson
31/05/2003
Aqui vai.
Função extraída do site www.mundodelphi.com.br
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;
Função extraída do site www.mundodelphi.com.br
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;
GOSTEI 0
Ajmsistemas
31/05/2003
Mano.. tem como vc nos conceder os fontes para que eu possa estudar o mesmo.. ?
se não poder mandar as fontes... tem como ceder apostilas ou alguma coisa que posso me basear para estudar o mesmo ???
se tever como mande por e-mail.
desde já te agradeço.
:lol: :D
se não poder mandar as fontes... tem como ceder apostilas ou alguma coisa que posso me basear para estudar o mesmo ???
se tever como mande por e-mail.
desde já te agradeço.
:lol: :D
GOSTEI 0