Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/wcf/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Xml 如何使用VB6调用WCF服务并设置其配置_Xml_Wcf_Vb6 - Fatal编程技术网

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

Xml 如何使用VB6调用WCF服务并设置其配置,xml,wcf,vb6,Xml,Wcf,Vb6,我已经阅读了一些主题,并能够使用以下代码在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.setR

我已经阅读了一些主题,并能够使用以下代码在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服务并将参数传递给其方法并获得结果?

如果您以这种方式尝试,则必须手动生成请求XML,发送它,然后手动解析响应XML

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


请参阅“

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

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

请参阅“

BTW,你说的“设置其配置”是什么意思?BTW,你说的“设置其配置”是什么意思?