** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Access y la Red: Descargar Archivos via AJAX 2
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAccess y la Red: Descargar Archivos via AJAX 2

 Responder Responder
Autor
Mensaje
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: Access y la Red: Descargar Archivos via AJAX 2
    Enviado: 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...


Editado por genoma111 - 10/Febrero/2014 a las 20:06
"To VBA or not to VBA... that's the question" DFP
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable