在F#Interactive

时间:2018-05-15 12:08:20

标签: .net wpf f# f#-interactive

我需要能够在F#interactive中创建一个新的AppDomain,以便托管多个WPF应用程序。在编译的F#应用程序中使用必要的功能时,我没有任何问题,但出于某种原因,使其在F#中工作是不可能的,这似乎是不可能的。

以下是最简单的案例: -

#r "PresentationCore.dll"
#r "PresentationFramework.dll"
#r "System.Xaml.dll"
#r "WindowsBase.dll"

open System    
open System.Threading
open System.Windows

type myClass() = 
    let domain = AppDomain.CreateDomain("another domain")

    //this function starts a WPF app
    let funct() =                
        let WPFStart() =
            let app = Application()
            let win = Window()            
            app.Run(win) |> ignore
        let thread = Thread WPFStart
        thread.IsBackground <- true
        thread.SetApartmentState ApartmentState.STA
        thread.Start()

    do CrossAppDomainDelegate(funct) |> domain.DoCallBack

myClass();;

我总是回到

的路上
System.Runtime.Serialization.SerializationException: Type is not resolved 
for member 'FSI_0002+-ctor@24,FSI-ASSEMBLY, Version=0.0.0.0, 
Culture=neutral, PublicKeyToken=null'.
at System.AppDomain.DoCallBack(CrossAppDomainDelegate callBackDelegate)
at FSI_0002.myClass..ctor()
at <StartupCode$FSI_0005>.$FSI_0005.main@()
Stopped due to error

我需要做些什么才能让它在F#interactive中发挥作用?

1 个答案:

答案 0 :(得分:2)

来自docs

的简介
  

F#Interactive尝试编译代码,如果成功,它会执行代码并打印它编译的类型和值的签名。

主要问题在于编译步骤

typeof<myClass>.Assembly.FullName

输出:

val it : string =
  "FSI-ASSEMBLY, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null"

为了编译代码, fsi 使用动态程序集来托管会话期间创建的所有类型。这里的关键元素是,如果没有对包含程序集的引用,其他域将无法解析这些类型。但是,从其他应用程序域中获取程序集证明是非平凡的。主要是因为我们正在处理动态装配。

let asm = typeof<myClass>.Assembly 
asm.IsDynamic // val it : bool = true

意思是,它只存在于 fsi 的默认appdomain的内存中。下面的两个查找抛出

  

System.NotSupportedException:动态程序集中不支持调用的成员。

asm.Location
asm.CodeBase

通常,您希望先保留到磁盘,参考remarks - 发送到远程应用程序域的限制

  

某些方案需要在远程应用程序域中创建和执行动态程序集。 Reflection emit不允许将动态程序集直接发送到远程应用程序域。解决方案是在当前应用程序域中发出动态程序集,将发出的动态程序集保存到磁盘,然后将动态程序集加载到远程应用程序域中。

成功将动态程序集强制转换为AssemblyBuilder会公开Save方法。不幸的是,这个工作流程也被封锁了。

open System.Reflection.Emit
let builder = asm :?> AssemblyBuilder

抛出

  

System.InvalidCastException:无法将类型为“System.Reflection.Emit.InternalAssemblyBuilder”的对象强制转换为“System.Reflection.Emit.AssemblyBuilder”

我们正在处理一种内部类型,显然我们并不想弄脏手。来自referencesource.microsoft.com

  

过去,当InternalAssemblyBuilder是AssemblyBuilder时,不受信任的用户可以将Assembly向下转换为AssemblyBuilder,并使用通过DefineDynamicAssembly创建AssemblyBuilder的可信代码的提升权限发出代码。今天,这已经不复存在了,因为通过AssemblyGetAssemblies()返回的程序集将是一个InternalAssemblyBuilder。

或者,您可以使用new AssemblyBuilder命名空间中的System.Reflection.Emit和其他帮助程序来反映动态程序集中的类型和reconstruct them,但这一切似乎都在单调乏味的一面

总而言之,就目前实施的方式而言,您将会试图将 fsi 生成的类型公开给其他域,从而游泳。