php - zend_parse_parameters を c++ からパスカルに変換するには?

Question

zend_parse_parameterslazarus/freepascal を使用して PHP 拡張パラメーターを解析する必要がありますが、lazarus でC 関数を次のように定義する方法がわかりません。

int zend_parse_parameters ( int num_args TSRMLS_DC, char* type_spec, ... )

誰でも私を助けることができますか？

Answer 1

here is my test code of lazarus under CENTOS6.3:

procedure encryptext (ht : integer; return_value : pzval; this_ptr : pzval;
   return_value_used : integer; TSRMLS_DC : pointer); cdecl;
var
  getmyparameters: function(argu_num:integer;
                   type_apec:pansichar;Args : Array of const):integer;cdecl;
  a:integer;
  rtnstr:string;
begin
  if (PHPLib < 1) then exit;
  getmyparameters := GetProcAddress(PHPLib, 'zend_parse_parameters');
  if (@getmyparameters = nil) then
  begin
    raise EPHP4DelphiException.Create('zend_parse_parameters');
    exit;
  end;

  if ht < 1 then
  begin
   zend_wrong_param_count(TSRMLS_DC);
   Exit;
  end;

  a := 1;
  if (getmyparameters(ht,pansichar('s'),[pansichar(rtnstr),@a]) <> SUCCESS ) then exit;

  ZVAL_STRING(return_value,pansichar(rtnstr),true);
end;

php code of /var/www/html/a.php:
<?php
  echo encryptext('hello');
?>

the error message is:
PHP Warning:  encryptext() expects exactly 0 parameters, 1 given in /var/www/html/a.php on line 2

Answer 2

おそらく次のようなもの

 uses ctypes;
 function zend_parse_parameters(num_args:cint;type_spec:pchar):cint;cdecl; varargs;

しかし、マクロをどうすればよいかわかりません (変数部分と num_args をリンクする単なるヘルパー マクロだと思います)。