VB6 COM+ 调用 .Net COM DLL答案

【问题标题】：VB6 COM+ calling .Net COM DLLVB6 COM+ 调用 .Net COM DLL
【发布时间】：2018-09-13 08:26:14
【问题描述】：

VB6 20 岁生日快乐！ 是的，即使 13 年前支持用完，VB6 仍然存在。随意激怒我，但也请提供您对此问题的任何见解。

我在 Citrix 场上有一个 VB6 EXE。数据是通过 COM+ 从另一个托管 VB6 COM+ DLL 的服务器获取的。 COM+ 包被导出并安装在每台 Citrix 机器上。

EXE 和 COM+ DLL 都写入旧的记录器。我正在尝试摆脱旧的记录器以支持 Log4Net 版本。

我编写了一个 .NET COM DLL，其唯一目的是写入日志。

EXE 使用 .NET DLL 记录日志（只要我将 log.config 与 EXE 放在同一文件夹中），但 COM+ 组件没有。我尝试将 log.config 复制到各种文件夹中，希望这可能是问题所在。我还编写了另一个 EXE 来测试 .NET DLL，它可以工作。

只是为了好玩，我尝试在 COM+ DLL 上使用后期绑定，但这也无济于事。我在 Citrix 机器和 COM 服务器上注册了 .Net COM DLL。

我还尝试从 vb6 写入事件日志 - 均失败。

我确定我的 COM+ DLL 正在实施，因为没有将日志写入旧记录器。此外，当从我的本地计算机运行时，我会从我的 EXE 和 COM+ DLL 获取日志。

这里有一些代码...

这是我的 VB.NET COM 日志记录代码

Imports System.IO
Imports log4net

<Assembly: Config.XmlConfigurator(ConfigFile:="Log.config", Watch:=True)>

<ComClass(log.ClassId, log.InterfaceId, log.EventsId)>
Public Class log

    Public logger As log4net.ILog = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType)

#Region "COM GUIDs"
    Public Const ClassId As String = "6fae24c7-f86b-4fab-8b49-1d441de5bd18"
    Public Const InterfaceId As String = "223a30c4-ec1e-45a6-82d3-d23cd4c933f9"
    Public Const EventsId As String = "2087d93e-dd38-4cd1-b757-44dee322a8e3"
    Public Property TraceExtension As Object
#End Region

    Public Sub New()
        MyBase.New()

        WriteEvent("New Start")

        If Not log4net.LogManager.GetRepository().Configured Then
            Dim configFileDirectory = (New DirectoryInfo(TraceExtension.AssemblyDirectory)).Parent
            Dim configFile = New FileInfo(configFileDirectory.FullName + "\log.config")

            If configFile.Exists Then
                WriteEvent("New Config Exists")
                log4net.Config.XmlConfigurator.Configure(configFile)
            Else
                WriteEvent(String.Format("The configuration file {0} does not exist", configFile))
                Throw New FileLoadException(String.Format("The configuration file {0} does not exist", configFile))
            End If
        End If

        WriteEvent("New End")

    End Sub

    Private Sub WriteEvent(msg As String, Optional id As Integer = 11)
        Using eventLog As New EventLog("Application")
            eventLog.Source = "CSS"
            eventLog.WriteEntry(msg, EventLogEntryType.Error, id)
        End Using
    End Sub

    Public Sub Debug(msg As String)
        logger.Debug(msg)
    End Sub
    Public Sub Info(msg As String)
        logger.Info(msg)
    End Sub
    Public Sub Warn(msg As String)
        logger.Warn(msg)
    End Sub
    Public Sub Err(msg As String)
        logger.Error(msg)
    End Sub
    Public Sub Fatal(msg As String)
        logger.Fatal(msg)
    End Sub
End Class

这是从 EXE 和 COM+ DLL 调用的 VB6 代码。

Public Sub AppLog(ByVal LogType As Integer, ByVal Data As String)
10  On Error Resume Next
20  Dim klog As New KerryLog.Log
30  Data = "EXE > " + Data ' the COM+ DLL has a Prefix of COM instead of EXE

    Select Case LogType
            Case LogTypeNone: klog.Info Data
            Case LogTypeAppStart: klog.Info Data
            Case LogTypeAppEnd: klog.Info Data
            Case LogTypeInfo: klog.Info Data
            Case LogTypeVerbose: klog.Debug Data
            Case LogTypeWarning: klog.Warn Data
            Case LogTypeHandledException: klog.Err Data
            Case LogTypeUnhandledException: klog.Fatal Data
            Case LogTypeAutomated: klog.Info Data
            Case LogTypeUsage: klog.Debug Data
    End Select

