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

zusammenfalten · markieren

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:

markieren

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.

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

Nur projekt datei - wie am laufen bleiben ?

Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Re: Nur projekt datei - wie am laufen bleiben ?

Forumregeln

Rastaman Registriert seit: 6. Jan 2005 Ort: Lübbecke 575 Beiträge Turbo C++	#1 Nur projekt datei - wie am laufen bleiben ? 28. Mai 2005, 23:06 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. Chuck Norris has counted to infinity ... twice!
	Zitat

freak4fun Registriert seit: 22. Sep 2004 Ort: Hannover 1.807 Beiträge Delphi 10.2 Tokyo Starter	#2 Re: Nur projekt datei - wie am laufen bleiben ? 28. Mai 2005, 23:13 Hallo , Was macht denn dein Projekt? Wenn es eine Konsolenanwendung ist hilft vieleicht ein readln am Ende. MfG freak Christian IT: Schließen Sie bitte das Fenster. User: Die Tür auch? i++; // zaehler i um 1 erhoehen
	Zitat

Rastaman Registriert seit: 6. Jan 2005 Ort: Lübbecke 575 Beiträge Turbo C++	#3 Re: Nur projekt datei - wie am laufen bleiben ? 28. Mai 2005, 23:15 Nein. Es ist einfach etwas nicht visuelles das im Hintergrund laufen soll. Chuck Norris has counted to infinity ... twice!
	Zitat

Speedmaster Registriert seit: 4. Mär 2005 Ort: Karlsruhe 535 Beiträge Delphi 2005 Personal	#4 Re: Nur projekt datei - wie am laufen bleiben ? 28. Mai 2005, 23:15 Muss eine Schleife sein, den was sollte es sonst sein! Felix K. Zitat: Siehst du diesen Park da unten? Jeden Tag lernen sich leute kennen und verlassen einander, und du hast dein ganzes Leben Zeit darin zu gehen!
	Zitat

BenjaminH Registriert seit: 14. Okt 2004 Ort: Freiburg im Breisgau 713 Beiträge Turbo Delphi für Win32	#8 Re: Nur projekt datei - wie am laufen bleiben ? 29. Mai 2005, 11:30 Du musst dem Timer das Ereignis noch zuweisen: Timer.OnTImer:=TimerOnTimer; Benjamin
	Zitat

faux Registriert seit: 18. Apr 2004 Ort: Linz 2.044 Beiträge Turbo Delphi für Win32	#9 Re: Nur projekt datei - wie am laufen bleiben ? 29. Mai 2005, 11:39 Zitat von Gerrit89: Nein. Es ist einfach etwas nicht visuelles das im Hintergrund laufen soll. Dann mach doch ein Service draus... Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß. GoTrillian
	Zitat