¿Es posible instalar varias instancias de la misma aplicación de servicio Delphi?

Question

Tengo una aplicación de servicio integrada en Delphi que funciona muy bien. Hace exactamente lo que yo quiero que haga y todo está feliz. Todo está bien hasta que quiera ejecutar dos (o más) instancias de ese servicio en una sola máquina. Como el nombre del servicio está codificado en el programa (a través de la propiedad Nombre del servicio), solo puedo instalar el servicio una vez en cualquier computadora. Si trato de modificar la propiedad Name en tiempo de ejecución, el servicio no responde a menos que la propiedad Name esté configurada para lo mismo que se configuró durante el tiempo de diseño.

He hecho una solución para esto donde tengo todo el código que no está interactuando directamente con el administrador de control de servicio encapsulado en unidades separadas. Luego escribo un proyecto Delphi por separado para cada instancia que quiero del servicio que tiene el código suficiente para iniciarse y comenzar a ejecutar el código principal.

Este método es, en mi opinión, feo y sin duda es ineficiente. Funciona bien para dos instancias, pero luego necesitamos un tercero y un cuarto y ...

¿Hay alguna manera de que pueda modificar mi código para que tenga solo un proyecto Delphi que pueda instalarse y ejecutarse como múltiple instancias de servicio con alguna entrada de tiempo de ejecución simple (por ejemplo, indicador de línea de comando)?

O tal vez una pregunta más amplia: ¿Hay una "manera correcta" de lograr el objetivo?

Answer 1

No ha aclarado lo que ha intentado cambiar en la subclase TService.

¿Ha agregado un controlador "BeforeInstall"?

Algo así como:

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; 

Si usted hace esto regularmente, subclase TService hacer Thie en el constructor en su lugar.

Debe hacer lo mismo en BeforeUninstall también - apunte ambos eventos con el mismo método.

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

Answer 2

Puede crear su servicio con múltiples subprocesos internos, cada uno actuando como su propia versión/copia del servicio. Usted lo controla con la API del controlador de servicios, IIRC.

Answer 3

Bueno, sí, es posible instalar varias instancias del mismo servicio, simplemente necesita modificar dinámicamente el nombre en el momento de la instalación (no en tiempo de ejecución), pero esto no lo hace deseable. (hay algún código de muestra en el proyecto de código http://www.codeproject.com/KB/dotnet/MultipleInstNetWinService.aspx)

Sin embargo, me inclinaría a replantear su enfoque, los procesos de servicio en sí mismos están destinados a ser únicos, si necesita varias instancias de un proceso en ejecución, tal vez su servicio debería simplemente controle y administre los múltiples procesos en lugar de ser el proceso.

Answer 4

Envuelva todo su código en una clase heredada de TThread.

Cuando se inicia su servicio, leerá un número de un archivo de configuración o del registro y creará muchas instancias de su clase.

Cada instancia se ejecuta de forma independiente.

Para cambiar el número de instancias en ejecución, puede cerrar el servicio, editar la configuración (en un archivo o registro) y reiniciar el servicio.

Answer 5

La respuesta aceptada anteriormente fue tremendamente útil.

Código que utiliza:

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 es mi propio procedimiento y FCommandLineOptions es un objeto que tokenises los parámetros de línea de comandos.