在 PHP 中通过引用传递给 COM 对象

Question

所以我希望有人可以提供帮助，我敢肯定这可能是我所缺少的一些简单的东西。我正在使用 PHP 访问第三方软件的 .net API。

基于 API 上的极简文档，我有一个工作的 vbsript 连接到对象，执行登录，然后执行查询，导致查询的输出被转储到消息框。

这是 vbscript 示例：

'Test device status
Set xxx = CreateObject("The.API.Object.Goes.Here")
'Login
Result = Xxx.LoginToHost("xxx.xxx.xxx.xxx","8989","Administrator","")
if (Result = true) then
  MsgBox("OK")
else
  MsgBox("Error - " & Xxx.LastError)
  WScript.Quit
end if
'Get Status
Result = Xxx.GetDeviceStatus("", out)
if (Result = true) then
  MsgBox(out)
else
  MsgBox("Error - " & Xxx.LastError)
end if
'Logout
Result = Xxx.Logout()
if (Result = true) then
  MsgBox("Logout OK")
else
  MsgBox("Error - " & Xxx.LastError)
end if

Xxx.GetDeviceStatus 有两个边界，第一个是设备目标，如果留空则返回所有设备，第二个是转储结果的字符串变量。

当脚本执行时，第二个消息框包含我所期望的所有设备的列表。

在 PHP 中我有：

$obj = new DOTNET("XxxScripting, Version=1.0.XXXX.XXXXXX, Culture=neutral, PublicKeyToken=XXXXXXXXXXXXXXXX","Here.Goes.The.Api");
$obj->LoginToHost('xxx.xxx.xxx.xxx','8989','Administrator','');
$result = $obj->GetDeviceStatus('','out');
echo $result."<br />";

回显结果为 1，因为 result 的值是布尔值并且 GetDeviceStatus 成功。我想不通的是如何得到'out'的值，这是实际的查询结果。

任何帮助将不胜感激。

Answer 1

根据 VBScript，GetDeviceStatus() 方法调用的第二个参数应该传递一个变量，该变量将填充输出。 然而，在 PHP 示例中，您只是传递了字符串 'out'，这并不等同于 VBScript 中正在执行的操作。

尝试将 PHP 变量传递给方法，然后将该变量回显到屏幕，如下所示；

$result = $obj->GetDeviceStatus('', $out);
if ($result)
  echo $out."<br />";

经过一番挖掘，根据PHP Reference 显示，您需要使用VARIANT 数据类型将By Reference 变量传递给COM。

_{引用ferozzahid [at] usa [dot] com on PHP - COM Functions}

“要通过引用 COM 函数传递参数，您需要将 VARIANT 传递给它。整数和字符串等常见数据类型不适用于它。”

考虑到这一点，也许这会起作用；

$out = new VARIANT;
$result = $obj->GetDeviceStatus('', $out);
if ($result)
  echo $out."<br />";