[osminog]

Всем добрый день!
Есть код (приведенный ниже), требуется установить таймер, чтобы сообщения выводились ч/з 3 секунды!
... как реализовать, нет опыта работы с Timer
Кто знает, помогите, плиз!

Код:

procedure TForm1.Image3Click(Sender: TObject);
begin
  // проверка 1-й службы
  if ServiceGetStatus('','A1')=SERVICE_RUNNING then
  Label2.Caption:=(' запущена ')
  else Label6.Caption:=(' не запущена ');
  // проверка 2-й службы
  if ServiceGetStatus('','A2')=SERVICE_RUNNING then
  Label8.Caption:=(' запущена ')
  else Label10.Caption:=(' не запущена ');

[M.A.D.M.A.N.]

Точно так же как и кнопку, только в свойствах проставь интервал.

[osminog]

Сообщение от M.A.D.M.A.N.

Точно так же как и кнопку, только в свойствах проставь интервал.

наверное не правельно поставлен мною вопрос!
Требуется, чтобы м/у службами А1 и А2 прошло 3-5 секунд
(компилю в Delphi 2010)

[MiraLaklamon]

Сообщение от osminog

наверное не правельно поставлен мною вопрос!
Требуется, чтобы м/у службами А1 и А2 прошло 3-5 секунд
(компилю в Delphi 2010)

А что значит "чтобы м/у службами А1 и А2 прошло 3-5 секунд"

[osminog]

Сообщение от MiraLaklamon

А что значит "чтобы м/у службами А1 и А2 прошло 3-5 секунд"

получил ответ, что служба А1 запущена (или нет)
прошло 3-5 сек
получил ответ, что служба А2 запущена (или нет)

[M.A.D.M.A.N.]

Понял, тебе нужен отложенный вызов процедуры. Я бы сделал на потоке, внутрях которого Sleep(3000) и вызов твоего обработчика.

[MiraLaklamon]

Сообщение от osminog

получил ответ, что служба А1 запущена (или нет)
прошло 3-5 сек
получил ответ, что служба А2 запущена (или нет)

В таймере выставь у свойства "Interval" нужное значение в миллисекундах (3000 - значит 3 секунды). И примерно такой код в обработчике "OnTimer" у таймера.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Odd(Timer1.Tag) then
  begin
    // проверка 1-й службы
    if ServiceGetStatus('','A1')=SERVICE_RUNNING then
    Label2.Caption:=(' запущена ')
    else Label6.Caption:=(' не запущена ');
  end else
  begin
    // проверка 2-й службы
    if ServiceGetStatus('','A2')=SERVICE_RUNNING then
    Label8.Caption:=(' запущена ')
    else Label10.Caption:=(' не запущена ');
  end;
end;

Сообщение от M.A.D.M.A.N.

Понял, тебе нужен отложенный вызов процедуры. Я бы сделал на потоке, внутрях которого Sleep(3000) и вызов твоего обработчика.

Для этой задачи это помоему излишнее усложнение.

[M.A.D.M.A.N.]

Сообщение от MiraLaklamon

Для этой задачи это помоему излишнее усложнение.

Не люблю просто формочки и компонентики.

[osminog]

Сообщение от MiraLaklamon

В таймере выставь у свойства "Interval" нужное значение в миллисекундах (3000 - значит 3 секунды). И примерно такой код в обработчике "OnTimer" у таймера.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Odd(Timer1.Tag) then
  begin
    // проверка 1-й службы
    if ServiceGetStatus('','A1')=SERVICE_RUNNING then
    Label2.Caption:=(' запущена ')
    else Label6.Caption:=(' не запущена ');
  end else
  begin
    // проверка 2-й службы
    if ServiceGetStatus('','A2')=SERVICE_RUNNING then
    Label8.Caption:=(' запущена ')
    else Label10.Caption:=(' не запущена ');
  end;
end;

Для этой задачи это помоему излишнее усложнение.

странно, но ругается на эту строчку

Код:

procedure TForm1.Timer1Timer(Sender: TObject);

[MiraLaklamon]

Сообщение от osminog

странно, но ругается на эту строчку

Код:

procedure TForm1.Timer1Timer(Sender: TObject);

В этой строчке нет ошибки.
Надеюсь таймер на форму положил? И дважды по нему щёлкнул? И вставил в обработчик события код который я привела?

[osminog]

Сообщение от MiraLaklamon

В этой строчке нет ошибки.

пишет Errors:
'TForm1' does not contain a member named 'Timer1Timer' at line 153
(расшифровать бы )

2-а раза по таймеру не щелкал, объявил в вкладке events: OnTimer = Image3Click

[MiraLaklamon]

Сообщение от osminog

пишет Errors:
'TForm1' does not contain a member named 'Timer1Timer' at line 153
(расшифровать бы )

А таймер на форме лежит?

[osminog]

Сообщение от MiraLaklamon

А таймер на форме лежит?

лежит (((
нашел ошибку:
убрал в type строчку procedure Image3Click(Sender: TObject);
добавил туда procedure Timer1Timer(Sender: TObject);

а в свойство картинки в вкладке events OnClick=Timet1Timer

но реакция по времени нулевая, как-будто нет таймера (((

[MiraLaklamon]

Сообщение от osminog

лежит (((
нашел ошибку:
убрал в type строчку procedure Image3Click(Sender: TObject);
добавил туда procedure Timer1Timer(Sender: TObject);

а в свойство картинки в вкладке events OnClick=Timet1Timer

но реакция по времени нулевая, как-будто нет таймера (((

Ндя... А причём тут картинка Image3 и его событие OnClick ? Речь вроде идёт о таймере?
Ещё раз:
1) Нужно положить таймер на форму.
2) Изменить его свойство Interval на 3000 (т.е. 3 секунды)
3) Дважды щёлкнуть по таймеру - появится заготовка события - вот такая:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

4) Эту заготовку заменить на тот код который я привела.
5) Запустить программу на выполнение и наблюдать как всё нормально работает.

[osminog]

[quote=MiraLaklamon]Ндя... А причём тут картинка Image3 и его событие OnClick ? Речь вроде идёт о таймере?
огромное спасибо, так как Вы описали = работает!

тока есть момент, чтобы это стартовало по нажатию кнопки

... и если не трудно, расшифруйте код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Odd(Timer1.Tag) then
  begin
...
  end;