Question

我有一个用Delphi编写的DLL，我只知道他的签名如下：

function GeResultToStream(Param1: PChar; Param2: PChar; Param3:PChar; Param4: integer; out Param5: DWord; ParamStream: IStream; Error: PChar; ErrorSize: integer):BOOL;stdcall; external 'MYDLL.dll';

我在从C＃调用这个DLL方法时遇到了一些麻烦。如果一切正常，该方法还应该在ParamStream中传输一些数据并返回true。

我已经尝试了以下（以及DLL的方法参数中的其他各种更改）但不成功（每次我使用引用或输出参数调用此函数时我都会收到错误）：

public class TestDLL
    {
        internal class DLLInternal
        {
            const string _dllLocation = "MYDLL.dll";

           [DllImport(_dllLocation,
                        CallingConvention = CallingConvention.StdCall,
                        CharSet = CharSet.Ansi,
                        EntryPoint = "GeResultToStream")]
            public static extern bool GeResultToStream(string Param1, string Param2, string Param3, int Param4, char[] Param5, ref  Stream ParamStream, string Error, int ErrorSize);

        }

        public TestDLL()
        {

        }

        ~TestDLL()
        {

        }

        public Stream GetStream(string Param1, string Param2, string Param3, int Param4, char[] Param5, string Error, int ErrorSize)
        {
            try
            {
                Stream stream = new MemoryStream();              
                bool x = DLLInternal.GeResultToStream(Param1, Param2, Param3, Param4, Param5, ref stream, Error, ErrorSize);     
                //here i think i might need to use somehow the Marshal class
                return stream;
            }
            catch (Exception ex)
            {
                Console.WriteLine("Exception GetStream:" + ex.ToString());
                return null;
            }
        }
    }

我的猜测是我不明白如何以适当的方式翻译签名以在C＃中使用它。如果需要，我可以提供更多信息（比如我得到的错误，但主要是它们是腐败的记忆）。

Answer 1

你的翻译错了。我不确定您是如何将out类型的DWORD参数转换为char[]的。那应该是out uint。 Stream不应该是ref，而且还需要是IStream接口，而不是Stream类。

p / invoke应该是这样的：

[DllImport(_dllLocation, CallingConvention = CallingConvention.StdCall,
    CharSet = CharSet.Ansi, EntryPoint = "GeResultToStream")]
public static extern bool GeResultToStream(
    string Param1, 
    string Param2,
    string Param3, 
    int Param4, 
    out uint Param5, 
    ComTypes.IStream ParamStream, 
    string Error,
    int ErrorSize
);

请注意，这假定是2007版或更早版本的Delphi版本，其中PChar映射到PAnsiChar。如果Delphi版本晚于此版本且PChar为PWideChar，则使用CharSet.Unicode。

我还假设所有字符串参数都是用于将数据从调用者传递给被调用者。但是最终的字符串参数Error可能没有那些语义。这可能是为了传递错误文本。因此，应使用StringBuilder代替string实现。

当然，您需要从某处获得IStream的实现。例如：Creating IStream object in C#。我很难就此提出建议，因为您没有提供有关如何调用该功能的任何重要细节。而且你已经改变了所有参数的名称，这样我们就无法猜出语义。

随着调试的进行，我可以看到这个问题变成了火车残骸。我希望我被证明是错的。

调用Delphi DLL并将C＃Stream传递给它

1 个答案: