Bağımsız EXE ve windows hizmeti arasında geçiş yapma

Question

Zamanlayıcıda günlükleri posta ile gönderen bir uygulama yazdım. Bu uygulama minimalist bir kullanıcı arayüzüne sahiptir ve bir kez bir config dosyası var kullanıcı ile bir etkileşim ihtiyacı olmadan başlayabilir.

Şu anda bir VCL Forms uygulamasıdır, ancak bazı durumlarda bir hizmetin olması iyi olacaktır (bu şekilde bir sunucuda çalışırken, yalnızca uygulamayı çalıştırmak için bir kullanıcı oturumu açmaya gerek yoktur).

Hem dünyalara sahip olmanız için ne önerirsiniz? Bazı basit senaryolarda (sadece 3 adet ve hiçbir BT yöneticisi olmayan küçük organizasyon) bir “hizmet dışı” iyidir çünkü daha kolay anlaşılır ve kullanılır, ancak daha büyük bir organizasyonda hizmet eksikliği bir sorundur.

Aynı anda servis ve servisi olmayan bir servis mümkün mü? Bunu nasıl başarabilirim? Ben dağıtım daha karmaşık yapmak istemiyorum, aklımda olan bazı komut satırı anahtarı: komut satırı paramenter ile çalıştırıldığında normal bir uygulama değilse, bir hizmet olabilir ... Bu nasıl yapılır?).

Answer 1

... Tamam iyi yolu 'hizmeti' ve aynı projede 'olmayan hizmet' uygulamasını geliştirmektir. Burada açıklandığı gibi: A standalone Delphi application that can also be installed as windows service. Bu nedenle, aynı uygulamayı servis olarak veya tek başına uygulama olarak kullanabilirsiniz. Aynı PC'de ikisine de sahip olmak istiyorsanız

, bu daha karmaşıktır: Eğer tek başına bir uygulama içinde, işlevleri eklemek zorunda: hizmetinin çalışır ve aktif

• doğrulanana eğer. hizmet koşu ve aktifse
• , sen yalnız süreci standı koşuyoruz yerine onunla iletişim var.

Answer 2

Ne yapmam geliştirme kullanımı içindir ayrı projesi var olduğunu. Sadece bir form yaratıyorum, o zaman bu hizmet yaratır ve çağrıları bekler.

unit fTestHarness; 

    interface 

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

    type 
    TfrmCentralTest = class(TForm) 
     Label1: TLabel; 
     Label2: TLabel; 
     procedure FormCreate(Sender: TObject); 
     procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    private 
     { Private declarations } 
    public 
     { Public declarations } 
    end; 

    var 
    frmTest: TfrmTest; 

    implementation 

    {$R *.dfm} 

    procedure TfrmCentralTest.FormCreate(Sender: TObject); 
    var 
    bStarted : boolean; 
    begin 
    bStarted := False; 
    MyService := TMyService.Create(self); 
    MyService.ServiceStart(nil, bStarted); 
    end; 

    procedure TfrmCentralTest.FormClose(Sender: TObject; var Action: TCloseAction); 
    var 
    bStopped : boolean; 
    begin 
    MyService.ServiceStop(nil, bStopped); 
    end; 

    end. 

Answer 3

Uygulamanız için gereken yapılandırmayı ayarlayan ve ardından uygulamanızı bir hizmete dönüştüren bir kontrol paneli uygulaması oluştururdum. Kontrol paneli uygulamanız aynı zamanda hizmeti başlatabilir, durdurabilir ve yeniden başlatabilir.

Artık iki dünyanın da en iyisine sahipsiniz.

John

farklı bir soruya benim cevap