[вопрос] Обновление Страницы По Заданным Параметрам.

[XProgrammer]

Всем доброго дня. У меня такой вопрос, как сделать что-бы по нажатию button1, программа открывала тот url который введён в Edit1 и происходило обновление страницы ровно столько раз какое число записано в Edit2?

Ах да чуть не забыл, и еще такой же пример только с timer1, допустим я ввожу в Edit3 число 5 и 5 минут программа обновлят страницу.

P.s. Желательно пример с компанентом WebBrowser1 на форме.

 

[sinkopa]

Всем доброго дня. У меня такой вопрос, как сделать что-бы по нажатию button1, программа открывала тот url который введён в Edit1

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;

и происходило обновление страницы ровно столько раз какое число записано в Edit2?

var
i,j: Integer;
//...
if not TryStrToInt(Edit2.Text,j) then
j := 0;

for i := 0 to j-1 do
begin
WebBrowser1.Refresh;
while WebBrowser1.Busy do
begin
Application.ProcessMessages;
Sleep(500);
end;
end;

Ах да чуть не забыл, и еще такой же пример только с timer1, допустим я ввожу в Edit3 число 5 и 5 минут программа обновлят страницу.

var
CountUpdate: Integer;
//...

procedure TForm1.Button2Click(Sender: TObject);
begin
if Timer1.Enabled then
Timer1.Enabled := False;
if not TryStrToInt(Edit3.Text,CountUpdate) then // Таймер будет запускаться CountUpdate раз. А вот 5 минут... уж сами выставляйте... 
Exit;									  // или через Timer1.Interval проставьте минуту задержки переж каждым запуском
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i,j: Integer;
begin
if CountUpdate < 1 then
begin
Timer1.Enabled := False;
Exit;
end;

if not TryStrToInt(Edit2.Text,j) then
j := -1;

for i := 0 to j do
begin
WebBrowser1.Refresh;
while WebBrowser1.Busy do
begin
Application.ProcessMessages;
Sleep(500);
end;
end;
Dec(CountUpdate);

end;

Больще ничего не забыли?

 

[XProgrammer]

Большое спасибо, выручил

 

[sinkopa]

Большое спасибо, выручил

Не за что...
Я забыл предупредить, что через пару минут "гиперактивности" вашей проги, сервер хостера, на который вы собираетесь посылать запросы, сочтет их (циклические запросы) хакерской атакой и заблокирует Ваш IP-шник...

 

[XProgrammer]

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

P.s. Я не DoS бота пишу