Variant Object Help

[mrhicksman]

Anyone have a good example of how to access a variant object generated from COM?

My stuff looks like:

VB
function Availability(
/ VT_PTR [26] [in][out] --> VT_VARIANT [12] / &$arrResponse,
/ VT_PTR [26] [in][out] --> VT_BSTR [8] / &$FailReason,
/ VT_BSTR [8] [in] / $CustId,
/ VT_I2 [2] [in] / $CourseID,
/ VT_DATE [7] [in] / $StartDate,
/ VT_DATE [7] [in] / $EndDate,
/ VT_I2 [2] [in] / $Players,
/ VT_BSTR [8] [in] / $PreferAMPM,
/ VT_PTR [26] [in][out] --> VT_BSTR [8] / &$strAvailList,
/ VT_BSTR [8] [in] / $strRateType,
/ VT_BSTR [8] [in] / $strCourseList
)
{

PHP

$golfobj = new COM("System");
$golfobj->SQLServerName = "XXX.XXX.XXX.XXX";
$golfobj->SQLDBName = "db";
$golfobj->SQLUserID = "id";
$golfobj->SQLPassword = "pass";
$response = new Variant;
$response = array();
$failure = "";
$customer_id = "";
$course_id = 1;
$start_date = '07-12-2009';
$end_date = '07-12-2009';
$num_players = 1;
$pref = "PM";
    if($golfobj->GolfProAvailability($response,$failure,$customer_id,$course_id,$start_date,$end_date,$num_players,$pref)) {
$avail[] = $response;

}

I know I am doing something wrong but not sure what. Hit me with your best shot.

Thanks

[Weedpacket]

$response = new Variant;
$response = array();

You store a Variant in $response, but then you throw the Variant away and put an array in there instead....?

Getting the "value" of a Variant should happen transparently, assuming that the contents of the Variant are of a type that maps to a native PHP type.

[mrhicksman]

Thank you for the response. The array was in there from a previous test, sorry for the confusion. $response is getting set to a variant Object but, I am unable to access the properties of that object.

print_r($response[1][1]) just throws and error. Any ideas?

[NogDog]

At least one of us is confused. If $response is an object, then you would reference a property as $reference->property_name, not via bracketed array indexes. If you want to see what properties are accessible:

print_r($reference);

[mrhicksman]

Unfortunately, variants only print_r out "Object Variant". Most of the documentation says that you can access the internal object by reference but it doesn't work either. I'm completely stumped.

[Weedpacket]

Hmm... this might not mean anything, but it might be crucial; the list of values returned by [man]variant_get_type[/man] does not include VT_PTR. Maybe that type just isn't supported (I guess it would be like trying to serialise a resource).

Does [man]com_print_typeinfo[/man] spit out anything?

[mrhicksman]

com_print_typeinfo returns

function Availability(
/ VT_PTR [26] [in][out] --> VT_VARIANT [12] / &$arrResponse,
/ VT_PTR [26] [in][out] --> VT_BSTR [8] / &$FailReason,
/ VT_BSTR [8] [in] / $CustId,
/ VT_I2 [2] [in] / $CourseID,
/ VT_DATE [7] [in] / $StartDate,
/ VT_DATE [7] [in] / $EndDate,
/ VT_I2 [2] [in] / $Players,
/ VT_BSTR [8] [in] / $PreferAMPM,
/ VT_PTR [26] [in][out] --> VT_BSTR [8] / &$strAvailList,
/ VT_BSTR [8] [in] / $strRateType,
/ VT_BSTR [8] PHP has encountered an Access Violation at 1B9AE91C[in] / $strCourseList
)
{

I'm thinking that using php for this project is going to be possible if the VT_PTR type is not accessible. Frustrating problem!

[Weedpacket]

Odd: so the only member in $response is a method called "Availability" which looks like it just does the same thing as "GolfProAvailability" did?

I mean with (not using your Golf object for obvious reasons):

$obj = new COM("Scripting.Dictionary");
com_print_typeinfo($obj);

$obj->Add('foo','bar');
echo "\nCount: ",$obj->Count,"\n";
echo "\n item foo = ",$obj->Item['foo'],"\n";

I get a whole slew of methods and properties printed out; followed by the results of using some of them. Note that the signature of the Add method is

        function Add(
                /* VT_PTR [26] [in] --> VT_VARIANT [12]  */ &$Key,
                /* VT_PTR [26] [in] --> VT_VARIANT [12]  */ &$Item
                )
        {
                /* Add a new key and item to the dictionary. */
        }

So that's not the problem.

[Weedpacket]

Odd: so the only member in $response is a method called "Availability" which looks like it just does the same thing as "GolfProAvailability" did?

I mean with (not using your Golf object for obvious reasons):

$obj = new COM("Scripting.Dictionary");
com_print_typeinfo($obj);

$obj->Add('foo','bar');
echo "\nCount: ",$obj->Count,"\n";
echo "\n item foo = ",$obj->Item['foo'],"\n";

I get a whole slew of methods and properties printed out; followed by the results of using some of them. Note that the signature of the Add method is

        function Add(
                /* VT_PTR [26] [in] --> VT_VARIANT [12]  */ &$Key,
                /* VT_PTR [26] [in] --> VT_VARIANT [12]  */ &$Item
                )
        {
                /* Add a new key and item to the dictionary. */
        }

So that's not the problem.