CONECTAR WEBSERVICE QUE NÃO ACEITA SOAP30

ALANMACKEY 25/04/2015 11:05:50
#446135

Olá pessoal, estou com dificuldades p/ conectar em um Webservice, sempre fiz a conexão via SOAP30, mas o webservice não suporta esse tipo de conexão(informação passada pelo técnico do cliente), assim preciso achar alguma outra forma, eu tenho o arquivo WSDL local, ele não está disponível para acesso via browser, estou tentando através da função abaixo, mas não completa a conexão:

[Ô]Código do site http://www.freevbcode.com/ShowCode.asp?ID=7611[Ô](fazendo os créditos)

Public Function PostWebservice(ByVal AsmxUrl As String, ByVal SoapActionUrl As String, ByVal XmlBody As String) As String
Dim objDom As Object
Dim objXmlHttp As Object
Dim strRet As String
Dim intPos1 As Integer
Dim intPos2 As Integer

On Error GoTo Err_PW

[ô] Create objects to DOMDocument and XMLHTTP
Set objDom = CreateObject([Ô]MSXML2.DOMDocument[Ô])
Set objXmlHttp = CreateObject([Ô]MSXML2.XMLHTTP[Ô])

[ô] Load XML
objDom.async = False
objDom.LoadXml XmlBody

[ô] Open the webservice
objXmlHttp.Open [Ô]POST[Ô], AsmxUrl, False

[ô] Create headings
objXmlHttp.setRequestHeader [Ô]Content-Type[Ô], [Ô]text/xml; charset=utf-8[Ô]
[ô]objXmlHttp.setRequestHeader [Ô]Content-Type[Ô], [Ô]application/x-www-form-urlencoded; charset=UTF-8[Ô]
objXmlHttp.setRequestHeader [Ô]SOAPAction[Ô], SoapActionUrl

[ô] Send XML command
objXmlHttp.Send objDom.XML

[ô] Get all response text from webservice
strRet = objXmlHttp.responseText

[ô] Close object
Set objXmlHttp = Nothing

[ô] Extract result
intPos1 = InStr(strRet, [Ô]Result>[Ô]) + 7
intPos2 = InStr(strRet, [Ô]</[Ô])
If intPos1 > 7 And intPos2 > 0 Then
strRet = Mid(strRet, intPos1, intPos2 - intPos1)
End If

[ô] Return result
PostWebservice = strRet

Exit Function
Err_PW:
PostWebservice = [Ô]Error: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description

End Function