Browse Source

Merge branch 'master' of http://git.shengws.com/csx/gdyb

csx 3 years ago
parent
commit
32f3f4f02d
1 changed files with 28 additions and 9 deletions
  1. 28 9
      service/gdyb_service.go

+ 28 - 9
service/gdyb_service.go View File

@@ -62,9 +62,28 @@ func Gdyb1201(certNo string, org_name string, doctor string, fixmedins_code stri
62 62
 	//DllDef := syscall.MustLoadDLL("yh_hb_sctrl.dll")
63 63
 	//Iinit := DllDef.MustFindProc("DllGetClassObject")
64 64
 
65
-	ole.CoInitialize(0)
65
+	//ole.CoInitialize(0)
66
+	//
67
+	//ole.CLSIDFromProgID("yinhai.yh_hb_sctr")
68
+	//
69
+	//
70
+	//unknown, err := CreateInstance(clsid, IID_IUnknown)
71
+	//if err != nil {
72
+	//	return
73
+	//}
74
+	//defer unknown.Release()
75
+	//
76
+	//dispatch, err := unknown.QueryInterface(IID_IDispatch)
77
+	//if err != nil {
78
+	//	return
79
+	//}
80
+	//
81
+	//
82
+	//
83
+
66 84
 	unknown, _ := oleutil.CreateObject("yinhai.yh_hb_sctr")
67
-	xmlhttp, _ := unknown.QueryInterface(ole.IID_IUnknown)
85
+	xmlhttp, _ := unknown.QueryInterface(ole.IID_IDispatch)
86
+
68 87
 	var str3 string
69 88
 	//str := make([]byte, 256)
70 89
 	//str1 := make([]byte, 256)
@@ -72,7 +91,7 @@ func Gdyb1201(certNo string, org_name string, doctor string, fixmedins_code stri
72 91
 
73 92
 	result, _ := oleutil.CallMethod(xmlhttp, "yh_hb_call", "1201", string(bytesData), str3)
74 93
 
75
-	fmt.Println(str3)
94
+	fmt.Println(result.Val)
76 95
 	fmt.Println("~~~~~~~~")
77 96
 	fmt.Println(result)
78 97
 	fmt.Println(result.ToString())
@@ -169,12 +188,12 @@ func Gdyb1101(certNo string, org_name string, doctor string, fixmedins_code stri
169 188
 	gdyb_url := beego.AppConfig.String("gdyb_url")
170 189
 	gdyb_paasid := beego.AppConfig.String("gdyb_paasid")
171 190
 
172
-	DllDef := syscall.MustLoadDLL("yh_hb_sctrl.dll")
173
-	Iinit := DllDef.MustFindProc("yh_hb_call")
174
-	var str3 string
175
-	ret, _, _ := Iinit.Call(StrPtr("1101"), StrPtr(string(bytesData)), StrPtr(str3))
176
-	fmt.Println(ret)
177
-	fmt.Println(str3)
191
+	//DllDef := syscall.MustLoadDLL("yh_hb_sctrl.dll")
192
+	//Iinit := DllDef.MustFindProc("yh_hb_call")
193
+	//var str3 string
194
+	//ret, _, _ := Iinit.Call(StrPtr("1101"), StrPtr(string(bytesData)), StrPtr(str3))
195
+	//fmt.Println(ret)
196
+	//fmt.Println(str3)
178 197
 	//
179 198
 	//url := "http://igb.hsa.gdgov.cn/ebus/gdyb_api/prd/hsa/hgs/1101"
180 199
 	url := gdyb_url + "1101"