Узнаём свой ip

  • Автор темы >A1RN1kE<
  • Дата начала
  • Для просмотра чата и остального функционала вам нужно авторизоваться или пройти регистрацию!
A

>A1RN1kE<

Автор темы
Добрый день!
В данной теме я расскажу вам как узнать свой 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;
Для каких либо экспериментов вот программная реализация с помощью WinSock:
Код:
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''

Всем спасибо...
 

Gold_Lord

V.I.P пользователь
26 Янв 2012
127
31
689

Пользователи, просматривающие эту тему

Сейчас на форуме нет ни одного пользователя.