TService debuggen

[Phoenix]

Es macht ggf. Sinn, die TService-Klasse etwas aufzubohren.
Ich arbeite schon länger mit Diensten, die sich nicht nur als Service, sondern zusätzlich auch als Kommandozeilen-Programm starten lassen. Damit lässt sich sowas einwandfrei aus der IDE heraus debuggen, ohne den Dienst zu installieren und als Dienst zu starten.

[ralfiii]

Zitat von Phoenix:

Es macht ggf. Sinn, die TService-Klasse etwas aufzubohren.
Ich arbeite schon länger mit Diensten, die sich nicht nur als Service, sondern zusätzlich auch als Kommandozeilen-Programm starten lassen. Damit lässt sich sowas einwandfrei aus der IDE heraus debuggen, ohne den Dienst zu installieren und als Dienst zu starten.

Klingt interessant.
Magst ein bisserl mehr darüber erzählen?

[Phoenix]

Ich befürchte, da das (leider) nicht auf meinem Mist gewachsen ist, dass ich da nicht viel drüber sagen darf.

[Bernhard Geyer]

ich würde es so machen:

Alle Programmlogik in eigene Klasse zusammenfassen und einmal in ein Service-Anwendung integrieren und einmal in eine normale Anwendung.

[ralfiii]

Zitat von Bernhard Geyer:

Alle Programmlogik in eigene Klasse zusammenfassen und einmal in ein Service-Anwendung integrieren und einmal in eine normale Anwendung.

So mach ich das auch gegenwärtig, aber wenn man TService aufbohren könnte (oder so) dass man noch leichter ein .Exe und/oder ein Service hat - das wär schon was.

[Bernhard Geyer]

Zitat von ralfiii:

Zitat von Bernhard Geyer:

Alle Programmlogik in eigene Klasse zusammenfassen und einmal in ein Service-Anwendung integrieren und einmal in eine normale Anwendung.

So mach ich das auch gegenwärtig, aber wenn man TService aufbohren könnte (oder so) dass man noch leichter ein .Exe und/oder ein Service hat - das wär schon was.

Haben sowas ähnliches, jedoch aufgrund der Nachteile (NT-Dienst und interaktion mit Desktop, Erhöhte Probleme mit Vista) werden wir das in der nächsten Version der Applikation wieder zurücknehmen und schön ein App als Dienst haben und eine App als GUI-Oberfläche die mit dem Dienst per TCP/Name Pipes oder was auch sonst kommuniziert.

[Codewalker]

Zitat von Phoenix:

Es macht ggf. Sinn, die TService-Klasse etwas aufzubohren.
Ich arbeite schon länger mit Diensten, die sich nicht nur als Service, sondern zusätzlich auch als Kommandozeilen-Programm starten lassen. Damit lässt sich sowas einwandfrei aus der IDE heraus debuggen, ohne den Dienst zu installieren und als Dienst zu starten.

Zitat von Phoenix:

Ich befürchte, da das (leider) nicht auf meinem Mist gewachsen ist, dass ich da nicht viel drüber sagen darf.

Eigentlich schade. Aber ich habe eine augenscheinlich funktionierende Variante per Zufall entdeckt. Dazu muss man nichtmal TService aufbohren, sondern einfach in die Projektdatei
  {$APPTYPE CONSOLE} hinzufügen. Schon bekommt man automatisch eine Konsole und damit einen Prozess geliefert. Man kann mit Writeln('TEXT'); sehr einfach Meldungen ausgeben und auch das Debuggen klappt super. Man muss nur das ganze wieder auskommentieren, wenn man den Service irgendwann als Dienst nutzen will ohne das ganze Debugging drum herum. Es wäre daher sehr hilfreich, die Debug-Ausgaben über eine Hilfsfunktion zu kapseln. Dabei kann man sich selber noch ein DEFINE bauen oder einfach auf einen Debugger prüfen:

Delphi-Quellcode:

procedure WriteConsole(Text: String);
begin
 If DebugHook <> 0
  then Writeln(Text);
end;

oder wenn man sich neben {$APPTYPE CONSOLE} noch ein eigenes DEFINE baut:

Delphi-Quellcode:

{...}
{$DEFINE DEBUGSERVICE}
{...}
procedure WriteConsole(Text: String);
begin
 {$IFDEF DEBUGSERVICE}
 Writeln(Text);
 {$ENDIF}
end;

Wichtig: Dieses Define gilt nur für diese Unit!

Klappt bisher sehr gut - Feedback erwünscht

[Dezipaitor]

Ganz einfach:
http://blog.delphi-jedi.net/2008/05/...s-an-easy-way/