Добрый день!
В данной теме я расскажу вам как узнать свой ip не заходя в интернет...
И так нам понадобится:
1. tcpClient из вкладки internet
2. label 1 штука
Далее нажимаем на label 2 раза и пишем такой код:
Для каких либо экспериментов вот программная реализация с помощью WinSock:
Вот и всё...
Особая благодарность ''Andry lomakin'' & ''VeTaL_UA''
Всем спасибо...
В данной теме я расскажу вам как узнать свой ip не заходя в интернет...
И так нам понадобится:
1. tcpClient из вкладки internet
2. label 1 штука
Далее нажимаем на label 2 раза и пишем такой код:
Код:
var i:string;
begin
i:=IdHTTP1.Get('http://www.whatismyip.com/automation/n09230945.asp');
Edit1.Text:=i;
end;
Код:
uses WinSock;
...
function GetIP:string;
const
Ver=$101;
var
Data:TWSAData;
host:PHostEnt;
buf:array[0..127] of Char;
begin
Result:='';
if WSAStartup(Ver,Data)=0 then
begin
if GetHostName(@buf,128)=0 then
begin
host:=GetHostByName(@Buf);
if hostnil then
begin
Result:=iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
end;
WSACleanup;
end;
end;Особая благодарность ''Andry lomakin'' & ''VeTaL_UA''
Всем спасибо...
