PB代码转成DELPHI的,该如何解决
PB代码转成DELPHI的
一、本接口系统为seiproxy.dll、sei.dll类库。
二、接口环境
在运行结算系统的业务机上需要具备接口环境，具体操作如下：
1、 将【接口库】文件夹中所有的dll文件拷入 \winnt\system32下。
2、 注册 seiproxy.dll和sei.dll文件， seiproxy.dll和sei.dll为接口的类库文件,具体注册方法如下（其它dll无须注册）：
3、 seiproxy.dll注册方法：
点击 开始 －> 运行 －>输入 regsvr32 seiproxy.dll 回车
如果显示 “seiproxy.dll 中的DLLRegisterServer” 成功字样，说明注册成功。
sei.dll注册方法：
点击 开始 －> 运行 －>输入 regsvr32 sei.dll 回车
如果显示 “sei.dll 中的DLLRegisterServer” 成功字样，说明注册成功。
三、接口实例创建、接口登陆、接口示例回收
在登陆HIS系统时需要进行接口实例的创建，创建成功以后，才能正常调用接口服务。建议在HIS系统登陆的同时，调用接口登陆的服务，同时在退出HIS系统时，需要进行接口实例的回收，以免造成资源浪费。
（1）接口实例的创建（pb示例，各种开发工具方法不同）：
Oleobject seiproxy
seiproxy =create oleobject
vi= seiproxy.connecttonewobject(‘seiproxy’)
if vi<>0 then
messagebox(‘’,‘注册失败’)
return
end if
（2）接口登陆：
服务名称: initialize (pstr) returns long
服务作用：用于登陆结算系统数据库。
服务返回值：0代表成功，
-800 表示接口需要升级，请退出系统重新登录，重新登录之后会自动升级
其它为获取失败，
失败原因可以用get_errtext()获取。
传递参数：pstr string pstr是一个字符串，其规则如下：
Pstr=’参数1#参数值1|参数2#参数值2|参数3#参数值3|参数4#参数值4|‘
目前该字符串包含四个参数，分别为gzrybh,yybm,passwd,syzhlx;
初始化时gzrybh,yybm,passwd请传递’’,这些信息登录时由操作员填写。
syzhlx:0 不用卡；1 银行卡；2 IC卡；3 联机卡； syzhlx必须填写。
例如：pstr='gzrybh#|yybm#370101|passwd#|syzhlx#3|'
返回参数：
返回接口登陆界面，让操作员进行登陆。
备注：接口实例创建后，必须先调用一下该服务，用于登陆地纬医保结算系统数据库，如果登陆失败，所有业务均无法正常运行。
Pb示例：
vi=seiproxy. Initialize('gzrybh#|yybm#|passwd#|syzhlx#3|')
if vi<>0 then
messagebox(‘医保接口登陆失败’,vi)
return
end if
（3）接口实例的回收：（pb示例，各种开发工具方法不同）
seiproxy.DisconnectObject()
Destroy seiproxy
求转换成DELPHI的代码
------解决方案--------------------
OLE是Windows标准的，Delphi和PB在函数调用，尤其是在外部
Dll调用上是一致的，只是语言稍有差别
------解决方案--------------------
请转换成 VFP 的代码!!
------解决方案--------------------
His 是VFP 代码的
一、本接口系统为seiproxy.dll、sei.dll类库。
二、接口环境
在运行结算系统的业务机上需要具备接口环境，具体操作如下：
1、 将【接口库】文件夹中所有的dll文件拷入 \winnt\system32下。
2、 注册 seiproxy.dll和sei.dll文件， seiproxy.dll和sei.dll为接口的类库文件,具体注册方法如下（其它dll无须注册）：
3、 seiproxy.dll注册方法：
点击 开始 －> 运行 －>输入 regsvr32 seiproxy.dll 回车
如果显示 “seiproxy.dll 中的DLLRegisterServer” 成功字样，说明注册成功。
sei.dll注册方法：
点击 开始 －> 运行 －>输入 regsvr32 sei.dll 回车
如果显示 “sei.dll 中的DLLRegisterServer” 成功字样，说明注册成功。
三、接口实例创建、接口登陆、接口示例回收
在登陆HIS系统时需要进行接口实例的创建，创建成功以后，才能正常调用接口服务。建议在HIS系统登陆的同时，调用接口登陆的服务，同时在退出HIS系统时，需要进行接口实例的回收，以免造成资源浪费。
（1）接口实例的创建（pb示例，各种开发工具方法不同）：
Oleobject seiproxy
seiproxy =create oleobject
vi= seiproxy.connecttonewobject(‘seiproxy’)
if vi<>0 then
messagebox(‘’,‘注册失败’)
return
end if
（2）接口登陆：
服务名称: initialize (pstr) returns long
服务作用：用于登陆结算系统数据库。
服务返回值：0代表成功，
-800 表示接口需要升级，请退出系统重新登录，重新登录之后会自动升级
其它为获取失败，
失败原因可以用get_errtext()获取。
传递参数：pstr string pstr是一个字符串，其规则如下：
Pstr=’参数1#参数值1|参数2#参数值2|参数3#参数值3|参数4#参数值4|‘
目前该字符串包含四个参数，分别为gzrybh,yybm,passwd,syzhlx;
初始化时gzrybh,yybm,passwd请传递’’,这些信息登录时由操作员填写。
syzhlx:0 不用卡；1 银行卡；2 IC卡；3 联机卡； syzhlx必须填写。
例如：pstr='gzrybh#|yybm#370101|passwd#|syzhlx#3|'
返回参数：
返回接口登陆界面，让操作员进行登陆。
备注：接口实例创建后，必须先调用一下该服务，用于登陆地纬医保结算系统数据库，如果登陆失败，所有业务均无法正常运行。
Pb示例：
vi=seiproxy. Initialize('gzrybh#|yybm#|passwd#|syzhlx#3|')
if vi<>0 then
messagebox(‘医保接口登陆失败’,vi)
return
end if
（3）接口实例的回收：（pb示例，各种开发工具方法不同）
seiproxy.DisconnectObject()
Destroy seiproxy
求转换成DELPHI的代码
------解决方案--------------------
OLE是Windows标准的，Delphi和PB在函数调用，尤其是在外部
Dll调用上是一致的，只是语言稍有差别
------解决方案--------------------
请转换成 VFP 的代码!!
------解决方案--------------------
His 是VFP 代码的