Question

我可以在我的系统上访问名为sstchca.dll的DLL，该DLL提供访问Siebel Business Layer的功能。我能够在Excel中引用DLL并编写VBA程序来执行功能。以下是执行连接的示例VBA代码：

Private Function CreateConn(strConnect As String, strEnterprise As String, strPort As String, strPass As String) As Boolean
Dim errCode As Integer
Dim errText As String
Dim SiebelApp As SiebelDataControl    
Set SiebelApp = CreateObject("SiebelDataControl.SiebelDataControl.1")
CreateConn = True
SiebelApp.Login "host=""siebel://" & strConnect & ":" & strPort & "/" & strEnterprise & "/EAIObjMgr_enu""", _
                "sadmin", strPass

errCode = SiebelApp.GetLastErrCode()
If errCode <> 0 Then
    errText = SiebelApp.GetLastErrText
    CreateConn = False
    Exit Function

我们正在研究在PHP中访问相同COM接口的可行性，我不知道从哪里开始？

有人可以帮助我在PHP中建立COM连接的一些示例代码，保持上面的VBA代码为基础，或者为PHP COM的一些好例子指出正确的方向吗？

Answer 1

我试图将您的VBA代码翻译成PHP代码，结果如下：

<?php

function CreateConn($strConnect, $strEnterprise, $strPort, $strPass) {
    global $errText;

    $SiebelApplication = new COM('SiebelDataControl.SiebelDataControl.1') or die("Unable to instantiate SiebelDataControl");
    $ConnStr = "host=\"siebel://".$strConnect.":".$strPort."/".$strEnterprise."/EAIObjMgr_enu\"";
    $SiebelApplication->Login($ConnStr, "sadmin", $strPass);
    $errCode = $SiebelApplication->GetLastErrCode();
    if ($errCode != 0) { 
        $errText = $SiebelApplication->GetLastErrText();
        return false;
    } else {
        return true;
    }
}

?>

我的系统上没有安装Siebel软件，所以我不能说这段代码是否真的有效，但我希望它可以作为一个起点。

Siebel COM接口 - PHP

1 个答案: