Возможно ли установить несколько экземпляров одного и того же приложения-приложения delphi?

Question

У меня есть приложение-приложение, встроенное в Delphi, которое отлично работает. Он делает именно то, что я хочу, чтобы он делал, и все счастливы. Все нормально, пока я не хочу запускать два (или более) экземпляра этой службы на одной машине. Поскольку имя службы жестко закодировано в программе (через свойство Name службы), я могу установить службу только один раз на любом компьютере. Если я попытаюсь изменить свойство Name во время выполнения, служба не отвечает, если для свойства Name не установлено то же самое, что было установлено во время разработки.

Я сделал обходной путь для этого, когда у меня есть весь код, который не взаимодействует напрямую с менеджером управления сервисом, инкапсулированным в отдельные единицы. Затем я пишу отдельный проект Delphi для каждого экземпляра, который я хочу от службы, которая имеет достаточно кода для запуска и начала запуска основного кода.

Этот метод, на мой взгляд, уродлив и, безусловно, неэффективен. Он работает нормально для двух экземпляров, но тогда нам нужен третий и четвертый и ...

Есть ли способ изменить мой код, чтобы у меня был только один проект Delphi, который может устанавливать и запускать себя как несколько экземпляры службы с некоторым простым входом во время выполнения (например, флаг командной строки)?

Или, возможно, более широкий вопрос: есть ли «правильный путь» для достижения цели?

Answer 1

Вы не дали понять, что вы пытались изменить в подклассе TService.

Вы добавили обработчик «BeforeInstall»?

Что-то вроде:

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; 

Если вы делаете это регулярно, подкласс TService делать Thie в конструкторе вместо этого.

Вы должны сделать то же самое в программе BeforeUninstall, чтобы указать оба события одним и тем же методом.

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

Answer 2

Вы можете создать свой сервис с несколькими потоками внутри, каждый из которых действует как собственная версия/копия услуги. Вы контролируете его с помощью API Service Controller, IIRC.

Answer 3

Ну да, возможно установить несколько экземпляров одной и той же службы, вам просто нужно динамически изменять имя во время установки (не время выполнения), однако это не делает его желательным. (есть пример кода кода в проекте кода http://www.codeproject.com/KB/dotnet/MultipleInstNetWinService.aspx)

Я бы, однако, склонялся к переосмыслению вашего подхода, сами процессы обслуживания действительно должны быть одноточечными, если вам нужны несколько экземпляров процесса, возможно, ваш сервис должен просто контролировать и управлять несколькими процессами, а не быть процессом.

Answer 4

Оберните весь свой код в класс, который наследуется от TThread.

При запуске службы он считывает номер из файла настроек или из реестра и создает это множество экземпляров вашего класса.

Каждый экземпляр запускается независимо.

Чтобы изменить количество запущенных экземпляров, вы можете отключить службу, отредактировать параметр (в файле или реестре) и перезапустить службу.

Answer 5

Принятый ответ был очень полезен.

Кода я использовал:

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 моя собственная процедура и FCommandLineOptions является объектом, который tokenises параметров командной строки.