.net - VB6 COM+ 调用 .Net COM DLL

Question

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 上使用后期绑定(bind)，但这也无济于事。我在 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 位

有任何想法吗？

Answer 1

COM+ 组件会将其当前工作文件夹放在 C:\Windows\System32 中，因此它很可能会因 COM+ 中的路径访问错误或文件写入错误而失败，直到您在 COM+ 日志记录的配置中设置绝对路径。
我的方法是使用进程外 COM+ 服务器进行日志记录，我通过 ActiveX“中间件”代理访问它以独立于日志记录机制，并且不受现有日志记录解决方案的限制。对于进程外的COM+激活，我写了一个小模块，直接调用CoCreateInstance，导致nice和干净的VB6类似的方法，New只使用进程内的COM+激活，没有办法选择进程外激活。
使用这种架构，找到合适的日志记录机制和错误处理的所有职责都从目标 VB6 项目转移到 VB6 ActiveX，它使用到现有 COM+ 服务器的连接(进程外，还记得吗？)或回退到默认记录器实现ActiveX，因此任何代码似乎都不会编写任何日志错误处理代码，也不会编写除“New ILoggerFactory.CreateLogger”之外的其他内容。原因 ActiveX 组件本身具有用于日志记录支持的 COM+ 接口(interface)的实现。
在我的 COM+ 服务器(.NET 5 应用程序)启动并运行之前，我可以使用 NLog 格式获得额外的高级结构化日志记录，包括扩展(DB 等)。同样，您可以使用自己的带有配置的 log4net .NET 可执行文件将其用作 COM+ 日志记录接口(interface)的默认实现，因此您无需向 COM+ 提供任何配置信息，只要它对系统，在最坏的情况下，您可以将默认记录器实现作为 EventLog 记录器嵌入到您的 ActiveX 库中，因此它永远不会因文件/访问异常而失败，从而使主 COM+ 服务器记录器远离安全的可写位置