È possibile installare più istanze della stessa applicazione di servizio delphi?

Question

Ho un'applicazione di servizio costruita in Delphi che funziona benissimo. Fa esattamente quello che voglio che faccia e tutto è felice. Tutto va bene finché non voglio eseguire due (o più) istanze di quel servizio su una singola macchina. Poiché il nome del servizio è codificato nel programma (tramite la proprietà Name del servizio), posso installare il servizio una sola volta su un dato computer. Se provo a modificare la proprietà Name in fase di esecuzione, il servizio non risponde a meno che la proprietà Name non sia impostata sulla stessa cosa impostata durante la fase di progettazione.

Ho fatto una soluzione per questo in cui ho tutto il codice che non interagisce direttamente con il gestore controllo servizi incapsulato in unità separate (s). Poi scrivo un progetto Delphi separato per ogni istanza che voglio del servizio che ha il codice sufficiente per lanciarsi e iniziare a eseguire il codice principale.

Questo metodo è, a mio parere, brutto ed è certamente inefficiente. Funziona bene per due istanze, ma poi abbiamo bisogno di un terzo e un quarto e ...

C'è un modo per modificare il mio codice in modo da avere un solo progetto Delphi che può installare ed eseguire se stesso come più istanze di servizio con qualche semplice input di runtime (es. flag della riga di comando)?

O forse una domanda più ampia: esiste una "via giusta" per raggiungere l'obiettivo?

Answer 1

Non è stato chiarito cosa si è tentato di modificare nella sottoclasse TService.

Hai aggiunto un gestore "BeforeInstall"?

Qualcosa di simile:

procedure TServiceMain.ServiceLoadInfo(Sender : TObject);// new method, not an override 
begin 
    Name := ParamStr(2); 
    DisplayName := ParamStr(3); 
end; 

procedure TServiceMain.ServiceBeforeInstall(Sender: TService); 
begin 
    ServiceLoadInfo(Self); 
end; 
procedure TServiceMain.ServiceCreate(Sender: TObject); 
begin 
    ServiceLoadInfo(Self); 
end; 

Se si esegue questa operazione regolarmente, sottoclasse TService fare thie nel costruttore, invece.

Si dovrebbe fare lo stesso anche in BeforeUninstall - puntare entrambi gli eventi con lo stesso metodo.

C:\>servicename /install MyService "My Service Description" 

Answer 2

È possibile creare il proprio servizio con più thread internamente, ognuno dei quali si comporta come se fosse la propria versione/copia del servizio. Lo controlli con l'API di Service Controller, IIRC.

Answer 3

Ebbene sì, è possibile installare più istanze dello stesso servizio, è sufficiente modificare dinamicamente il nome al momento dell'installazione (non in fase di esecuzione), tuttavia ciò non lo rende desiderabile. (c'è qualche codice di esempio sul progetto Codice http://www.codeproject.com/KB/dotnet/MultipleInstNetWinService.aspx)

Sarei tuttavia incline a ripensare il tuo approccio, i processi di servizio stessi sono in realtà destinati a essere singleton, se hai bisogno di più istanze di un processo in esecuzione, forse il tuo servizio dovrebbe basta controllare e gestire i molteplici processi anziché essere il processo.

Answer 4

Avvolgere tutto il codice in una classe che eredita da TThread.

All'avvio del servizio leggerà un numero da un file di impostazioni o dal registro e creerà molte istanze della classe.

Ogni istanza viene eseguita in modo indipendente.

Per modificare il numero di istanze in esecuzione, è possibile arrestare il servizio, modificare l'impostazione (in un file o registro) e riavviare il servizio.

Answer 5

La risposta accettata sopra è stata terribilmente utile.

codice che ho usato:

procedure TService1.ServiceAfterInstall(Sender: TService); 
begin 
//http://stackoverflow.com/questions/612587/is-it-possible-to-install-multiple-instances-of-the-same-delphi-service-applicati 
//http://www.c-sharpcorner.com/UploadFile/timosten/DynamicServiceInCSharp11262005062503AM/DynamicServiceInCSharp.aspx?ArticleID=4d5020e4-7317-425c-ab29-5bf37a1db421 
//http://support.microsoft.com/kb/137890 
    SaveRegSetting('\SYSTEM\CurrentControlSet\Services\' + Name, 'ImagePath', ParamStr(0) + ' --name=' + Name, HKEY_LOCAL_MACHINE) 
end; 

procedure TService1.ServiceCreate(Sender: TObject); 
begin 
    Name := Trim(FCommandLineOptions.Values['name']); 
    DisplayName := Name; 
end; 

SaveRegSetting è la mia propria procedura e FCommandLineOptions è un oggetto che tokenises i parametri della riga di comando.