Hi,

I' have implemented in Delphi part of the ZEND API for extensions based on
the
example in the document in http://www.zend.com/apidoc/p2.php.

My problem is that I'm not getting back my value (2) in my php script :

...
<?
$param = 2;
$return = first_module($param);
 print("We sent \"$param\" and got \"$return\"");
?>
...

this script prints in the browser :  We sent "2" and got "" , but the last
line (message box) of my
fisrt_module() procedure shows me that the returning value is OK.

WHAT'S WRONG ?

DELPHI SOURCE CODE FOR first_module()

procedure zend_if_first_module(ParamCount : integer; return_value : Pzval;
        this_ptr : Pzval; return_value_used : integer; executor_globals :
pointer);
var   parameter : PPzval ;
begin
  if (ParamCount <> 1) or (zend_get_parameters_ex(1, @parameter) <> SUCCESS)
then
  begin
    wrong_param_count;
  end;

  convert_to_long(parameter^);

  zval(return_value^).typeZ := IS_LONG;
  zval(return_value^).value.lval := (parameter^^).value.lval;

   // this last line gives me the good result : 2
  showmessage(inttostr((return_value^).value.lval));

//  return_value_used := 0;
end;



-- 
PHP General Mailing List (http://www.php.net/)
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
To contact the list administrators, e-mail: [EMAIL PROTECTED]

Reply via email to