如何在VB6.0应用程序中调用WCF服务方法

我想在VB6.0应用程序中使用参数调用WCF服务方法。我的WCF服务的URL是：-HTTP://10.1.1.169:7794/我想调用的方法是ConvertXMLDataToDBFAndAccess，此方法使用四个参数。参数是：-xmldata、isCompressed、AccessFileName、DBFFileName

目前我没有与服务相关的代码。因此，在不更改服务代码的情况下，您可以在visual basic 6.0中为我提供代码。此服务运行在另一台计算机上，并且我的机器位于同一网络中，因此我可以访问此服务

我希望这对我有所帮助

Dim strSoap, strSOAPAction As String
Dim strURL As String ' WEB SERVICE URL
Dim DataToSend as String 

strSoap = "<?xml version=""1.0"" encoding=""utf-8""?><s:Envelope xmlns:s=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
          "<s:Body>" & _
          "<YOURMethodName xmlns=""http://tempuri.org/"">" & _
                "<YOURMethodParameterName>DataToSend</YOURMethodParameterName>" & _
          "</YOURMethodName>" & _
          "</s:Body></s:Envelope>"            
          'REPLACE WITH YOUR DATA

strSOAPAction = "http://tempuri.org/YOURContractName/YOURMethodName" ' REPLACE HERE

Dim xmlhttp As MSXML2.XMLHTTP30

Set xmlhttp = New MSXML2.XMLHTTP30
xmlhttp.open "POST", strURL, False 'HERE YOU OPEN THE CONECTION WITH THE WebService
xmlhttp.setRequestHeader "Man", "POST " & strURL & " HTTP/1.1" ' DEFINE THE COMUNICATION TYPE
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" 'DEFINE CONTENT TYPE
xmlhttp.setRequestHeader "SOAPAction", strSOAPAction ' ASSOCIATE THE SOAP ACTION
DoEvents
Call xmlhttp.send(strSoap) ' SEND THE REQUEST
DoEvents
If xmlhttp.Status = 200 Then
    ' IT WORKED
Else
  'ERROR
End If

---

这可能会有帮助。虽然这可能会回答这个问题，你能提供一些评论或至少描述一下这是怎么做的吗？虽然我们中的一些人可能能找到答案，但不是每个人都能。我已经添加了一些评论，希望它们能有所帮助。如果你认为我还有什么需要解释的，请告诉我。谢谢。谢谢你的回复，但它不起作用。我已经替换了你标记的所有需要的信息，但是当光标转到调用xmlhttp.sendstrSoap时，它会给出错误。错误是：-运行时错误-2147221020800401e4无效Syntax@user3817749您要发送的数据类型是什么？，你能用你正在使用的代码编辑你的问题吗？.string数据类型。但是把数据类型放在哪里呢？

Dim strSoap, strSOAPAction As String
    Dim strURL As String ' WEB SERVICE URL
    Dim DataToSend As String
    DataToSend = "demo.mdb"
    strURL = "10.4.5.169:7794"
    strSoap = "<?xml version=""1.0"" encoding=""utf-8""?><s:Envelopexmlns:s=""http://schemas.xmlsoap.org/wsdl/soap/envelope/"">" & _
              "<s:Body>" & _
              "<MoveFile xmlns=""http://tempuri.org/"">" & _
                    "<fileName>DataToSend</fileName>" & _
              "</MoveFile>" & _
              "</s:Body></s:Envelope>"
              'REPLACE WITH YOUR DATA

    strSOAPAction = "http://tempuri.org/DemoConnect/MoveFile" ' REPLACE HERE

    Dim xmlhttp As MSXML2.XMLHTTP30

    Set xmlhttp = New MSXML2.XMLHTTP30
    xmlhttp.Open "POST", strURL, False
    xmlhttp.setRequestHeader "Man", "POST " & strURL & " HTTP/1.1"
    xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
    xmlhttp.setRequestHeader "SOAPAction", strSOAPAction

    xmlhttp.send (strSoap)

here MoveFile is method name  and fileName is parameter name