VC++60调用银海软件医保接口备忘录.docVIP

VC6.0调用银海新疆程序接口示范代码 Powered by 十二医院 使用本文附录的方法五,即通过ClassWizard利用类型库生成包装类. 用VC6的View-ClassWizard…从AddClass…按钮里选择From a type library…,出现对话框,选择windows\system32\目录下的yh_interfaceproxy.dll链接库,然后会在VC里自动生成Iyhinterface类.以03交易刷卡交易为例,添加如下代码. CoInitialize(NULL); //初始化COM环境 Iyhinterface yh; //声明Iyhterface类的对象yh COleVariant appmsg; //因为C是强类型语言, COleVariant appcode; // 所以appmsg和appcode这两个变量必须这样声明 if(yh.CreateDispatch(yinhai.xjcj.interface)!=0) { yh.yh_interface_init(appcode,appmsg); //银海的初始化函数 } CString BusinessID=03;//刷卡交易 CString dataxml; COleVariant Businesssequence,Businessvalidate,outputxml; dataxml=?xml version=\1.0\ encoding=\GBK\ standalone=\yes\ ?input/input; yh.yh_interface_call((LPCTSTR)BusinessID,(LPCTSTR)dataxml,Businesssequence,Businessvalidate,outputxml,appcode,appmsg); if(appcode.lVal0) { CString cs,strappmsg=appmsg.bstrVal; cs.Format(读卡失败!错误原因:%s,strappmsg); MessageBox(cs,读卡程序,MB_ICONERROR); } else { CString stroutput=outputxml.bstrVal; processoutputxml((char *)(LPCTSTR)stroutput); //自定义处理xml的函数 UpdateData(false); } CoUninitialize(); //析构COM环境 附录: vc中调用Com组件的方法详解 ? -------------------------------------------------------------------------------- Requirement:1.创建myCom.dll,该COM只有一个组件,两个接口IGetRes--方法Hello(),?? IGetResEx--方法HelloEx()2.在工程中导入组件或类型库?? #import 组件所在目录myCom.dll no_namespace??????? 或?? #import 类型库所在目录myCom.tlb?? using namespace MYCOM; --Method 1-------------------------------------------------------?? CoInitialize(NULL);?? CLSID clsid;?? CLSIDFromProgID(OLESTR(myCom.GetRes),clsid);?? CComPtrIGetRes pGetRes;//智能指针?? pGetRes.CoCreateInstance(clsid);?? pGetRes-Hello();?? pGetRes.Release();//小心哦!!请看最后的“注意”?? CoUninitialize();--Method 2---------------------------------------------------------?? CoInitialize(NULL);?? CLSID clsid;?? HRESULT hr=CLSIDFromProgID(OLESTR(myCom.GetRes),clsid);?? IGetRes *ptr;?? hr=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,???????????????? __uuidof(IGetRes),(LPVOID*)ptr);?? ptr