Bladeren bron

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

csx 3 jaren geleden
bovenliggende
commit
95237f6360
1 gewijzigde bestanden met toevoegingen van 6 en 2 verwijderingen
  1. 6 2
      service/gdyb_service.go

+ 6 - 2
service/gdyb_service.go Bestand weergeven

@@ -68,19 +68,23 @@ func Gdyb1201(certNo string, org_name string, doctor string, fixmedins_code stri
68 68
 	if err != nil {
69 69
 		log.Fatal("CreateObject: ", err)
70 70
 	}
71
+
71 72
 	xxxx := unknown.MustQueryInterface(ole.IID_IDispatch)
72 73
 
73 74
 	//p := (*string)(unsafe.Pointer(str))
74
-	//var str6 *string = nil
75
+	var str6 string = ""
75 76
 	if err != nil {
76 77
 		log.Fatal("QueryInterface: ", err)
77 78
 	}
78 79
 
79
-	r, err1 := xxxx.CallMethod("yh_hb_call", "1201", string(bytesData), x)
80
+	r, err1 := xxxx.CallMethod("yh_hb_call", "1201", string(bytesData), str6)
81
+	result := oleutil.MustGetProperty(xxxx, "astr_jysc")
82
+
80 83
 	if err1 != nil {
81 84
 		log.Fatal("CallMethod: ", err1, " | ", r)
82 85
 	}
83 86
 	fmt.Println("~~~~~~~")
87
+	fmt.Println(result)
84 88
 	fmt.Println(r)
85 89
 	fmt.Println(s3)
86 90
 	fmt.Println(x)