标题:VFP如何连接四川银海医保接口
只看楼主
dylms
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2014-2-17
得分:0 
回复 9楼 厨师王德榜
以上所有参数在注册表中都能查到,但仅有CREATEOBJECT("YinHai.DY.Actual.Interface.1.0") 可连接显示出当地的医保开始画面,其他如CreateObject("YINHAI.SCMYINTERFACE")和CreateObject("YINHAI.SCMYINTERFACE2")均不能成功连接?而YINHAI.SCMYINTERFACE和YINHAI.SCMYINTERFACE2均能在注册表中查到。不知为什么?是不是这个接口还需要软件公司授权才能连接?
2021-08-19 20:50
厨师王德榜
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:183
帖 子:942
专家分:4724
注 册:2013-2-16
得分:0 
没用过银海,无法发表评论,
不过我想,既然你手上有他们的VB代码示例,你不妨先在Visual Studio 环境中,用他的VB示例代码先连接一下,
如果可以成功,说明你担心的公司授权问题不存在.
如果也无法连接,那说明真有可能是公司授权问题.
2021-08-20 08:51
dylms
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2014-2-17
得分:0 
我需要得到一个确切的回答,我上面的VFP接口程序是否正确?有没有问题?
程序如下:
thisform.Edit1.Value =''
PUBLIC yinhaiobject as Object
ProgramID=ALLTRIM(thisform.text4.Value)
yinhaiobject= CREATEOBJECT("&ProgramID")   &&建立对象
&&yinhaiobject= CREATEOBJECT("YINHAI.SCMYINTERFACE")  &&建立对象
IF  TYPE('yinhaiobject')='O'  && C字符型 D日期型 O 对像 G 通用型 L 逻辑型 M 备注型 N 数值型。。
PUBLIC  BusinessID As String
PUBLIC  Ctrlxml As String
PUBLIC  Dataxml As String
PUBLIC  Pcbh As String
PUBLIC  Businesssequence As String
PUBLIC  Businessvalidate As String
PUBLIC  Outputxml As String
PUBLIC  Appcode as Long
PUBLIC  Appmsg As String

  BusinessID=""
  Ctrlxml=""
  Dataxml=""
  Pcbh=""
  Businesssequence=""
  Businessvalidate=""
  Outputxml=""
  Appcode=0
  Appmsg=""

BusinessID="01"
Ctrlxml ="" &&组织参数
Dataxml ="" &&组织参数
yinhaiobject.yh_interface_call(BusinessID,Ctrlxml,Dataxml,Pcbh,Businesssequence,Businessvalidate,Outputxml,Appcode,Appmsg)

thisform.Edit1.Value ='Program ID:'+ProgramID +' Business ID:'+BusinessID+' '+Pcbh+' '+Businesssequence+' '+Businessvalidate +' '+Outputxml+' '+Appmsg

yinhaiobject.DisconnectObject()
release  yinhaiobject
ELSE  
 Messagebox("接口连接失败!调用程序可能没有安装和注册。", 0, "系统提示")
ENDIF
2021-08-20 09:22
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
只能确切说:主要的一句没行通,其他就无法确切了。
2021-08-20 09:32
dylms
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2014-2-17
得分:0 
CREATEOBJECT("YINHAI.SCMYINTERFACE")关键是这句是不是VFP连接其他软件接口可行的方法,还有没有其他方法,或者是VFP现在根本就没有办法实现其他软件的这种接口连接。我用VFP通过服务器地址端口方法已经连接了药品电子监管码上传下载,但现在这种接口连接还是第一次做。不知是否可行?现在懂VFP的人少了,我还坚守VFP阵地,其他语言没有学习。
2021-08-20 10:56
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
回复 15楼 dylms
如果是VFP的命令或语句有问题,VFP会有异常提示。
如果是能运行,只是运行结果不对,就要具体分析。
可能的话,提供这个组件库的相关文件测试。
2021-08-20 11:13
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
得分:0 
你要先解决的是创建对象是否成功,而不是是否连接。
oYH=Createobject(""YINHAI.SCMYINTERFACE2")
?vartype('oYH')='O'

至于连接,根据你的文档,人家是要初始化的。创建对象后试试调用初始化程序,再call相关业务动作。
oYH.yh_interface_init()
oYH.yh_interface_call(blabla,...)
2021-10-13 01:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-506559-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.172072 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved