Delphi的dll如何向C#传出string（1）

最新推荐文章于 2023-05-13 01:26:23 发布

火星牛

最新推荐文章于 2023-05-13 01:26:23 发布

阅读量2.4k

点赞数

分类专栏： c# delphi开发文章标签： delphi string dll c# object

本文链接：https://blog.csdn.net/acrodelphi/article/details/7283187

版权

delphi开发同时被 2 个专栏收录

73 篇文章

订阅专栏

24 篇文章

订阅专栏

本文介绍了一种使用Delphi DLL向C#应用返回字符串的方法。通过将字符串转换为字节数组并利用OLEVariant进行传递，简化了跨语言数据交换的过程。文章提供了具体的Delphi和C#代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如果从dll传出string，一般定义成PChar，由调用者分配好内存，并告诉大小，这样比较麻烦。

既然delphi的dll可以传回variant（实际是array），就把字串转成byte array直接传回吧，如：

Delphi XE代码：

function Call(AEndPointURL:PWideChar;AServiceName,AMethodName:PWideChar;
  const AParams:OLEVariant;out AResult:OLEVariant;out AErrorMsg:OLEVariant):HResult;
begin
  try
    ....
  except
    on E:Exception do
    begin
      Result:=1000;
      AErrorMsg:=WideBytesOf(E.Message);
    end;
  end;
end;

C#代码：

public static class inetdll
{
  [DllImport("tmtsSoapStub.dll", 
    EntryPoint = "Call", 
    CharSet = CharSet.Auto, 
    CallingConvention = CallingConvention.StdCall)]
  public static extern int Call(
    [MarshalAs(UnmanagedType.LPWStr)]string AEndPointURL,
    [MarshalAs(UnmanagedType.LPWStr)] string AServiceName, 
    [MarshalAs(UnmanagedType.LPWStr)] string AMethodName,
    ref object AParams, out object AResult, out object AErrorMsg);
}
private void button4_Click(object sender, EventArgs e)
{
  object vErrorMsg;
  object r;
  object vParams=null;
  int hResult = inetdll.Call(
    "http://127.0.0.1:8080/Broker.dll/soap/ISoapService",
    "Test", "Test", 
    ref vParams, out r, out vErrorMsg);
  if (hResult!=0)
    MessageBox.Show(ASCIIEncoding.Unicode.GetString((byte[])vErrorMsg));
}