Problema webservices

martedì 09 novembre 2010 - 22.34

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags .NET 3.5 | Visual Studio 2010 | SQL Server 2008 R2

ethan0k Profilo | Newbie

13 messaggi | Data Invio: mar 9 nov 2010 - 22:34

Salve a tutti, sto cercando di venire a capo di un problema relativo alla pubblicazione di un webservices.
Il mio obiettivo è questo: sto scrivendo un'applicazione per un dispositivo mobile (iPad) che deve poter leggere il risultato di una query da un DB SQL presente sul mio server.
Ho pensato quindi ad un webservices che restituisca in formato XML il risultato della query elaborata sul server.
Per provare il tutto ho scritto una semplice webapp che richiama il web services ma mi viene restituito il seguente errore:
.. xmlns=''> imprevisto. Errore nel documento XML (1, 2).
Non riesco a capire cosa possa essere..Il problema sembra essere il formato XML non corretto ma non so come risolvere.
Questo è il mio codice:

<WebService(Namespace:="http://mobile.dupigest.it/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Mobile
Inherits System.Web.Services.WebService

Public Shared Function SerializeObject(ByVal o As Object) As String

Return SerializeObject(o, Nothing)
End Function

Public Shared Function SerializeObject(ByVal o As Object, ByVal additionalTypes As Object()) As String

Dim Output As New StringWriter(New StringBuilder())
Dim ser As XmlSerializer

If (additionalTypes Is Nothing) Then
ser = New XmlSerializer(o.GetType())
Else
ser = New XmlSerializer(o.GetType(), additionalTypes)
End If

ser.Serialize(Output, o)

Dim ret As String = Output.ToString().Replace("xmlns:xsd=""http://www.w3.org/2001/XMLSchema""", "")
ret = ret.Replace("xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""", "")
ret = ret.Replace("<?xml version=""1.0"" encoding=""utf-16""?>", "").Trim()
ret = ret.Replace("XML", "".Trim())

Return ret
End Function

Public Shared Function DeserializeObject(Of T)(ByVal xml As String) As Object
Dim ser As New XmlSerializer(GetType(T))
Dim reader As New StringReader(xml)

Dim o As Object = ser.Deserialize(reader)

Return o
End Function

<WebMethod(True)> _
Public Function DownloadMedico(ByVal RequestStr As String) As String

Dim req As WsDownloadMedicoRequest = DeserializeObject(Of WsDownloadMedicoRequest)(RequestStr)

Dim resp As WsDownloadMedicoResponse = Medico.DownloadMedico(req)

Dim types = New List(Of Type)
types.Add(GetType(Medico))

Return SerializeObject(resp, types.ToArray())
End Function

dancan Profilo | Newbie

1 messaggi | Data Invio: mer 20 apr 2011 - 11:36

Ciao anche io ho un problema simile hai risolto in qualche modo?
Saluti Daniele

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !