none
WebService com Soap RRS feed

  • Pergunta

  • Boa tarde pessoal, preciso consumir um WebService com soap em VB.Net, preciso passar por parâmetro login e senha, fiz até agora o que segue, mas não consigo sair do lugar. Peço por gentileza se alguém pode me ajudar com isso.

    O WebService está em ISO-8859-1 e preciso converter em UTF-8 (também não estou conseguindo)

    O webservice é: http://homologcra.protesto.com.br/cra/webservice/e-formulario.php?wsdl     

       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            Dim Formulario As New Formulario.serverFormulario
            Dim WS = New ServiceReference1.serverFormularioPortTypeClient
            Dim Credencial As New NetworkCredential("dist.26902", "teste")
            Dim Resposta As String

            Dim encoder As System.Text.Encoding = System.Text.Encoding.UTF8
            Dim bytes As Byte() = encoder.GetBytes(txtPedido.Text)
            Dim decoded As String = encoder.GetString(bytes)

           Dim Converter As Byte() = Encoding.Convert(Encoding.UTF8, Encoding.GetEncoding("ISO-8859-1"), bytes)

            Dim cUri = New Uri(Formulario.Url)
            Dim req As HttpWebRequest = HttpWebRequest.Create(cUri)

            Dim auth As String = "Basic " & Convert.ToBase64String(System.Text.Encoding.Default.GetBytes("dist.26902:teste"))

            req.PreAuthenticate = True
            req.Headers.Add("Authorization", auth)

            Dim resp As WebResponse = req.GetResponse

               Dim Converter1 As Byte() = Encoding.Convert(Encoding.GetEncoding("ISO-8859-1"), Encoding.UTF8, encoder.GetBytes(WS.Consultar(Convert.ToBase64String(Converter))))

            Resposta = Convert.ToBase64String(Converter1)  


       End Sub

    Obrigado 

    Rodrigo

    quarta-feira, 1 de maio de 2019 21:02

Todas as Respostas