0

我们正在非常动态地生成大量文档。因此,我们连接源代码并在运行时构建一个 dll。这是从 Windows XP 开始运行的。现在我们正在测试 Windows 10,它无法编译这个 dll,并出现错误“BC31019: Unable to write to output file 'C:\Users[name]AppData\Local\Temp\xyz.dll': The specified image file did不包含资源部分”

出于测试目的,我们删除了所有生成的源代码,并将其替换为仅具有一个函数(使用指定文本抛出异常)且没有引用程序集的基本类。这也在除 Windows 10 之外的所有机器上运行。同样的错误。

有人能猜到为什么吗?

这是初级方法

Public Sub Compile()

   Dim lSourceCode = "Namespace DynamicOutput" & vbCrLf &
                              "   Public Class Template" & vbCrLf &
                              "      Sub New()" & vbCrLf &
                              "      End Sub" & vbCrLf &
                              "      Public Sub Generate(ByVal spoolJob As Object, ByVal print As Object)" & vbCrLf &
                              "         Throw New System.Exception(""Generate reached"")" & vbCrLf &
                              "      End Sub" & vbCrLf &
                              "" & vbCrLf &
                              "   End Class" & vbCrLf &
                              "End Namespace"

   Dim lParams As CodeDom.Compiler.CompilerParameters = New CodeDom.Compiler.CompilerParameters
   lParams.CompilerOptions = "/target:library /rootnamespace:CompanyName /d:TRACE=TRUE /optimize "
   lParams.IncludeDebugInformation = True
   lParams.GenerateExecutable = False
   lParams.TreatWarningsAsErrors = False
   lParams.GenerateInMemory = True

   Dim lProviderOptions As New Dictionary(Of String, String) From {{"CompilerVersion", "v4.0"}}

   Dim lResult As CodeDom.Compiler.CompilerResults = Nothing

   Using provider As New VBCodeProvider(lProviderOptions)
      lResult = provider.CompileAssemblyFromSource(lParams, lSourceCode)
   End Using

   ' ... check for errors

   Dim lInstance As Object = lResult.CompiledAssembly.CreateInstance("CompanyName.DynamicOutput.Template")
   lInstance.GetType.GetMethod("Generate").Invoke(lInstance, New Object() {Me.SpoolJob, Me.Print})

End Sub
4

0 回答 0