как использовать мой сервис wcf, размещенный в IIS из приложения vb6 - PullRequest
Новая
       15

как использовать мой сервис wcf, размещенный в IIS из приложения vb6

0 голосов
/ 18 января 2012

У меня есть служба wcf, которая размещена в IIS, как я могу использовать эту службу из приложения vb6.Укажите некоторый набор кодов.

Заранее спасибо

Джордж. Сантош

Мой код vb6 

Function CallService()
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\serviceWsdl.xml", ForReading)
wsdlContract = objFile.ReadAll
objFile.Close


wsdlMonikerString = "service4:address='http://localhost/WCFLIBXML/WCFLibXML.Service1.svc'"
wsdlMonikerString = wsdlMonikerString + ", wsdl='" & wsdlContract & "'"
wsdlMonikerString = wsdlMonikerString + ", binding=wsHttpBinding,         bindingNamespace='http://Microsoft.ServiceModel.Samples' "
wsdlMonikerString = wsdlMonikerString + ", contract=WCFLibXML.IService1, contractNamespace='http://Microsoft.ServiceModel.Samples' "
Set wsdlServiceMoniker = GetObject(wsdlMonikerString)
MsgBox "WSDL service moniker: 145 - 76.54 = " & wsdlServiceMoniker.Subtract(145, 76.54)
End Function

I am getting the following error
Run-time error '-2147221020(800401e4)':
Automation error
Invalid syntax
...