ну ты и выложил конечно! не проще было зайти на сайт 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 написал что-то на делфи?
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Хорошо бы сделать, чтобы узнавал айпи, и при каждом перезагрузе компа старый удалял в текстовом документе, а новый вставлял, было бы хорошо.
Код дали, даже не один. Что тебе мешает вклинить его в автозагрузку?
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Прощу прощения за свои 5 копеек. Я не программист но...
не легче было бы просто кинуть на форму 3 компонента, это label, Timer и и компонент IdIPWatch1 с вкладки Indy Misk.
и на таймер тыкнуть 2 раза и прописать данный код. label1.Caption:=IdIPWatch1.LocalIP;
и всё можно компилировать (F9).
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]