ActiveX 和 MCVE 錯誤

Question

在我搜索返回 S_OK 而不是 S_FALSE 的錯誤時（請參閱我之前的消息），我制作了一個非常小的服務器，只有一個方法發送 S_FALSE（HResult 類型），不幸的是我在小客戶端程序中出錯：項目 TestTest.exe 已發送異常類 EOleSysError 並帶有消息“變量類型無效”（這是引發錯誤的指令Return:=coll.Method ）。 任何的想法？ .ridl 服務器代碼：

function TTest1.Method: HResult;
begin
  Result:=S_FALSE;
end;

和客戶端代碼：

procedure TForm1.Button1Click(Sender: TObject);
var
  coll:variant;
  Return:HResult;
begin
  coll:= CreateOLEObject('Project.Test1');
  Return:=coll.Method;
  if Return=S_FALSE then showmessage('OK') else showmessage('ERROR!!!!!!!!!!!!!!!!');
end;

對於完整的問題，我做了一個 MCVE：服務器：在此處輸入鏈接描述客戶端：在此處輸入鏈接描述

Answer 1

我認為您不需要HRESULT類型的參數“值”。 您可以刪除該參數：該方法將已經返回HRESULT 。 如果您想使用參數進行測試，請嘗試將 'value' 更改為BSTR [in] 並在那里傳遞任何字符串。 它應該工作。

Return:=coll.Method('place the parameter string here');

干杯

Answer 2

我不知道為什么你堅持使用HRESULT返回值，為什么你不創建帶有參數value, type : long , modifier : in HRESULT方法value, type : long , modifier : in然后返回你想要的任何東西。