VPF::Траблы с tTmer :) - Форум программистов

lukash256

Дата 20.4.2008, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

Репутация: нет
Всего: нет

Нужно штоб в програмке под консоль использовался таймер. я пробовал tTimer но не магу добраться до реализации его процедуры "timer" которую он выполняет через интервал.

Код


program Project1;

{$APPTYPE CONSOLE}

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

  type
tMyClass = class (ttimer)
procedure MyProcedure;
  end;

procedure tmyclass.MyProcedure;
begin
  showmessage('ok');
end;

var
  timer  :  tmyclass;
begin
  timer:=tmyclass.Create(nil);
 timer.Timer:=timer.MyProcedure; // От тут ERROR: "Left side cannot assigned to"

   readln;
   timer.Free;
end.

http://forum.vingrad.ru/forum/topic-190479.html
вот аналогичный вопрос (от меня к стати:=)) там все покатило, а тут......

lukash256

Дата 21.4.2008, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

Репутация: нет
Всего: нет

вот етот вариант уже компилится, однако процедура патомка всеравно не выполняется

Код


program Project1;

{$APPTYPE CONSOLE}

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

  type
tMyClass = class (ttimer)
procedure MyProcedure(Sender:TObject);
  end;

procedure tmyclass.MyProcedure(Sender:TObject);
begin
  writeln('fsdfsdf'); showmessage('asdas');
end;

var
  timer  :  tmyclass;
  d:Tobject;
begin
  timer:=tmyclass.Create(nil);
  timer.Interval:=1000;
 timer.onTimer:=timer.MyProcedure;
      timer.Enabled:=true;

     writeln(inttostr(timer.Interval));
     if timer.Enabled then writeln('Ok');

   readln;
   timer.Free;
end.

THandle

Дата 21.4.2008, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

lukash256, так ведь TTimer работает на сообщении WM_TIMER, соответственно его надо обрабатывать.

Например как-нибудь так:

Код


program Project1;

{$APPTYPE CONSOLE}

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls;

type
  tMyClass = class (ttimer)
    procedure MyProcedure(Sender:TObject);
  end;
procedure tmyclass.MyProcedure(Sender:TObject);
begin
  writeln('fsdfsdf');
  showmessage('asdas');
end;


procedure Proc;
var
  s : string;
  msg : TMsg;
begin
  while GetMessage(Msg, 0, 0, 0) do
    begin
      TRanslateMessage(Msg);
      DispatchMessage(Msg);
      readln(s);
      if s = 'exit' then
        break;
    end;
end;

var
  timer : tmyclass;
begin
  timer:=tmyclass.Create(nil);
  try
    timer.Interval:=1000;
    timer.onTimer:=timer.MyProcedure;
    timer.Enabled:=true;
    writeln(inttostr(timer.Interval));
    if timer.Enabled then
      writeln('Ok');
    Proc;
  finally
    timer.Free;
  end;
end.

lukash256

Дата 21.4.2008, 10:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 23.7.2007
Где: Гомель/Беларусь

Репутация: нет
Всего: нет

сенк за идею!
а можно загнать етот захват сообщений в отдельный поток? дабы код следующий за Proc выполнялся не "дожидаясь" выхода из цикла

THandle

Дата 21.4.2008, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Цитата(lukash256 @ 21.4.2008, 11:57

)

а можно загнать етот захват сообщений в отдельный поток? дабы код следующий за Proc выполнялся не "дожидаясь" выхода из цикла

Думаю что нельзя. А чем не устраивает выполнять в этом цикле все нужные действия?

Например ка-нибудь так:

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  ExtCtrls;

type
  tMyClass = class (ttimer)
    procedure MyProcedure(Sender:TObject);
    constructor Create(AOwner : TComponent); override;
  end;

constructor tMyClass.Create;
begin
  inherited;
    tag := 5;
end;

procedure tmyclass.MyProcedure(Sender:TObject);
begin
  writeln('fsdfsdf');
  tag := tag - 1;
  if tag = 0 then
    enabled := false;
end;


var
  timer : tmyclass;
  msg : TMsg;
begin
  timer:=tmyclass.Create(nil);
  try
    timer.Interval:=1000;
    timer.onTimer:=timer.MyProcedure;
    timer.Enabled:=true;
    writeln(inttostr(timer.Interval));
    if timer.Enabled then
      writeln('Ok');
    while GetMessage(Msg, 0, 0, 0) do
    begin
      TRanslateMessage(Msg);
      DispatchMessage(Msg);
      //действия
      if not Timer.Enabled then
        break;
    end;
  finally
    timer.Free;
  end;
end.

Это сообщение отредактировал(а) THandle - 21.4.2008, 11:21

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »