Nur projekt datei - wie am laufen bleiben ?

[Rastaman]

Hallo. Ich habe nur eine Projektdatei ohne units und es soll in diesem Prog auch keine Forms geben.
Allerdings beendet sich das Programm sofort nach dem Start. Muss man da eine Nachrichtenschleife oder so benutzen ?
Ich hab keine Ahnung. Need some help.

PS: Hoffe richtiges Forum.

[freak4fun]

Hallo ,

Was macht denn dein Projekt? Wenn es eine Konsolenanwendung ist hilft vieleicht ein readln am Ende.

MfG
freak

[Rastaman]

Nein. Es ist einfach etwas nicht visuelles das im Hintergrund laufen soll.

[Speedmaster]

Muss eine Schleife sein, den was sollte es sonst sein!

[Rastaman]

Eben das weiß ich ja nicht

Delphi-Quellcode:

program Project1;

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

{$R *.res}

begin


end.

das is alles

//Edit: Obwohl man Forms bei uses auch weg lassen könnte...

[marabu]

Hallo Gerrit,

das ist definitiv zu wenig, weil du ohne Form keine message pump hast. Probiere es mal so:

Delphi-Quellcode:

  Application.Initialize;
  Application.Run;
  repeat
    Application.HandleMessage;
  until Application.Terminated;

Der normale Weg - um Dinge im Hintergrund zu erledigen - ist ein Service. Aber vielleicht hast du ja einen guten Grund für deine Vorgehensweise. Du solltest deiner Anwendung aber noch ein TrayIcon spendieren, damit es einen ordentlichen Weg zum Beenden gibt.

Grüße vom marabu

[Rastaman]

Jo ok. Vielen Dank.
Allerdings funktionieren andere Sachen nicht.

Delphi-Quellcode:

program Project1;

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

var
  timer: TTimer;

{$R *.res}

procedure timerOnTimer(Sender: TObject);
begin

  ShowMessage('Hallo');

end;

begin

  Application.Initialize;
  Application.Run;

  timer := TTimer.Create(nil);
  timer.Interval := 1000;
  timer.Enabled := True;

  repeat
    Application.HandleMessage;
  until Application.Terminated;
end.

Das Programm bleibt an aber es kommt kein 'Hallo'
Das mit dem Timer ist jetz nur ein Test um zu gucken ob auch andere procedure später aufrufbar sind.
Klappt aber nicht

[BenjaminH]

Du musst dem Timer das Ereignis noch zuweisen:
Timer.OnTImer:=TimerOnTimer;

[faux]

Zitat von Gerrit89:

Nein. Es ist einfach etwas nicht visuelles das im Hintergrund laufen soll.

Dann mach doch ein Service draus...

[marabu]

Zitat von Gerrit89:

Jo ok. Vielen Dank. Allerdings funktionieren andere Sachen nicht. Das Programm bleibt an aber es kommt kein 'Hallo'. Das mit dem Timer ist jetz nur ein Test um zu gucken ob auch andere procedure später aufrufbar sind.
Klappt aber nicht

Komisch - bei mir geht das:

Delphi-Quellcode:

program NoForm;

uses
  Dialogs,
  ExtCtrls,
  Forms;

{$R *.res}

type
  TGerritTimer = class(TTimer)
  private
    procedure TimerOnTimer(Sender: TObject);
  public
    constructor Create;
  end;

const
  MaxEventCount = 5;
    
var
  Timer: TGerritTimer;
  EventCount: integer = 0;

constructor TGerritTimer.Create;
begin
  inherited Create(Application);
  OnTimer := TimerOnTimer;
end;

procedure TGerritTimer.TimerOnTimer(Sender: TObject);
begin
  with Sender as TTimer do
    Enabled := false;
  Inc(EventCount);
  if EventCount > MaxEventCount then
    Application.Terminate
  else begin
    ShowMessage('Hallo');
    with Sender as TTimer do
      Enabled := true;
  end;
end;

begin
  Application.Initialize;
  Application.Run;

  Timer := TGerritTimer.Create;
  Timer.Interval := 1000;
  Timer.Enabled := true;

  repeat
    Application.HandleMessage;
  until Application.Terminated;
end.

Ich denke du merkst jetzt, was du ändern musst.

Grüße vom marabu