get IP

[ghost@dm1n]

Всем, доброго времени суток! Ребят, подскажите пожалуйсто с чего начать. Я хочу написать программу, которая бы при её запуске проверяла внешний аддресс и отображала бы его на экране. Хотелось бы ваших советов по поводу на каком языке лучше писать и в каком направлении смотреть, как программа в общих чертах может узнать IP? большое спасибо за подсказки

[Serge_Bliznykov]

на форуме были примеры кода.
язык программирования практически любой.
а решение заключается в том, чтобы получить с интернета страничку с определённого адреса, распарсить её. выдать полученный текст в качестве внешнего IP.
профит.

[ghost@dm1n]

Спасибо! Не подкините ссылку на примеры кода?

[SenseSoftware]

я только что как раз это делал)
вот функцию такую придумал

function myinetip:string;
var
indy:tidhttp;
s:string;
begin
result:='';
indy:=tidhttp.create(nil);
indy.HandleRedirects:=true;
s:=indy.Get('http://checkip.dyndns.org/');
result:=copy(s,77,length(s)-92);
end;

вот так применять:

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=myinetip;
end;

и ещё надо в Uses добавить Idhttp;

[denisbrain]

Сообщение от ghost@dm1n

Спасибо! Не подкините ссылку на примеры кода?

http://netsoftware.ucoz.ru/news/skac.../2012-04-12-31

[Serge_Bliznykov]

зачем нам ссылки на чужое, если подобных тем полно на форуме.

например, навскидку:
Как определить внешний IP адрес

Есть ли другои способ получения внешнего IP

Как определить ip адрес компа и вывести его в Label