40  Set klog = Nothing

这是我用来写入事件日志的方法 1：

App.StartLogging "", vbLogToNT
App.LogEvent "this is the error message", vbLogEventTypeError

这里是写入事件日志的方法 2

Private Declare Function ReportEvent _
    Lib "advapi32.dll" Alias "ReportEventA" ( _
    ByVal hEventLog As Long, _
    ByVal wType As Integer, _
    ByVal wCategory As Integer, _
    ByVal dwEventID As Long, _
    ByVal lpUserSid As Long, _
    ByVal wNumStrings As Integer, _
    ByVal dwDataSize As Long, _
    plpStrings As String, _
    lpRawData As Long) As Long

Private Declare Function RegisterEventSource _
    Lib "advapi32.dll" Alias "RegisterEventSourceA" ( _
    ByVal lpUNCServerName As String, _
    ByVal lpSourceName As String) As Long

Public Sub LogThis(nErrNo As Long, sLogMsg As String, EventType As LogEventTypeConstants)
    Dim hEvent As Log

    hEvent = RegisterEventSource("", "CSS")
    Call ReportEvent(hEvent, EventType, 0, nErrNo, 0, 1, Len(sLogMsg), sLogMsg, 0)
End Sub

事件日志是一个旁注——我正在尝试写入一些东西，以便我可以调试。我想我的下一步将是尝试写入文本文件。

也许这是一个权限问题？ Citrix 和 COM+ 服务器都是 Win Server 2008 R2 Standard SP1 / 64 bit

有什么想法吗？

【问题讨论】：

我不确定它是否会有所帮助，但是当 log4net 无法使用 COM+ 时，他们正在谈论某种存储库配置：stackoverflow.com/questions/1028375/…、weblogs.asp.net/george_v_reilly/…
我看不出它无法工作的任何原因，但很多事情都可能失败（安全性、位数、文件路径等）。很难说没有复制代码。要调试和测试，我建议您使用 OutputDebugString 或更好的 ETW。我编写了一个名为 TraceSpy 的工具，它允许跟踪 ETW（ETW 的好处是它们可以跨 Windows 工作站、Web 等工作）并且我还为 ETW 提供了 VBA 支持代码（在 vba 目录中）（VBA 是你知道ole的近亲'VB6）github.com/smourier/TraceSpy
COM+ 的托管进程是什么，二进制文件在哪里？也许这就是正在寻找配置文件的位置？

标签： .net vb.net vb6 com-interop com+

【解决方案1】：

COM+ 组件将在 C:\Windows\System32 中拥有当前工作文件夹，因此它很可能会因路径访问错误或 COM+ 中的文件写入错误而失败，直到您在配置中为 COM+ Logging 设置绝对路径。

我的方法是使用进程外 COM+ 服务器进行日志记录，并且我通过 ActiveX“中间件”代理访问它以独立于日志记录机制并且不绑定到现有的日志记录解决方案。对于进程外 COM+ 激活，我写了一个小模块直接调用 CoCreateInstance，导致与 New 类似的漂亮干净的 VB6 方法只使用进程内 COM+ 激活，没有办法选择进程外激活。

使用这种架构，寻找适当的日志记录机制和错误处理的所有职责都从目标 VB6 项目转移到 VB6 ActiveX，它使用与现有 COM+ 服务器的连接（进程外，记得吗？）或回退到默认值ActiveX 中的记录器实现，因此任何代码似乎都不会编写任何记录错误处理代码或编写除“New ILoggerFactory.CreateLogger”之外的其他内容。因为 ActiveX 组件本身实现了 COM+ 接口来支持日志记录。

在我的 COM+ 服务器（.NET 5 应用程序）启动并运行之前，我可以使用 NLog 格式获得额外的高级结构化日志记录，包括扩展（DB 等）。同样，您可以使用您自己的 log4net .NET 可执行文件和配置，将其用作您的 COM+ 日志记录接口的默认实现，因此您不需要向 COM+ 提供任何配置信息，只要它具有有限的权限即可系统，在最坏的情况下，您可以将默认记录器实现作为 EventLog 记录器嵌入到您的 ActiveX 库中，因此它永远不会因文件/访问异常而失败，从而使主要 COM+ 服务器记录器远离安全的可写位置

【讨论】：