lunes, junio 06, 2005

Codigo ASP.Net - Leyendo un URL remoto.

Despues de casi dos semanas, regreso a publicar. Había estado realizando diseño grafico. Nada de programación. Y el pasado viernes estuve investigando sobre peticiones web, algo asi como un servicio web, pero sin serlo.
Resulta que en la empresa contratamos un servicio que verifica un número de serie y como respuesta nos proporciona los dato del producto que se esta buscando, digamos, modelo, lugar de fabricación, categoria, etc.
Ahora bien, el resultado es una cadena de texto. Ni siquiera es XML, es una simple cadena de texto con el Pipe () como delimitador de los campos.
Habian varios puntos que se tenian que considerar, primero la seguridad. No podia proporcionar a todo el personal de la empresa el usuario y la contraseña, sobre todo para que no le den mal uso.
El segundo, tenia que escribirse manualmente el URL, lo cual no es muy practico.
Y tercero, no existia diseño alguno en la respuesta de la información ( ni siquiera el uso de negritas).
Es asi, que me di a la tarea de implementar una página, que pudiera mandar el URL con el número de serie desde un cuadro de texto, el usuario y la contraseña no disponible al usuario y que se quedara la información en una variable para el correcto formato del mismo.
Estoy usando un par de clases de la libreria de System.Net, llamada WebRequest y WebResponse, asi como la libreria System.IO para la lectura de la información.
Cógigo:
< % @ import Namespace="System.Net" % >
< % @ import Namespace="System.IO" % >


A con tinuación debemos instanciar los objetos:.

Dim mywebReq As WebRequest
Dim mywebResp As WebResponse
Dim sr As StreamReader

Usamos los objetos antes creados, y llenamos una cadena de texto.


mywebReq = WebRequest.Create("http://www.com//res.php?serie=ab1ab1ab1ab1&usuario=user&password=111111")
mywebResp = mywebReq.GetResponse()
sr = New StreamReader(mywebResp.GetResponseStream)
Dim strHTML As String
strHTML = sr.ReadToEnd

Creamos un array para usar los elementos de la cadena de texto.


Dim arrSplitHTML as Array
arrSplitHtml = strHtml.Split("")

Y finalmente ponemos las cadenas texto a diferentes objetos Label.

miTituloLabel.Text = arrSplit(0)
miCampoLabel.Text = arrSplit(1)

Listo!

No hay comentarios.: