FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour URLDownloadToFile()
Posts: 990
Joined: Wed Oct 19, 2005 02:17 PM
URLDownloadToFile()
Posted: Tue Aug 09, 2016 06:19 AM
Buenos d铆as,

estoy usando el ejemplo que puso Antonio http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32310 para descargar ficheros desde una URL, el problema radica en que no baja el fichero completo. Si pongo la URL en el navegador si que baja el fichero completo.

Os pasa esto ? Lo hab茅is solucionado ?

Muchas gracias.

Saludos
Posts: 990
Joined: Wed Oct 19, 2005 02:17 PM
Re: URLDownloadToFile()
Posted: Tue Aug 09, 2016 09:30 AM

El problema es de googledrive, hay que compartir la carpeta en la que est茅 el fichero o ficheros a descargar como p煤blica.

Hecho este cambio, el ejemplo que puso Antonio funciona perfectamente.

Muchas gracias.

Saludos

Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM
Re: URLDownloadToFile()
Posted: Sun Aug 14, 2016 06:18 PM

Yo lo que necesito es descargar un fichero xls al que se accede pulsando un bot贸n dentro de una p谩gina web
No se c贸mo poder hacerlo autom谩ticamente sin tener que pinchar en el bot贸n correspondiente a la descarga de la p谩gina web.
Les agradezco de antemano su ayuda.

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: URLDownloadToFile()
Posted: Sun Aug 14, 2016 07:07 PM
Esto me ha funcionado

Code (fw): Select all Collapse
#include "fivewin.ch"

function Main()
        
   local nRet
   local n      := 1
   local cFile  := "d:\fwh\fwhteam\five" + AllTrim( Str( n ) ) + ".png"
   Do While File( cFile )
      n++
      cFile  := "d:\fwh\fwhteam\five" + AllTrim( Str( n ) ) + ".png"
   enddo
   
   nRet := DOWNLOADFILE( "https://bitbucket.org/fivetech/fivewin-contributions/downloads/Fivetechv.png", ;
                         cFile  )
  
   MsgStop( nRet )

RETURN NIL

#pragma BEGINDUMP

#include <Windows.h>
#include <hbapi.h>
#include "hbapiitm.h"
#include "hbstack.h"
#include <hbvm.h>
#include <urlmon.h>
HB_FUNC( DOWNLOADFILE )

{
   HRESULT hr;

   hr = URLDownloadToFile( NULL, hb_parc( 1 ), hb_parc( 2 ), 0, NULL );
  
   hb_retnl( hr ) ;
}

#pragma ENDDUMP
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: URLDownloadToFile()
Posted: Wed Aug 17, 2016 09:08 PM

Cristobal:
Te consulto por si lo has probado: puede ser que cuando has hecho la descarga de un archivo y la quieres volver a hacer el programa no refresque la descarga y vuelva a traer de cache el archivo ya bajado?
Porque hago las pruebas para bajar por url y subir por ftp y si no salgo del programa la imagen que me muestra es siempre la misma..
Gracias !!

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: URLDownloadToFile()
Posted: Wed Aug 17, 2016 10:05 PM
cmsoft wrote:Cristobal:
Te consulto por si lo has probado: puede ser que cuando has hecho la descarga de un archivo y la quieres volver a hacer el programa no refresque la descarga y vuelva a traer de cache el archivo ya bajado?
Porque hago las pruebas para bajar por url y subir por ftp y si no salgo del programa la imagen que me muestra es siempre la misma..
Gracias !!


Correcto, siempre usa la cach茅
Creo que asi se podr铆a solucionar con la function DELETEURLCACHEENTRY( cUrl )

viewtopic.php?f=3&t=32804#p192940
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: URLDownloadToFile()
Posted: Wed Aug 17, 2016 10:49 PM

Gracias Cristobal! Pruebo y comento!!

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: URLDownloadToFile()
Posted: Thu Aug 18, 2016 12:13 AM

Este post me parece tan bueno o mejor

viewtopic.php?f=3t=27301p=151760hilit=cache#p151760

&&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: URLDownloadToFile()
Posted: Thu Aug 18, 2016 12:35 PM

Funciono perfecto con la primera opcion!!
Gracias Cristobal!!

Continue the discussion