nonvcl timer event (hilfe......)

[Beckman]

code funkt net. compiliert problemlos, event ontimer wird aber nie aufgerufen

Delphi-Quellcode:

program cmdblox; 
 
{$APPTYPE CONSOLE} 
 
uses 
  SysUtils, ExtCtrls; 
 
type 
  TDummy = class 
  public 
    procedure TimerTimer(Sender: TObject); 
  end; 
 
var 
  Dummy: TDummy; 
  Timer: TTimer; 
  Input: String; 
 
//OnTimer 
procedure Tdummy.TimerTimer(Sender: TObject); 
begin 
writeln('Timer Timer!!'); 
end; 
 
begin 
  { TODO -oUser -cConsole Main : Insert code here } 
 
//init 
Dummy := Tdummy.Create; 
 
//timer 
  Timer := TTimer.Create(nil); 
  timer.OnTimer := dummy.TimerTimer; 
  timer.Interval := 5000; 
 
writeln(timer.interval); 
writeln(timer.enabled); 
 
//catching commands 
while (lowercase(input) <> 'quit') do 
  begin 
  readln(input); 
  end; 
 
writeln('Terminating Application...'); 
 
//exit 
Timer.Free; 
dummy.Free; 
end.

weiss wer rat?

[lkz633]

Edit: Nie um 1 Uhr nachts posten

Gruss lkz633

[Beckman]

hmm.. hab grad luckies tutorial gefunden....

das mit dem: hTimer := SetTimer(hWnd, IDC_TIMER, {Intervall von 1sec ->} 1000, nil);


leichter gehts wohl offensichtlich nicht........




btw. wie macht man das in kylix?

weil das prog soll dann sobald die linux kiste fertig is, in kylix kompiliert werden...
und das is ja reine winapi......

wenn das nich geht, mach ich notloesung mit wine, aber pff


update: ich mach dafuer nen neuen thread auf, im kylix forum.

[Luckie]

Zitat von Beckman:

hm
weil das prog soll dann sobald die linux kiste fertig is, in kylix kompiliert werden...
und das is ja reine winapi......

Seit wann gibt es unter Linux die WinAPI? WnAPI steht für Windows Application Programming Interface.

[Beckman]

und das is ja reine winapi...

logischer weise, wenn so der satz scheisse aussagt, haettest dus ja versuchen koennen, anders zu verstehen.

ich hab naemlich gemeint, dass in deinem beispiel ja 'winapi' verwendet wird und wenn ich das dann in kylix zu kompilieren versuchen werde, das nich funken koennen wird, weil das ja winapi ist (also dein nonvcl-timer-beispiel)

deshalb wollt ich wissen, wie ich das noch unter nonvcl machen koennte...
bzw gleich in kylix, wenn geht.

[Luckie]

Das wird nicht gehen. Da Pascal keine Timer mitbringt, das ist vom Betriebssystem abhängig, wirst du unter Linux auf die dortigen Betreibssystem Funktionen zurückgreifen müssen. Sprich allgemeingültigen Code wirst du nicht schreiben können. Es sei denn du nimmst die CLX.

[Beckman]

ich studiere grad deine thread tuts...
mir gefaellt ganz gut die idee, dass ich ein extra thread aufmache und dann mit sleep() die vorgegebene zeit abwarte, dann eine funktion einfach aufrufe mit diesem....

[Luckie]

Threads sind auch betriebssystemspezifisch.