Error While Accessing VB COM from PHP.

[amey72]

Hi,

I am trying to connect to a COM component using PHP, but keep on recieving an "Unexpected error has occured" message.

The COM component code is

Option Explicit
 
Public Enum ApplicationErr
    Unexpected = Error.Unexpected
End Enum
 
Private Const m_csClassName As String = "XYZ.Application"
 
Public Sub Initialize(ByVal udl As String, ByVal log)
On Error GoTo ErrInitialize
    Dim enumErrorCode As xyzError
    enumErrorCode = Success
 
    Dim oObjectContext As ObjectContext
    Set oObjectContext = GetObjectContext()
 
    oObjectContext("Session")("ConString") = "FILE NAME=" & App.Path & "\" & udl
    oObjectContext("Session")("ErrLog") = App.Path & "\" & log
 
ExitInitialize:
    On Error Resume Next
    Set oObjectContext = Nothing
    If enumErrorCode <> Success Then
        On Error GoTo 0
        Call Err.Raise(enumErrorCode, m_csClassName, GetErrorDescription(enumErrorCode))
    End If
    Exit Sub
ErrInitialize:
    If Err.Source = m_csClassName Then
        enumErrorCode = Err.Number
    Else
        enumErrorCode = Unexpected
    End If
    If Not (Err.Source = "XYZ.Application" And Err.Number = XYZ.ApplicationErr.Unexpected) Then Call LogError(m_csClassName & ".Initialize")
    Resume ExitInitialize
End Sub
 

The PHP code used is :

<?php
 
try {
$udl = new VARIANT("XYZ.udl",VT_BSTR);
$errorlog = new VARIANT("ErrorLog.txt",VT_BSTR); 
 
$Q = new COM("XYZ.Application") or die("Cannot start XYZ");
$lUserId = $Q->Initialize($udl,$errorlog);
 
echo $lUserId;
} 
catch (com_exception $e) 
{
$lUserId = array('errorCode' => $e->getCode(),
'errorMessage' => $e->getMessage(),
'errorFile' => $e->getFile(),
'errorLine' => $e->getLine());
}
 
echo "<pre>";
print_r($lUserId);
echo "</pre>";
?>
 
 

It always generates an exception. Can someone please help me resolve this issue.

Also could it be a Type mismatch error?

thanks.

[Markus]

Does the error come as a PHP error or a VB error?

[amey72]

the error comes as a VB error.

[amey72]

Following is the exception generated :

Array
(
    [errorCode] => -2147352567
    [errorMessage] => Source: FQAI.Application
Description: Unexpected error has occured
    [errorFile] => D:\WWW\AIWM\website\aiwmtest\index1.php
    [errorLine] => 7
)
 

[Markus]

Then it would make more sense to ask the question in our VB.NET forum.