从delphi程序调用时COM Callable Wrapper不工作

Question

我被要求为一个旧的 delphi 程序创建一个 .Net dll。我正在尝试使用 COM Callable Wrapper 来执行此操作，但是当它尝试加载 dll 时，我一直收到错误消息（很笼统，例如“我无法加载 dll”）。以下是技术文档的内容：

The DLL only needs to export one function under the name 'AUTHORIZE'.

function Authorize(InXml: PChar): PChar; stdcall;
(Delphi syntax. May be different in other languages.)

这是我的 CCW 代码：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;

namespace ComCallableWrapper
{
    [Guid("C3FD922A-FB44-47B1-9C0C-8F7FAF57098B")]
    [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
    public interface IAuthorizer
    {
        [DispId(1)]
        string Authorize(string lnpInXml);
    }

    [ProgId("ComCallableWrapper.Authorizer")]
    [ClassInterface(ClassInterfaceType.None)]
    public class Authorizer : IAuthorizer
    {
        public Authorizer()
        {
        }

        public string Authorize(string lnpInXml)
        {
            return "Approved!";
        }
    }
}

我还在运行 delphi 程序的计算机上运行此命令“regasm /tlb:ComCallableWrapper.tlb ComCallableWrapper.dll /codebase”。

我一直在google上做一些关于delphi如何调用dll上的函数的研究，我发现至少有两种方式：

function Authorize(lnpInXml: pchar): pchar; stdcall; external 'DLLName.dll';

和

oleObject := CreateOleObject('ComCallableWrapper.Authorizer');
ShowMessage(oleObject.Authorize('Approved?'));

看起来 COM 的工作方式有点不同。有没有办法让我的 CCW 像第一种方式一样工作？

问候。

Answer 1

您不需要 COM。并且确实使用 COM 是一个错误，因为 Delphi 程序不是在寻找 COM DLL。

您需要做的是从您的托管 C# DLL 中导出一个非托管函数。这有点棘手，实际上不受支持。这些是您最有吸引力的选择：

1. 使用 Robert Giesecke 的UnmanagedExports。
2. 编写一个使用 C# 代码的混合模式 C++/CLI DLL。混合模式 C++/CLI 能够使用__declspec(dllexport)、.def 文件等导出本机函数。

如果您选择使用 UnmanagedExports，该函数将如下所示：

[DllExport]
public static IntPtr Authorize(string InXml)
{
    // your code goes here, for now return the input value
    return Marshal.StringToHGlobalAnsi(InXml);
}

实现该函数有点棘手，因为您需要返回一个 Delphi PAnsiChar，即 C++ char*。您不能使用string 作为返回类型，而必须使用IntPtr。但是如何分配字符串，以便调用者使用它仍然有效。上面的代码泄漏了HGLOBAL 中的字符串。

我不能明确地建议您如何解决字符串的生命周期。您正在编码的界面根本没有设计好。只有对界面有更多了解的您才能解决该问题。