在F# Interactive中创建AppDomain托管WPF应用遇序列化异常求解决

你遇到的SerializationException本质是F# Interactive（FSI）动态生成的临时程序集里的闭包/嵌套类型无法在新创建的AppDomain中被解析。FSI的临时类型（比如你代码里的funct嵌套函数）是匿名闭包，序列化时无法被新AppDomain识别，而编译后的程序集是固定的，所以不会有这个问题。

下面是修复后的完整代码，核心思路是把跨域执行的WPF启动逻辑封装到可序列化的顶级类中，避免闭包序列化的问题：

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

open System
open System.Threading
open System.Windows

// 封装WPF启动逻辑的可序列化类
[<Serializable>]
type WpfStarter() =
    static member StartWpfApp() =
        // 必须在STA线程启动WPF
        let wpfEntry() =
            let app = Application()
            let win = Window(Title = "FSI Cross-AppDomain WPF")
            app.Run(win) |> ignore
        
        let thread = Thread wpfEntry
        thread.IsBackground <- true
        thread.SetApartmentState ApartmentState.STA
        thread.Start()

type MyAppDomainHost() =
    let domain = 
        // 可选：显式设置新AppDomain的基础目录，确保能找到FSI临时程序集
        let setup = AppDomainSetup(ApplicationBase = AppDomain.CurrentDomain.BaseDirectory)
        AppDomain.CreateDomain("WPFHostDomain", null, setup)
    
    do
        // 使用指向静态方法的委托，避免闭包序列化问题
        CrossAppDomainDelegate(WpfStarter.StartWpfApp) |> domain.DoCallBack

// 实例化宿主类，启动跨域WPF应用
MyAppDomainHost();;

关键修复点说明： #

• 用可序列化类封装逻辑：WpfStarter标记了[<Serializable>]，确保类型信息能被正确传递到新AppDomain，静态方法StartWpfApp作为委托目标，不需要序列化复杂的闭包环境。
• 显式设置AppDomain基础目录：虽然FSI默认会继承当前AppDomain的基础目录，但显式设置ApplicationBase可以避免极端情况下的程序集加载问题。
• 保持STA线程要求：WPF必须在STA线程中启动，这部分逻辑保留了你的原始实现，是必不可少的。

额外注意事项： #

• 如果需要多次创建AppDomain，记得用完后调用AppDomain.Unload(domain)释放资源。
• 如果你需要在WPF窗口中添加复杂逻辑，建议把相关代码也放到WpfStarter类或其他可序列化/可跨域访问的类型中，避免再次遇到序列化问题。

内容的提问来源于stack exchange，提问作者FunctionallyFirst