Question

PB调用接口DLL文件 程序直接退出

//Function ManRegister_Z(inparams:pchar; outmsg:pchar):integer;far;stdcall;
//
//参数说明:
// inparams: 所有的入参组合
// outmsg:提示信息
//返回值:整型
// >0为业务处理成功
// <=0为业务处理失败
//出入参组合的分隔符为|
//Inparams = 医院代码|病历号|医保号|科室代码|科室名称|医生代码|医生名称|病种代码|病种名称|病区代码|病区名称|病床代码|病床名称|医疗类别码|操作员号|操作员名|
Long ll_return
String inparams
String outmsg
inparams =space(1024) // 要求分配空间 1024
outmsg = space(1024)

inparams = asparams //后续组合
messagebox("测试提示","提示：" + inparams)
ll_return = ManRegister_Z(inparams,outmsg)
messagebox("测试提示", ll_return)

第一个提示能够出现，第二个没有出现，而是程序直接关闭退出

Answer 1

ll_return = ManRegister_Z(inparams,outmsg)
这句话没能执行通过，因为ManRegister_Z这个函数你没定义呀
你需要在pb外部函数引用，不然没法用

追问

以上是部分代码，ManRegister_Z函数在其他地方有定义的

追答

没看到你贴定义部分代码，不过没关系
你重新创建一个pb程序，里面就简单的写这句话，看返回值，参数随便写两句
ll_return = ManRegister_Z(inparams,outmsg)
观察是不是正常，排除其他因素
需要注意，那个dll文件应该在程序当前路径