none
vb6调用webservice 问题 RRS feed

  • 问题

  • 有个需求,希望通过vb6.0调用webservice,传递参数是xml文件,返回的结果也是xml文件数据。

    以前没有做过webservice,我的测试代码如下:

        Dim soapClient As New SoapClient30
        Dim text As String

        Dim x As DOMDocument
        Set x = New DOMDocument
        Dim str As String
       
        str = "<?xml version=""1.0"" encoding=""UTF-8""?><SCPP><head><user>22</user><pwd>11</pwd></head></SCPP>"

        x.LoadXml str
        soapClient.ClientProperty("preferredEncoding") = "UTF-8"
        soapClient.MSSoapInit "http://166.166.16.16/qq/WebService.asmx?WSDL"
        str64 = Base64Encode(str)
        text = soapClient.ShSystem(str64)

    执行后出现下面错误:

    服务器无法处理请求。——〉BZip2 input stream bad block header

    麻烦大侠们帮忙分析一下错误原因!

    2013年10月17日 14:48

答案

  • Hi,

    欢迎来到msdn。

    很抱歉,关于VB6.0 的问题, MSDN不做相关技术支持,你可以尝试去其他论坛需求帮助。

    这里有一个vb6.0调用webservice的例子, 你可以看一下是否能解决你的问题。

    http://www.codeproject.com/Articles/242475/Consuming-a-Web-Service-NET-with-VB6-0-App

    谢谢你的理解和支持。

    Regards.


    We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
    Click HERE to participate the survey.

    2013年10月18日 12:22
    版主