Numero do IP a qual estou conectado na Internet

21/05/2003

1

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


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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira