如何使用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 服务并将参数传递给它的方法并获得结果？

Answer 1

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

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

请参阅“在 VB6 中与 WCF Windows 服务通信？ ”。