Question

我在WebserviceConsumer中遇到了XSD_STRING_HOLDER的问题。如何在字符串中得到结果？

Dim soapClient As New Servicewebbacarasoap_n17
Dim strFluxResponse As New XSD_STRING_HOLDER
Dim response As XSD_STRING
Dim strRequest As New XSD_STRING
Dim strCodeRetour As String, strFluxXMLSortant As String
soapClient.Setendpoint("http:....?wsdl") 
strRequest.Setvaluefromstring("<ROOT><PAram 2>VOIP</PAram 2><Param 1>C</Param 1></ROOT>")
Set response = soapclient.Consolidationsacre(strRequest, strFluxResponse)
strCodeRetour = response.Getvalueasstring
strFluxXMLSortant = strFluxResponse.Value.Getvalueasstring
Msgbox strFluxXMLSortant

当strFluxResponse为＆＃34; test＆＃34;没关系。但是当strFluxResponse返回＆＃34; <ROOT><PasswordTunnel>MOTDEPASSE</PasswordTunnel></ROOT>＆＃34; msgbox什么都不返回......

％INCLUDE＆＃34; lsxsd.lss＆＃34; Const n17 =＆＃34; http://localhost/soap/＆＃34; Class ServiceWebBacaraSoap_n17 As PortTypeBase

Sub NEW
    Call Service.Initialize ("HttpLocalhostSoapServiceWebBacara", _
    "ServiceWebBacara.ServiceWebBacaraSoap", "http://##FermeAsyncWebService##/binSacreAsyncDotNet/WebServices/ServiceWebBacara.asmx", _
    "ServiceWebBacaraSoap_n17")

End Sub

Function consolidationSACRE(p_ChaineXML_s As XSD_STRING, p_ChaineXMLSortie_s As XSD_STRING_Holder) As XSD_STRING
    Set consolidationSACRE = Service.Invoke("consolidationSACRE", p_ChaineXML_s, p_ChaineXMLSortie_s)
End Function

Function superviser() As XSD_STRING
    Set superviser = Service.Invoke("superviser")
End Function

结束班

XSD_STRING_HOLDER值问题。如何在字符串中获得结果？

0 个答案: