9

我在 CodeProject 上找到了这篇文章：http: //www.codeproject.com/Articles/512956/NET-Shell-Extensions-Shell-Context-Menus

并认为尝试一下会很好，但在 F# 中。所以我想出了以下代码：

open System
open System.IO
open System.Text
open System.Runtime.InteropServices
open System.Windows.Forms
open SharpShell
open SharpShell.Attributes
open SharpShell.SharpContextMenu

[<ComVisible(true)>]
[<COMServerAssociation(AssociationType.ClassOfExtension, ".txt")>]
type CountLinesExtension() =
    inherit SharpContextMenu.SharpContextMenu()

    let countLines =
        let builder = new StringBuilder()
        do 
            base.SelectedItemPaths |> Seq.iter (fun x -> builder.AppendLine(sprintf "%s - %d Lines" (Path.GetFileName(x)) (File.ReadAllLines(x).Length)) |> ignore  )
            MessageBox.Show(builder.ToString()) |> ignore

    let createMenu =
        let menu = new ContextMenuStrip()
        let itemCountLines = new ToolStripMenuItem(Text = "Count Lines")
        do
            itemCountLines.Click.Add (fun _ -> countLines)
            menu.Items.Add(itemCountLines) |> ignore
        menu

    override this.CanShowMenu() = true
    override this.CreateMenu() = createMenu

但是，我注意到在 VS2012 中不支持对 F# 程序集进行签名（文章中的第 4 步）。我了解到，如果我想这样做，我需要手动创建一个密钥（在命令提示符中键入“sn -k keyName.snk”），然后在“项目属性 - > 构建 - > 其他标志”中添加一个标志（ --keyfile:keyName.snk)。

我仍然没有成功运行它。此外，使用作者的应用程序（在“调试 Shell 扩展”部分）我收到一个错误，即我的程序集不包含 COM 服务器。

我相信我在签署组件时做错了。你能帮我运行这个吗？

4

2 回答 2

15

对 F# 程序集进行签名的一种方法是通过AssemblyFileKeyAttribute属性。

创建一个新模块并在其中放入：

module AssemblyProperties

open System
open System.Reflection;
open System.Runtime.InteropServices;

[<assembly:AssemblyKeyFileAttribute("MyKey.snk")>]

do()

"MyKey.snk"相对于项目目录的密钥路径在哪里。

另一种方法，如Microsoft Connect上的此错误报告中所发现的，是添加--keyfile:MyKey.snk到选项卡中的Other Flags字段Properties --> Build。

使用任何一种方法；runningsn -v myfsharpassembly.dll将断言程序集在编译后有效。

于 2013-08-10T17:35:39.323 回答
0

也许问题是程序集不是“ComVisible”？

我在 F# 中使用这个库，如下所示：

[<assembly:ComVisible(true)>]
[<assembly:AssemblyKeyFile("Key.snk")>]
do
   ()

也就是说，我在顶级 do-block 中指定程序集级属性。

于 2013-10-03T18:46:23.343 回答