Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Траблы с tTmer :)

Автор: lukash256 20.4.2008, 23:34

Нужно штоб в програмке под консоль использовался таймер. я пробовал 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

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

Код


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

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

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

Автор: THandle 21.4.2008, 11:21

Цитата(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.