如何使用VB6调用WCF服务并设置其配置

Question

我已经浏览了一些主题，并且能够使用以下代码在vb6中调用服务：

Dim sUrl As String
Dim response As String
Dim xmlHttp

Private Sub Form_Load()
sUrl = "http://abc.com/services/abc.svc"


Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlHttp.Open "POST", sUrl, False

xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.send
Dim response As String
response = xmlHttp.responseText

Set xmlHttp = Nothing


End Sub

问题是如何在vb6中调用WCF服务并将params传递给其方法并获得结果？

Answer 1

如果以这种方式尝试，您必须手动构建请求XML，发送它，然后再手动解析响应XML。

更好的方法是在VB.NET或C＃中创建WCF客户端，然后将客户端公开为COM对象。您的VB6代码将能够像任何其他COM对象一样对待它，因此它根本不必使用XML。

请参阅＆＃34; Communicate with WCF Windows Service in VB6?＆＃34;。