1

我正在尝试编写我的第一个类型提供程序，并且想知道是否有人可以指出我哪里出错了。

我已经使用了 freebase 示例来工作。我试图筛选必要的部分来获得一些非常基本的实例化，但显然错过了一些东西或者没有把它完全正确（可能与命名空间有关）。我只是想让这条线正常工作

type tp = MyFirstTypeProvider.DataProvider<username="username",password="password",product=prodId>

Intellisense 正在查看 DataProvider，但我有点曲折地说，可以找到对该类型的引用，但在程序集中找不到该类型。

namespace MyFirstProvider

type internal MyFirstRuntimeInfo(config: TypeProviderConfig) =
    let runtimeAssembly = Assembly.LoadFrom(config.RuntimeAssembly)

    member val DataContextType = runtimeAssembly.GetType("MyFirstProvider.Runtime.DataContext")
    member this.RuntimeAssembly = runtimeAssembly

// This type defines the type provider. When compiled to a DLL, it can be added
// as a reference to an F# command-line compilation, script, or project.
[<TypeProvider>]
type public Types(config: TypeProviderConfig) as this = 
    inherit TypeProviderForNamespaces()

    let bfRuntimeInfo = MyFirstRuntimeInfo(config)

    let rootNamespace = "MyFirstProvider"

    let defaultUsername = "xxxxxxxxxxx"
    let defaultPassword = "yyyyyyyyyy"
    let defaultProductId = -1    
    let defaultToken = "none"

    let createDataContext = bfRuntimeInfo.DataContextType.GetMethod("_Create")

    let createTypes(username, password, productId, rootTypeName) =                       let bf  = new MyFirstProvider.Requests.Queries(defaultToken)
    let schema = new MyFirstProvider.Schema.SchemaConnection(bf)
    let rootType = ProvidedTypeDefinition(bfRuntimeInfo.RuntimeAssembly,rootNamespace,rootTypeName,baseType=Some typeof<obj>, HideObjectMethods=true)
    let theServiceType = ProvidedTypeDefinition("Service",baseType=Some bfRuntimeInfo.DataContextType, HideObjectMethods=true)
    let theServiceTypesClass = ProvidedTypeDefinition("ServiceTypes",baseType=Some typeof<obj>,HideObjectMethods=true)   
    theServiceTypesClass.AddMembers [ theServiceType ]     
    rootType.AddMembers [ theServiceTypesClass  ]
    rootType.AddMembersDelayed (fun () -> 
        [ yield ProvidedMethod ("GetDataContext", [], theServiceType, IsStaticMethod=true,
                                InvokeCode = (fun _args -> Expr.Call(createDataContext, [  Expr.Value defaultUsername; Expr.Value defaultPassword; Expr.Value defaultProductId ])))
        ])        
    rootType

    let MyFirstType = createTypes(defaultUsername, defaultPassword, defaultProductId, "Data")
    let paramMyFirstType = ProvidedTypeDefinition(bfRuntimeInfo.RuntimeAssembly, rootNamespace, "DataProvider", Some(typeof<obj>), HideObjectMethods = true)
    let usernameParam = ProvidedStaticParameter("username", typeof<string>, defaultUsername)
    let passwordParam = ProvidedStaticParameter("password", typeof<string>, defaultPassword)
    let productIdParam = ProvidedStaticParameter("productId", typeof<int>, defaultProductId)

    do    paramMyFirstType.DefineStaticParameters([usernameParam;passwordParam;productIdParam], fun typeName providerArgs ->
        let username = (providerArgs.[0] :?> string)
        let password = (providerArgs.[1] :?> string)
        let productId = (providerArgs.[2] :?> int)
        createTypes(username, password, productId, typeName))

    do
        this.AddNamespace(rootNamespace, [MyFirstType ] )
        this.AddNamespace(rootNamespace, [paramMyFirstType ] )

[<assembly:TypeProviderAssembly>] 
do()

提前很多。

4

2 回答 2

3

当我尝试编译您的类型提供程序并在脚本文件中引用它时，该引用#r "provider.dll"带有红色波浪线下划线，上面写着：

类型提供程序“MyFirstProvider.Types”报告了一个错误：类型提供程序构造函数引发了异常：对象引用未设置为对象的实例。

您可以通过启动 Visual Studio 的第二个实例并将调试器附加到另一个实例（调试 -> 附加到进程）并在正在调试的实例中打开脚本文件来调试此类错误。

在您在此处发布的示例中，空引用异常发生在此行：

let createDataContext = bfRuntimeInfo.DataContextType.GetMethod("_Create")

这是试图访问不存在的方法。我认为 Freebase 示例是一个相对复杂的起点（这里，它使用一个对象来表示“数据上下文” - 您可能想要遵循该模式，但我认为从头开始构建它比调整现有的更容易代码）。我认为一个很好的起点可能是Hello World 类型提供程序，它要简单得多，只显示如何生成新的类型、属性和方法。

于 2013-03-23T18:46:00.110 回答
2

我建议，如果您正在寻找类型提供程序的简单示例，请查看文件系统类型提供程序。这是一个很好的起点，因为它没有状态和依赖管理需要处理。

至于为什么这个有一个找不到的dll，我认为这是因为必须从您的类型提供者的dll所在的位置看到这个dll。也就是说，例如，在同一目录中。（您可以尝试在构建过程中设置“复制本地”吗？）

于 2013-03-23T16:49:09.630 回答