vfp9.0调用delphi动态库,提示参数过多

请问一下大家，我在的时候，老是提示参数太多是什么原因啊？

vfp9.0调用代码如下：
DECLARE string yh_interface_call IN "YhGzHisInterface.dll",string astr_jybh,string astr_jysr_xml,string astr_jylsh,string @astr_jyyzm,string @astr_jysc_xml,long @aint_appcode,string @astr_appmsg

yh_interface_call(astr_jybh,astr_jysr_xml,astr_jylsh,@astr_jyyzm,@astr_jysc_xml,@aint_appcode,@astr_appmsg)

CLEAR dlls

delphi:yh_interface_call原型定义如下：
yh_interface_call(string astr_jybh,string astr_jysr_xml,string astr_jylsh,ref string astr_jyyzm,ref string astr_jysc_xml,ref long aint_appcode,ref string astr_appmsg)

麻烦高手帮帮忙看下。

---

lz怎么样了？

回复内容太短了！

---

谢谢先，测试下给分。

---

**接口初始化
DECLARE string yh_interface_init IN "YhGzHisInterface.dll" string astr_jysr_xml,long @aint_appcode,string @astr_appmsg
yh_interface_init(astr_jysr_xml,@aint_appcode,@astr_appmsg)
CLEAR DLLS

声明dll调用出现异常。

---

DeclareStringyh_interface_initIn"YhGzHisInterface.dll"Stringastr_jysr_xml,Long @aint_appcode,String @astr_appmsglc_astr_jysr_xml=""&&这个值不一定为空，根据你的函数定ln_aint_appcode=0&&这个值不一定为0，根据你的函数定lc_astr_appmsg=Space(255) &&或 255个char(0)yh_interface_init(lc_astr_jysr_xml,@ln_aint_appcode,@lc_astr_appmsg)
*成功后，你可以显示传出值：
?ln_aint_a