Numero do IP a qual estou conectado na Internet
21/05/2003
0
Alguem poderia me informar se existe algum componente ou qual a maneira que eu posso no Delphi saber qual porta (IP) eu estou conectado na internet ?
Obrigado
Paulo
pel@hdp.com.br
Obrigado
Paulo
pel@hdp.com.br
Pafabruca
Curtir tópico
+ 0
Responder
Posts
21/05/2003
Carnette
Alguem poderia me informar se existe algum componente ou qual a maneira que eu posso no Delphi saber qual porta (IP) eu estou conectado na internet ?
Obrigado
Paulo
pel@hdp.com.br
Retorna o IP de sua máquina no momento em que você está conectado
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;
Responder
21/05/2003
Pafabruca
[quote:96027e2284=´pafabruca´]Alguem poderia me informar se existe algum componente ou qual a maneira que eu posso no Delphi saber qual porta (IP) eu estou conectado na internet ?
Obrigado
Paulo
pel@hdp.com.br
Retorna o IP de sua máquina no momento em que você está conectado
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;[/quote:96027e2284]
valeu a ajuda, mas o que eu preciso e o numero do ip da internet não o da maquina ou seja eu quero o numero 200.000.000.000 se alguem puder me ajudar eu agradeço.
Responder
Clique aqui para fazer login e interagir na Comunidade :)