Se me ocurren algunas soluciones:
1) Usar un objeto de Internet explorer,
pasandole la url del pdf y luego invocando un metodo saveas() o algo parecido. Yo no manejo ese objeto pero seguro algun compañero puede ayudar.
2) Usar wget,
http://users.ugent.be/~bpuype/wget/, es una linea de comandos
3) Otra que probablemente sea de ayuda en HB_TIP, seguro que se puede usar, pero no la controlo muy bien.
4) Mi preferida sería usar hb_curl, que está en las contribs de Harbour, es un poco compleja pero te será muy útil para infinidad de cosas.
- Code: Select all Expand view
#include "hbcurl.ch"
curl_global_init()
IF ! Empty( curl := curl_easy_init() )
curl_easy_setopt( curl, HB_CURLOPT_DOWNLOAD )
curl_easy_setopt( curl, HB_CURLOPT_URL, "http[s]://la direccion de tu pdf")
curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYPEER, .f. )
curl_easy_setopt( curl, HB_CURLOPT_SSL_VERIFYHOST, .f. )
curl_easy_setopt( curl, HB_CURLOPT_DL_BUFF_SETUP )
curl_easy_setopt( curl, HB_CURLOPT_NOPROGRESS, .f. )
curl_easy_setopt( curl, HB_CURLOPT_VERBOSE, .T. )
if curl_easy_perform( curl ) == 0
tmp := curl_easy_dl_buff_get( curl )
If left( tmp, 4 ) == '%PDF'
Memowrit( 'HeBajadoEl.pdf', tmp )
EndIf
endif
endif
Aprender CURL es un gran primer paso para acercarnos a internet