Generalmente estamos acostumbrados a que los Webservices SOAP exporten datos como XML o datos como enteros, strings y demás tipos. Pero que pasa si queremos exportar los datos en formato JSON.
Primero necesitamos la librería correspondiente y la cual esla mas recomendada en estos momentos Json.NET (http://james.newtonking.com/projects/json-net.aspx o http://json.codeplex.com). Esta librería la importamos en las referencias de la aplicación.
Ahora en nuestra aplicación creamos un nuevo archivo Webservice. Lo mas probable es que se va a generar el siguiente código:
Imports System.Web Imports System.Web.Services Imports System.Web.Services.Protocols 'To allow this Web Service to be called from script, using ASP.NET AJAX,uncomment the following line. '<System.Web.Script.Services.ScriptService()> _ <WebService(Namespace:="http://tempuri.org/")>_ <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Public Class WebService InheritsSystem.Web.Services.WebService <WebMethod()>_ Public Function HelloWorld() AsString Return "Hello World" End Function End Class
Ahora agregamos las referencias
Imports Newtonsoft.Json Imports System.Web.Script.Services
Descomentamos donde dice
<System.Web.Script.Services.ScriptService()> _
Cambiamos el la función HelloWorld por el siguiente procedimiento
<WebMethod(CacheDuration:=0)> _ <Script.Services.ScriptMethod(ResponseFormat:=ResponseFormat.Json,UseHttpGet:=True, XmlSerializeString:=False)> _ Public Sub GetDatosJSON(ByValvalor1 As Integer,ByVal valor2 AsInteger) Dim iDatosAs New MisDatos Context.Response.Cache.SetExpires(DateTime.Now.AddHours(-1)) Context.Response.ContentType = "application/json" Context.Response.Write(Newtonsoft.Json.JsonConvert.SerializeObject( iDatos.GetDataSet(valor1,valor2), Newtonsoft.Json.Formatting.None)) Context.Response.Flush() Context.Response.End() End Sub
Como podemos ver le indicamos la duración del cache, la ponemos en 0, también le indicamos los métodos de script, Json y le especificamos que NO es XMLSerialize.
Ahora en el código le definimos el Content Type donde le especificamos que es application/json que es el tipo de datos que vamos a retornar, que aunque es texto puro, es mejor definirlo de esta manera.
Luego utilizamos el método Newtonsoft.Json.JsonConvert.SerializeObjecty le enviamos nuestro Dataset, el componente se encargará de hacer el resto.
Como podemos ver le definimos Formattin.None esto se hace cuando ya hemos pasado las etapas de desarrollo y estamos seguros de como se retornan los datos. Con esta propiedad el resultado va a ser texto sin formato, se eliminan los espacios en blanco, los innecesarios obviamente, y prácticamente que todo el resultado queda en una sola línea string. Si le definimos Formatting.Indented el resultado será ordenado para la vista y para entender los datos, pero consume mucha más memoria que el formato sin identar. Entonces cuando ya uses la aplicación en producción usa Fomatting.none
Obtendremos un resultado similar a:
{"Referencias":[{"codigo":123,"descripcion":"Ejemplo Descripcion"}]}