Console oder Dienst

[franktron]

Wie kann ich unter D2010 das so hinkriegen das ich entweder eine Konsolen Programm oder eine Dienst Kompilieren kann (selber Code)

[Luckie]

Gar nicht. Und das wird auch mit anderen Compiler nicht funktionieren. Hast du dir mal den Aufbau eines Dienstes angeguckt und den Aufbau eine Konsolenprogrammes?

[franktron]

Natürlich ich meine ja auch mit Compilerdirektiven

[Luckie]

dann wirst du ganze Codeblöcke per Compilerschalter aus- bzw- einkommentieren müssen. Und ob dass dann übersichtlicher ist als zwei getrennte Anwendungen? Die Funktionalität kann man bzw. sollte man auch in eine extra Unit/Klasse auslagern, welche man dann von beiden Anwendungen aus einbinden kann. So muss nur ein Code gepflegt werden und nur jeweils die zugehörigen Anwendungen neu kompiliert werden.

[Dezipaitor]

Du kannst den Dienstcode in einer Konsole ausführen lassen. Dazu einfach direkt den Code im Hauptprogramm aufrufen. Du willst ja Compilerdirektiven verwenden, dann kannst du mit IFDEF usw das machen.
Zudem kannst du in Delphi 200x Kopien der Einstellungen im Projektmanager anfertigen und dort dann die Compilerdirektive verwenden.
Da gibt es z.B. Debug und Release und du könntest noch Debug Console und Release Console hinzufügen und dort die notwendige Compilerdirektive in den Einstellungen setzen.

Natürlich kannst du keine Dienstspezifischenaufrufe machen, z.b. den Servicemanager (Stop, Start, Pause, Parameter).

Delphi-Quellcode:

{$IFNDEF CMD}  
      SvcMgr.Application.Initialize;
      SvcMgr.Application.CreateForm(...);
      SvcMgr.Application.Run;      
  {$ELSE}
      SV := TServiceThread.Create;
      Sv.DoExecute(); //ruft intern Execute auf, da es nicht sichtbar ist
  {$ENDIF}