Здравствуйте, никак не могу решить вопрос:
По таймеру (таймер работает с определенным интервалом) выполняется GET запрос к сайту:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1 . Timer1Timer(Sender: TObject);
begin
try
http:=TIdHttp . Create( nil );
ip:=http . Get(URL);
http . Free;
except
on E: EIdSocketError do
begin
ip := 'Соединения нет!'
end ;
end ;
label1 . Caption := ip;
end ;
|
в данной процедуре определяется внешний IP адрес моего роутера, при обрыве связи IP меняется, как мне определить что IP изменился и к примеру поместить об этом информацию в Memo?