Interchanging data with zend (multidimensional arrays)

Question

I'm embeding PHP in my app (writen in Delphi 2010), using PHP4Delphi component to interface with php5ts.dll. I guess my program acts as extension for the PHP (sapi module?) as it registers some functions and constants which can be used in PHP scripts... anyway, works well when using simple data types, but when I try to use multidimensional array as return value I get error

Access violation at address 01CD3C35 in module 'php5ts.dll'. Read of address 0231E608.
Stack list
(000A2C35){php5ts.dll} [01CD3C35] destroy_op_array + $35
(004C4D61){myApp.exe } [008C5D61] php4delphi.TPHPEngine.ShutdownEngine (Line 1497, "php4delphi.pas" + 17) + $7

The line 1497 in php4delphi.pas is call to tsrm_shutdown();

To me it looks like garbage collector crashing at the end of the script, so I'm suspecting I do not send data correctly back to the engine... thus my question is how one is supposed to send multidimensional arrays back to PHP?
The pattern I'm using is

var subArray: pzval;   _array_init(return_value, nil, 0);   for x := 0 to Data.Count-1 do begin      subArray := MAKE_STD_ZVAL;      _array_init(subArray, nil, 0);      // populate subarray with data, including other subarrays    ...    // add subarray to the main array    add_index_zval(return_value, x, subArray); end; 

Do I have to somewhere "register" the subarrays I create? Do I have to increase or decrease refcount or set is_ref? IOW, how must the return_value and zvals of the subarrays to be set up?
I experimented with adding 1 to each array's refcount (althought MAKE_STD_ZVAL already initializes refcount to 1) and that cures the AV but then sometimes app just disappears when executing the script - I suspect it causes infinite recursion in engine's memeory manager, crashing the php DLL and taking the app with it... When seting refcount to 0 (zero; assuming that when return value is assigned in the PHP script it's refcount will be 1 and then when the PHP variable goes out of scope it will be destroyed) all seems to work (ie no crash, no AV) but the script wont generate any output, just empty html file...

I also send data as arrays into my function, then use zend_hash_find, zend_hash_get_current_data etc to read the data. Could this mess up the refcounts of the variables? Ie do I have to decrease refcout of the variable returned by zend_hash_find when I'm done with it?
And is it safe to reuse same variable when iterating over an array, ie

var Val: pppzval; new(Val); zend_hash_internal_pointer_reset(aZendArr^.value.ht); for x := 1 to zend_hash_num_elements(aZendArr^.value.ht) do begin    zend_hash_get_current_data(aZendArr^.value.ht, Val);    // read data from Val to local variable and do something with it    zend_hash_move_forward_ex(aZendArr^.value.ht, nil); end; Dispose(Val); 

or should each iteration of the loop create / free Val?

TIA
ain

Answer 1

here is my work arround:

function InitSubArray(TSRMLS_DC : pointer):pzval; begin   Result := MAKE_STD_ZVAL;   Result^.refcount:=2;   Result^._type:=IS_ARRAY;   InitPHPArray(Result,TSRMLS_DC); end; 

Set the refcount to 2 solve the problem for me, I don't know why, just tried many times, and found this.