Страничка

[timyr1997]

Помогите пожалуйсто сделать программку которая будет обнавлять страницу в хх.00, 06, 10 , 12 , 16 , 20 , 26 , 30 , 36 , 40 , 46 , 50 , 56
хх.00
хх - часы
00 - минуты

Типа автоматического браузера =)) !!!

Заранее спасибо!!!

[DIgorevich]

Если программа будет использовать Webbrowser, то ставь таймер, который проверяет текущее время и если оно сходно с нужным обновляешь страничку (webbrowser1.Refresh)

[timyr1997]

DIgorevich, можешь с кодом помочь? Я новечек =)
webbrowser1.Refresh - это обнавление, а как с тайммером что делать???

[DIgorevich]

Если нужно обновлять страничку каждый час (или любой другой промежуток времени), то в свойствах Timer'a - Interval пишешь соответственное значение (1000 = 1 сек; 60000 = 1 минута; 3600000 = 1 час и т.д.)

[timyr1997]

DIgorevich, мне не надо каждые хх минут, мне надо по настоящему времени например 12.00 13.00 14.00 и так все 24 часа!!!

[DIgorevich]

Значит в таймере пишешь самый простой вариант:

    if time>=strtotime('9:00:00') then //если сейчас время больше либо равно указанного, то обновляемся
      webbrowser1.Refresh;

[timyr1997]

А вот например как сделать так чтобы в 13.00 обнавилось???

if time=strtotime('13:00:00') then
webbrowser1.Refresh;
или
if time==strtotime('13:00:00') then
webbrowser1.Refresh;

???

[DIgorevich]

if time>=strtotime('13:00:00') then //если сейчас время больше либо равно указанного, то обновляемся
      webbrowser1.Refresh;

надо обязательно ставить больше либо равно (>=), т.к. неизвестно сколько будет в момент получения времени секунд и минут

[timyr1997]

Блин я запутался =)

Можешь написать код к моему вопросику?

Заранее спасибо!!! Огромное =)

[W0LF]

procedure TForm1.Timer1Timer(Sender: TObject);

function GetMinutes: Integer;
var
  Buff: string;
begin
  Buff := TimeToStr(Time);
  Delete(Buff, 1, 3);
  Delete(Buff, 3, 3);
  Result := StrToInt(Buff);
end;

begin
  if   (GetMinutes = 00) or (GetMinutes = 06)
    or (GetMinutes = 10) or (GetMinutes = 12)
    or (GetMinutes = 16) or (GetMinutes = 20)
    or (GetMinutes = 26) or (GetMinutes = 30)
    or (GetMinutes = 36) or (GetMinutes = 40)
    or (GetMinutes = 46) or (GetMinutes = 50)
    or (GetMinutes = 56)
  then
    WebBrowser1.Refresh;
end;

Интервал таймера на минуту (60000) и будет вам счастье...