Imprimir página | Cerrar ventana

Access y la Red: Descargar Archivos via AJAX 2

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=78448
Fecha de impresión: 23/Febrero/2020 a las 09:37


Tema: Access y la Red: Descargar Archivos via AJAX 2
Publicado por: genoma111
Asunto: Access y la Red: Descargar Archivos via AJAX 2
Fecha de publicación: 09/Febrero/2014 a las 11:37
Dos funciones útiles para descargar "cosas" vía Ajax implementando "TimeOuts".

Constantes:

'   MSXML2.ServerXMLHTTP60 constants
Public Const lResolve As Long = 60000
Public Const lConnect As Long = 60000
Public Const lSend As Long = 60000
Public Const lReceive As Long = 60000

Para descargar contenido de páginas web o archivos de texto:

'-------------------------------------------------------------------------------------------
' Name:         GetResponseText2
' Purpose:      Gets the content of web pages or text files from the web.
' Description:  Implements timeouts
' Requires:     Microsoft XML, v6.0 library
' Author:       Diego F.Pereira-Perdomo
' Date:         Dec-03-2013
'-------------------------------------------------------------------------------------------
Public Function GetResponseText2(ByVal strWeb As String) As String

    Dim xml As MSXML2.ServerXMLHTTP60
   
    Set xml = New MSXML2.ServerXMLHTTP60
   
        With xml
            .setTimeouts lResolve, lConnect, lSend, lReceive
            .Open "GET", strWeb, False
            .send
            GetResponseText2 = .responseText
        End With
      
    Set xml = Nothing
   
End Function

Para descargar otro tipo de archivos:

'-------------------------------------------------------------------------------------------
' Name:         GetResponseBody2
' Purpose:      Gets the content of web pages or files into an array of bytes.
' Description:  Implements timeouts
' Requires:     Microsoft XML, v6.0 library
' Author:       Diego F.Pereira-Perdomo
' Date:         Dec-03-2013
'-------------------------------------------------------------------------------------------
Public Function GetResponseBody2(ByVal strWeb As String) As Variant

    Dim xml     As MSXML2.ServerXMLHTTP60
    Dim bytS()  As Byte
   
    Set xml = New MSXML2.ServerXMLHTTP60
   
        With xml
            .setTimeouts lResolve, lConnect, lSend, lReceive
            .Open "GET", strWeb, False
            .send
            bytS = .responseBody
        End With
       
        GetResponseBody2 = bytS
   
    Set xml = Nothing
   
End Function

Edito para coregir el primer código. El que había puesto no correspondía a este tópico...


-------------
"To VBA or not to VBA... that's the question" DFP



Imprimir página | Cerrar ventana