錯誤安裝一個Windows服務（在F＃）

Question

我的問題是： 當我嘗試安裝我的Windows服務我得到以下錯誤：

片段： ... No public installers with the RunInstallerAttribute.Yes attribute could be found in the <path to exe> assembly. ...

我遵循這個tutorial

我有一個包含一個Program.fs文件：

[<RunInstaller(true)>] 
type public FSharpServiceInstaller() = 
    inherit Installer() 
    do 
     < some logic, doesn't really matter > 

釷應該是足夠的，事實上，我甚至不認爲我需要將public關鍵字添加到類型定義中。與InstallUtil.exe安裝此可執行文件給了我同樣的錯誤使用下面的代碼安裝它：

[<EntryPoint>] 
let main args = 

    if Environment.UserInteractive then 
     let parameter = String.Concat(args); 
     match parameter with 
     | "-i" -> ManagedInstallerClass.InstallHelper [| Assembly.GetExecutingAssembly().Location |] 
     | "-u" -> ManagedInstallerClass.InstallHelper [| "/u"; Assembly.GetExecutingAssembly().Location |] 
     | _ -> printf "Not allowed!\n" 
    else 
     ServiceBase.Run [| new CreditToolsService() :> ServiceBase |]; 
    0 

我試圖運行在PowerShell中，CMD和Visual Studio CLI這個腳本管理員和我正常的帳戶，但我不斷收到同樣的錯誤。如果有人知道我在做什麼錯，我會非常感謝一些幫助。

Answer 1

OK，所以這裏去...

我看了由user1758475提供的代碼，只是隨機副本開始粘貼解決方案整合到一個應用程序。唐Symes的解決方案「剛剛工作」，我終於弄清楚爲什麼：我沒有（和他）有一個名稱空間聲明，在我的來源。似乎這是罪魁禍首！在我添加命名空間後，安裝程序像魅力一樣工作。

正如Curt Nichols指出的那樣，安裝程序不應該位於模塊中，因爲模塊會有效地隱藏調用代碼中的類型。

謝謝你幫忙解決這個問題。

對於那些誰希望看到一個工作示例：

namespace FileWatcher 
open System 
open System.Reflection 
open System.ComponentModel 
open System.Configuration.Install 
open System.ServiceProcess 
open System.IO 
open System.Configuration 

type FileWatcherService() = 
    inherit ServiceBase(ServiceName = "FileWatcher") 

    let createEvent = fun (args: FileSystemEventArgs) -> 
        printf "%s has been %s\n" args.FullPath (args.ChangeType.ToString().ToLower()) 
        |> ignore 

    override x.OnStart(args) = 
     let fsw = new FileSystemWatcher() 
     fsw.Path     <- "C:\TEMP" 
     fsw.NotifyFilter   <- NotifyFilters.LastAccess ||| NotifyFilters.LastWrite ||| NotifyFilters.FileName ||| NotifyFilters.DirectoryName ||| NotifyFilters.CreationTime 
     fsw.Filter     <- "*.txt" 
     fsw.EnableRaisingEvents  <- true 
     fsw.IncludeSubdirectories <- true 
     fsw.Created.Add(createEvent) 

    override x.OnStop() = 
     printf "Stopping the FileWatcher service" 

[<RunInstaller(true)>] 
type public FSharpServiceInstaller() = 
    inherit Installer() 
    do 

     // Specify properties of the hosting process 
     new ServiceProcessInstaller 
      (Account = ServiceAccount.LocalSystem) 
     |> base.Installers.Add |> ignore 

     // Specify properties of the service running inside the process 
     new ServiceInstaller 
      (DisplayName = "AAA FileWatcher Service", 
      ServiceName = "AAAFileWatcherService", 
      StartType = ServiceStartMode.Automatic) 
     |> base.Installers.Add |> ignore 


module Program = 
    [<EntryPoint>] 
    let main args = 

     printf "starting the application...\n" 


     if Environment.UserInteractive then 
      let parameter = String.Concat(args); 
      match parameter with 
      | "-i" -> ManagedInstallerClass.InstallHelper [| Assembly.GetExecutingAssembly().Location |] 
      | "-u" -> ManagedInstallerClass.InstallHelper [| "/u"; Assembly.GetExecutingAssembly().Location |] 
      | _ -> printf "Not allowed!\n" 
     else 
      ServiceBase.Run [| new FileWatcherService() :> ServiceBase |]; 
     0 

Answer 2

工作在https://github.com/zbilbo/TB4TG/blob/master/TourneyBot.Service/Installer.fs

現場製作例如認爲它需要與InstallUtil.exe雖然安裝。

可能不是編碼中最好的時刻，但是特定的服務代碼來自Don Syme或多或少：http://blogs.msdn.com/b/dsyme/archive/2011/05/31/a-simple-windows-service-template-for-f.aspx，所以它可能沒問題，但該庫上其餘的「周圍」代碼可能不是慣用的; - ）

Don Symes的博客也解釋了很多，所以它應該很容易地適應您的需求。網站還鏈接了一個雙贏服務模板上VS畫廊：http://blogs.msdn.com/b/mcsuksoldev/archive/2011/05/31/f-windows-application-template-for-windows-service.aspx