TServiceの子孫を作成し、自分のプロパティを公開することは可能ですか？

Question

Delphiでいくつかのさまざまなサービスを作成した後、TServiceには、ロギング、例外処理、レジストリの 'Description'プロパティなどのサービスアプリケーションに必要なものが欠けていることがわかりました。

私はTServiceから継承されたTJDServiceのような私自身のサービスシェルを作ることが可能かどうか疑問に思っていましたが、オブジェクトインスペクタに 'Description'プロパティが表示されます。このように私自身のサービスシェルを作ることはできますか？私はTServiceから継承している自分自身の "デフォルトプロジェクト"を作ることができると知っていますが、それは新しいプロジェクトのすべての私のコードを含んでいます。新しいサービスを作成すると

、それは次のようになります。ただTServiceするのではなく、私のTJDServiceを使用して、一般的なサービスと同じ

unit Unit1; 

interface 

uses 
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.SvcMgr, 
    JDServices; 

type 
    TJDService1 = class(TJDService) 
    private 

    public 
    function GetServiceController: TServiceController; override; 
    end; 

var 
    JDService1: TJDService1; 

implementation 

{$R *.DFM} 

procedure ServiceController(CtrlCode: DWord); stdcall; 
begin 
    JDService1.Controller(CtrlCode); 
end; 

function TJDService1.GetServiceController: TServiceController; 
begin 
    Result := ServiceController; 
end; 

end. 

、しかし。

Answer 1

簡単な質問で簡単な答えです。はい、これを行うことができます。私は私の会社のコードベースで実装されているさまざまなサービス間でコードを共有するために、これを自分自身で実行します。

RegisterCustomModuleは、オブジェクトインスペクタにDescriptionプロパティを表示させる方法です。だが、私はObject Inspectorのこれらのサービスプロパティをすべて価値あるものにすることはできません。コードで実行時にそれらを設定することは完全に容認できると私は思っていますが、その決定は個人的な好みにまで下がります。

RegisterCustomModuleを使用してサービスクラスをIDEに知らせても、デフォルトの新しいサービスアプリケーションはサービスクラスを使用しません。デフォルトのサービスアプリケーションを必要に応じてカスタマイズし、Object Repositoryに保存することができます。

私の回答hereは、デバッグの目的でサービスとして、または標準のデスクトッププロセスとして実行できるアプリを実装する方法を示しています。

Answer 2

はい、できますし、実行する方法上のリンクの下には

http://www.marcocantu.com/ddh/ddh15/ddh15e.htm

Answer 3

あなた自身SvComは、Delphiでサービスを作成するためのツールの素敵なセットを提供しています仕事をしなければならないしたくない場合は、その利用可能なものよりはるかに多くを提供します。

Answer 4

私はここで反抗するつもりですが、これを行う最も簡単な方法はSvcMgrのコピーを作成してそこに変更を加えることです。実行時にアクセスされる変更のみを行う場合は、SvcMgrのローカルコピーを使用してビルドして実行してください。私は、サービスに付属する基本的な例外処理とアプリケーションログを変更するためにこれを行い、私のWebサイトからSvcMgr.pasのコピーをダウンロードすることができます。

これは設計時の変更が必要な場合は機能しませんが、設計時に実行時に実行するほとんどすべてを実行時に実行できます。より良い解決策がありますが、より速く簡単な解決策はありません。