Events bei Konsole-application?

[Illuminator-23-5]

ich hab kurz versucht, bei einer Konsolenanwendung ein paar komponenten zu verwenden(TServer-und ClientSOcket). Dabei bin ich draufgekommen, dass keine zugewiesene Events ausgeführt werden.
Ich hab das ganze dann noch einmal mit einem Timer versucht, aber es klappt nicht.
Hier mal der Source:

Delphi-Quellcode:

program Main;

{$APPTYPE CONSOLE}

uses
  SysUtils, ExtCtrls;

var
  Timer1: TTimer;

procedure TimerEvent(Sender: TObject);
begin
  MessageBox(0, '', '', mb_Ok + mb_SystemModal);
  Timer1.Enabled := false;
end;

begin
  Timer1 := TTimer.Create(nil); //Hier weiß ich sonst nicht was nehmen - vielleicht is das das Problem
  Timer1.Interval := 1000;
  Timer1.OnTimer := TimerEvent;
  Timer1.Enabled := true;
  readln;
end.

logisch gesehen müsste nach 1 sec eine Nachricht erseinen, aber es kommt nix! Warum :?:

[Matze]

Delphi-Quellcode:

if Timer.Enabled then...

Ist aber keine gute Lösung. ;)

[Illuminator-23-5]

ich versteh nicht den zusammenhang zwischen deiner lösung und meinem Problem!?!
Das Problem ist, dass das Ereignis nicht ausgelöst wird!

[Niko]

Ich könnte mir denken, dass die VCL-Komponenten das Vorhandensein von Application voraussetzen, das es ja in einer Konsolenanwendung nicht gibt:

Zitat:

Zitat von Delphi-Hilfe

TApplication kapselt folgendes Verhalten:

Verarbeitung von Windows-Botschaften

Falls es nur um den Timer geht, würde ich die entsprechende API-Funktion benutzen.

[Illuminator-23-5]

es geht eben nur im beispiel um den Timer, sonst gehts um WinSockets

[Illuminator-23-5]

kann ich irgendwie das Appliction in die Konsole einfügen? (wenn ich die Unit 'Forms' einbinde, Stimmt der Pfad, wenn ich Application.Exename nimm!

[APP]

Hallo Illuminator-23-5,

Dein anfangs geposteter Code compiliert bei meinem D5 pro zu Hause gar
nicht, mich hat Dein Problem aber interessiert, ich habe folgendes in
einer NG gefunden:

Delphi-Quellcode:

(*$apptype console*)
Program timer;
Uses sysUtils, forms, windows, extCtrls;

(*Demos console app using timer.*)

Var
    qDone: boolean = false;

Type
    ToTimerHandler = class(Tobject)
        constructor create (nMs: integer);
        private
        FoT: Ttimer;
        procedure timerCall(o: Tobject);
        end;

Constructor ToTimerHandler.create(nMs: integer);
Begin
    inherited create;
    Fot := Ttimer.create(application);
    Fot.interval := nMs;
    Fot.onTimer := timerCall;
    Fot.enabled := true;
End;


Procedure ToTimerHandler.timerCall(o: Tobject);
Begin
    FoT.enabled := false;
    writeln;
    writeln;
    write ('Hi there! ...Tell me something ...');
    readln;
    writeln;
    writeln ('Oh my God! You hit Enter? We''re done for!');
    sleep(1000);
    qDone := true;
End;

Var
    oT: ToTimerHandler;
Begin
    oT := ToTimerHandler.create(5000);
    while not qDone do application.processMessages;
    oT.free;
    application.terminate;
End.

Autor: [e-mail]

Ich hoffe es hilft Dir weiter...

[Illuminator-23-5]

ja, thx! ich werds nochmal so versuchen, wenn nicht, frag ich