none
Almacenar Contenido devuelto por una URL en una variable RRS feed

  • Pregunta

  • Estimados:

    Para una integración de mi programa con otro sistema tengo que hacer lo siguiente:

    Me proporcionan una URL: https://ubinuy.fenicio.com.uy/listar-compras

    Esa URl devuelve el texto de un archivo xml.

    (Al ingresar esa URL en un navegador web simplemente aparece el contenido de un archivo XML, es decir que en la pantalla aparece el texto, no es una descarga de archivo)

    Mi consulta es como almacenar ese texto en una variable en mi aplicación Vb.net

    Muchas gracias


    dario

    martes, 20 de agosto de 2019 23:47

Respuestas

  • Gracias pero no es eso lo que neceistaba. Necesito guardar el resultado en una variable,

    Pero ya se como hacerlo:

    Private Function LeerPaginaWeb(ByVal laUrl As String) As String
            ' Acceder a una página Web usando WebRequest y WebResponse
            ' Crear la solicitud de la URL.
            Dim Res As String 

            Try
                Dim request As WebRequest = WebRequest.Create(laUrl)

                ' Obtener la respuesta.
                Dim response As WebResponse = request.GetResponse()

                ' Abrir el stream de la respuesta recibida.
                Dim reader As New StreamReader(response.GetResponseStream())

                ' Leer el contenido.
                Res = reader.ReadToEnd()

                ' Cerrar los streams abiertos.
                reader.Close()
                response.Close()
            Catch ex As Exception

            End Try


            Return Res


    dario

    • Marcado como respuesta dario1429 miércoles, 21 de agosto de 2019 16:31
    miércoles, 21 de agosto de 2019 16:30

Todas las respuestas

  • Hola Darío:

    Por ejemplo, puedes crear un botón que cada vez que los pulses, te abra la web indicada.

    Por ejemplo:

     Private Sub btnWeb_Click(sender As Object, e As EventArgs) Handles btnWeb.Click
            Dim Proceso As New System.Diagnostics.Process
            Proceso.StartInfo.FileName = "https://ubinuy.fenicio.com.uy/listar-compras"
            Proceso.Start()
        End Sub

    Un saludo.

    Gemma

    • Propuesto como respuesta Pablo Rubio miércoles, 21 de agosto de 2019 14:38
    miércoles, 21 de agosto de 2019 3:09
  • Gracias pero no es eso lo que neceistaba. Necesito guardar el resultado en una variable,

    Pero ya se como hacerlo:

    Private Function LeerPaginaWeb(ByVal laUrl As String) As String
            ' Acceder a una página Web usando WebRequest y WebResponse
            ' Crear la solicitud de la URL.
            Dim Res As String 

            Try
                Dim request As WebRequest = WebRequest.Create(laUrl)

                ' Obtener la respuesta.
                Dim response As WebResponse = request.GetResponse()

                ' Abrir el stream de la respuesta recibida.
                Dim reader As New StreamReader(response.GetResponseStream())

                ' Leer el contenido.
                Res = reader.ReadToEnd()

                ' Cerrar los streams abiertos.
                reader.Close()
                response.Close()
            Catch ex As Exception

            End Try


            Return Res


    dario

    • Marcado como respuesta dario1429 miércoles, 21 de agosto de 2019 16:31
    miércoles, 21 de agosto de 2019 16:30