Acceso a Servicio Web
Publicado por juanjo (1 intervención) el 18/12/2007 17:06:15
Buenas
Estoy intentando acceder a un servicio Web realizado en PHP desde una aplicacion en visual basic y estoy obteniendo el siguiente error
error in msg parsing:
Charset from HTTP Content-Type 'US-ASCII' does not match encoding from XML declaration 'UTF-8'
Antes cuando la url era en local funcionaba correctamente
Muchas gracias
El código de la aplicacion seria
Private Sub b_enviar_Click()
Dim usuario_sw As String
Dim password_sw As String
Dim url_sw As String
Dim resultado_envio As Boolean
Dim error_envio As String
Dim SoapClientsw As New SoapClient30
Dim objXMLResultNodes As IXMLDOMNodeList
Dim texto_mensaje As String
Dim texto_remitente As String
On Local Error Resume Next
url_sw = Leer_Ini(nombre_fichero, "URL_SERVICIO", URL_SERVICIO_WEB)
SoapClientsw.MSSoapInit url_sw
''Set objXMLResultNodes = SoapClientsw.enviarsms("dddd", "dddd", "aa", "juanjo", "6")
If Err <> 0 Then
MsgBox Err.Description, vbInformation, "Errorrr - Synergia"
t_mensaje.Text = Err.Description
End If
end sub
Estoy intentando acceder a un servicio Web realizado en PHP desde una aplicacion en visual basic y estoy obteniendo el siguiente error
error in msg parsing:
Charset from HTTP Content-Type 'US-ASCII' does not match encoding from XML declaration 'UTF-8'
Antes cuando la url era en local funcionaba correctamente
Muchas gracias
El código de la aplicacion seria
Private Sub b_enviar_Click()
Dim usuario_sw As String
Dim password_sw As String
Dim url_sw As String
Dim resultado_envio As Boolean
Dim error_envio As String
Dim SoapClientsw As New SoapClient30
Dim objXMLResultNodes As IXMLDOMNodeList
Dim texto_mensaje As String
Dim texto_remitente As String
On Local Error Resume Next
url_sw = Leer_Ini(nombre_fichero, "URL_SERVICIO", URL_SERVICIO_WEB)
SoapClientsw.MSSoapInit url_sw
''Set objXMLResultNodes = SoapClientsw.enviarsms("dddd", "dddd", "aa", "juanjo", "6")
If Err <> 0 Then
MsgBox Err.Description, vbInformation, "Errorrr - Synergia"
t_mensaje.Text = Err.Description
End If
end sub
Valora esta pregunta


0