[Статья] Узнать свой ip

[Andry lomakin]

Всем прив скринов делать не стал поскольку эт все легко
нам надо
tcpClient из вкладки internet
label 1 штука
нажимаем на label 2 раза и пишем

label1.caption:='Ìîé ip ' +tcpClient1.LocalHostAddr

Вот и все
а нажали на label и получили свой ip

[Unreality2020]

[Ссылки могут видеть только зарегистрированные пользователи. ]
Автор хелп

[TeedI]

Так будет менее геморойно

var i:string;
begin
     i:=IdHTTP1.Get('http://www.whatismyip.com/automation/n09230945.asp');
     Edit1.Text:=i;
end;

[VeTaL_UA]

Цитата: Сообщение от nakhodka961 ну ты и выложил конечно! не проще было зайти на сайт 2ip.ru и там посмотреть!?!

Ну тут как бы программная реализация, хотя переход по сайту нельзя назвать программной реализацией... Вот программная реализация с помощью 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 host<>nil then
      begin
      Result:=iNet_ntoa(PInAddr(p^.h_addr_list^)^);
      end;
    end;
  WSACleanup;
  end;
end;

P.S. TeedI написал что-то на делфи?

[Shook†]

Хорошо бы сделать, чтобы узнавал айпи, и при каждом перезагрузе компа старый удалял в текстовом документе, а новый вставлял, было бы хорошо.

[VeTaL_UA]

Цитата: Сообщение от Shook† Хорошо бы сделать, чтобы узнавал айпи, и при каждом перезагрузе компа старый удалял в текстовом документе, а новый вставлял, было бы хорошо.

Код дали, даже не один. Что тебе мешает вклинить его в автозагрузку?

[Shook†]

Цитата: Сообщение от VeTaL_UA Код дали, даже не один. Что тебе мешает вклинить его в автозагрузку?

Практически - ничего. Просто знаний нехватает

VeTaL_UA, как сделать, чтоб это действие
делал это прикаждом входе в комп?

Цитата: Сообщение от Shook† старый удалял в текстовом документе, а новый вставлял

[lcd1232]

Цитата: Сообщение от Shook† старый удалял в текстовом документе, а новый вставлял

Тут 2 способа.
1. В программе указываешь путь к файлу.
2. Используешь процедуру ReWrite или DeleteFile затем CreateFile.
В гугле примеры есть.

[VeTaL_UA]

Цитата: Сообщение от Shook† VeTaL_UA, как сделать, чтоб это действие делал это прикаждом входе в комп?

Не утруждайся.

[Logan22]

Прощу прощения за свои 5 копеек. Я не программист но...
не легче было бы просто кинуть на форму 3 компонента, это label, Timer и и компонент IdIPWatch1 с вкладки Indy Misk.
и на таймер тыкнуть 2 раза и прописать данный код.
label1.Caption:=IdIPWatch1.LocalIP;
и всё можно компилировать (F9).