将字符串传入/传出 Delphi COM 服务器

Question

我尝试了以下代码的几种变体，返回 HRESULT（这是更可取的 COM 标准）或返回 BSTR。我也尝试过其他数据类型。我通常会收到“缺少接口方法的实现”编译错误，但是当我使用 WideString 的返回类型时，result:=RetVal; 指令上有一个运行时 AccessViolationException。

我在客户端使用 C#：

var msg = delphi.GetMessage("My Message");

这里是 mi RIDL：

HRESULT _stdcall GetMessage([in] BSTR msg, [out, retval] BSTR* RetVal);

这是我的实现：

function TDelphiCom.GetMessage(msg:WideString; out RetVal:WideString):HRESULT;
var
  tempString: string;
begin
  tempString:=msg;
  RetVal:=WideString(tempString);
end;

将字符串传入/传出 Delphi COM 服务器的正确方法是什么？

Answer 1

您的 RIDL 声明是正确的。

您没有显示该方法的 C# 声明，因此我们无法查看您是否正确封送参数。

在 Delphi 方面，您的实现缺少 stdcall 调用约定（以匹配 RIDL 声明）以及异常处理，因此您可以在失败时返回正确的 HRESULT：

function TDelphiCom.GetMessage(msg: WideString; out RetVal: WideString): HRESULT; stdcall;
var
  tempString: string;
begin
  try
    tempString := string(msg);
    RetVal := WideString(tempString);
    Result := S_OK;
  except
    // do something...
    Result := DISP_E_EXCEPTION;
  end;
end;

不过，您确实应该改用safecall calling convention 并让它为您处理错误：

function TDelphiCom.GetMessage(msg: WideString): WideString; safecall;
var
  tempString: string;
begin
  tempString := string(msg);
  Result := WideString(tempString);
end;