9 respuestas en este tema

[cHackAll]

Esperando no aburrir con el tema de downloaders, les dejo un pequeño programa que me fue util cuando el famoso Firefox se fue de vacaciones justo cuando estaba a media descarga de un archivo de tamaño considerable que obviamente quedó truncado.

delphi

program Resume;
 
uses Windows, WinInet;
 
function _itoa(Value: Integer; lpBuffer: PChar; Radix: Integer): PChar; cdecl external 'ntdll';
 
var
 hInet, hConnect, hRequest: Pointer;
 hFile, Fail, Remainder, uBytes, dwReserved, Size: Cardinal;
 Buffer: array [1..16384] of Cardinal; // 64 Kb. (server is crazy?)
 
begin Dec(Remainder);
 Size := SizeOf(Remainder);
 
 hInet := InternetOpen('agent', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 hConnect := InternetConnect(hInet, 'ufpr.dl.sourceforge.net', INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
 hFile := CreateFile('Portable_Ubuntu.exe', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0); // will be closed with the process
 
 Fail := 0;
 repeat Sleep(Fail * 3000);
  hRequest := HttpOpenRequest(hConnect, nil, 'sourceforge/portableubuntu/Portable_Ubuntu.exe', nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_DONT_CACHE, 0);
  lstrcat(_itoa(SetFilePointer(hFile, 0, nil, FILE_END), @lstrcpy(@Buffer, 'range: bytes=')[13], 10), '-');
  HttpAddRequestHeaders(hRequest, @Buffer, lstrlen(@Buffer), HTTP_ADDREQ_FLAG_ADD_IF_NEW);
  if HttpSendRequest(hRequest, nil, 0, nil, 0) then
   begin
    HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER, @Remainder, Size, dwReserved);
    while (Remainder > 0) and InternetQueryDataAvailable(hRequest, Size, 0, 0) and (Size > 0) do
     begin
      InternetReadFile(hRequest, @Buffer, Size, uBytes);
      Dec(Remainder, _lwrite(hFile, @Buffer, uBytes));
      Fail := 0;
     end;
   end;
  Inc(Fail);
  InternetCloseHandle(hRequest);
 until (Remainder = 0) or (Fail = 3);
 
 InternetCloseHandle(hConnect);
 InternetCloseHandle(hInet);
 
 if Remainder <> 0 then
  MessageBox(0, 'Download incomplete!'#13'Try again later.', nil, MB_ICONEXCLAMATION);
end.

Lo comparto sin ningun maquillaje para que le extraigan la idea, pues es la semilla para crear un acelerador de descargas por multiples secciones.

Enjoy

[egostar]

Hola

Realice una prueba y note que si lo cancelas y reinicias el "download" continua la descarga en el bloque que se quedo.

Por el lado de multiples secciones pues se lo dejo a los que saben de esto

Hay algunas adecuaciones que se me ocurren en este momento por ejemplo

• Mostrar el avance de la descarga.
• Utilizarlo para incluirlo en mis programas para que bajen actualizaciones desde mi página.

Muy bueno little bro .

Salud OS

[joseme]

Hola! la prueba funcionó, voy a estudiar la posibilidad de integrarlo a un proyecto de backup/restore/copia remota que estoy encarando. Gracias, amigo.

[escafandra]

Muy buen aporte, cHackAll , 

Una pregunta: ¿No se podrí­a hacer algo similar usando la API URLDownloadToFile apoyándose en IBindStatusCallback Interface en los métodos OnProgress y OnDataAvailable?

Con esa API se puede parar y reanudar la descarga y tenemos información de su estado. Lo que no he probado es a pararla desconectando la red a lo bruto. A lo mejor tu sabes mas al respecto. ¿Se podrí­a reanudar la descarga?.

Saludos.

[egostar]

Muy buen aporte, cHackAll , 

Una pregunta: ¿No se podrí­a hacer algo similar usando la API URLDownloadToFile apoyándose en IBindStatusCallback Interface en los métodos OnProgress y OnDataAvailable?

Con esa API se puede parar y reanudar la descarga y tenemos información de su estado. Lo que no he probado es a pararla desconectando la red a lo bruto. A lo mejor tu sabes mas al respecto. ¿Se podrí­a reanudar la descarga?.

Saludos.

La prueba que hice amigo escafandra es terminar el programa desde el Administrador de Tareas, es decir, a la fuerza y al reiniciar el programa continuó desde el punto en que se "rompio" el proceso.

Por lo que pienso que los metodos que mencionas pueden ser utilizados en el programa de forma normal, es decir, si quiero pausar o reiniciar la descarga a través de un botón.

Salud OS

[cHackAll]

...¿No se podrí­a hacer algo similar usando la API URLDownloadToFile apoyándose en IBindStatusCallback Interface en los métodos OnProgress y OnDataAvailable?...

Acabo de ser presentado con dicha API, lastimosamente la primera impresión que me dio esta relacionada con el nivel de programación que cada API presenta, mientras HttpSendRequest esta enviando una cabecera HTTP en un paquete al servidor y esta recibiendo los datos del mismo por un puerto con la API InternetReadFile, lo único que se puede ver por debajo es un par de sockets y algunas concatenaciones y eventos lo que nos da un mayor control de la descarga (Ej. descargar el mismo archivo por multiples secciones al mismo tiempo; como ya habí­a dicho un acelerador de descargas).

La API que me presentas trabaja con objetos COM que no solo engrosan el ejecutable, sino que tarde o temprano llegan a usar a WinInet y/o Winsock pero controlados por urlmon.

Ahora, talvez haya alguna confusión porque nunca he probado la API URLDownloadToFile, pero como comentaba egostar, con el ejemplo que les presento puede apagar el equipo en media descarga y reanudar la descarga una semana después (ej.).

[escafandra]

Acabo de ser presentado con dicha API, lastimosamente la primera impresión que me dio esta relacionada con el nivel de programación que cada API presenta.....

Ciertamente esa API está muy ligada al propio iExplorer y a su configuración por defecto

La API que me presentas trabaja con objetos COM que no solo engrosan el ejecutable, sino que tarde o temprano llegan a usar a WinInet y/o Winsock pero controlados por urlmon.

He analizado a fondo tu código y me ha parecido muy interesante. Me he permitido el lujo de traducirlo al C y de añadirle la posibilidad de usar un proxy y de identificarnos en él. Podrí­a añadirse la retroinformación del estado de descarga como apuntaba egostar:

Hay algunas adecuaciones que se me ocurren en este momento por ejemplo

• Mostrar el avance de la descarga.
• ......

También me he permitido, y espero que no te moleste cHackAll :$, publicar el código modificado en C en un hilo en el que he participado a cerca de este tema en CD.

Dicho esto publico mi humilde adaptación y ampliación en C, esperando no aburrir:

cpp

// Esta es una modificación de la API HttpOpenRequest para permitir la autentificación en el Proxy si fuese necesario.
HINTERNET HttpOpenRequest_Auth(
        HINTERNET hConnect,
        LPCTSTR lpszVerb,
        LPCTSTR lpszObjectName,
        LPCTSTR lpszVersion,
        LPCTSTR lpszReferer,
        LPCTSTR *lplpszAcceptTypes,
        DWORD dwFlags,
        DWORD_PTR dwContext,
        LPCTSTR User,
        LPCTSTR PassWord
        )
{
   HINTERNET hRequest;
   DWORD dwStatus, dwReserved;
   DWORD dwStatusSize = sizeof(dwStatus);
 
   hRequest = HttpOpenRequest(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferer, lplpszAcceptTypes, dwFlags, dwContext);
 
   HttpSendRequest(hRequest, NULL, 0, NULL, 0);
   HttpQueryInfo(hRequest, HTTP_QUERY_FLAG_NUMBER | HTTP_QUERY_STATUS_CODE, &dwStatus, &dwStatusSize, &dwReserved);
 
   // Si es necesario me autentifico.
   if(dwStatus == HTTP_STATUS_PROXY_AUTH_REQ || dwStatus == HTTP_STATUS_DENIED){
      // Introducimos UserName
      InternetSetOption(hRequest, INTERNET_OPTION_PROXY_USERNAME, (void*)User, lstrlen(User)+1);
      // Introducimos el Password
      InternetSetOption(hRequest, INTERNET_OPTION_PROXY_PASSWORD, (void*)PassWord, lstrlen(PassWord)+1);
 
   }else{
      InternetCloseHandle(hRequest);
      hRequest = HttpOpenRequest(hConnect, lpszVerb, lpszObjectName, lpszVersion, lpszReferer, lplpszAcceptTypes, dwFlags, dwContext);
   }
 
   return hRequest;
}

La función FileDownLoad, basada en la función que publica cHackAll:

cpp

// Esta es la función de descarga, basada en la original de cHackAll
bool FileDownLoad(LPCTSTR URL, LPCTSTR Folder, LPCTSTR Proxy, LPCTSTR User, LPCTSTR PassWord)
{
   HINTERNET hInet, hConnect, hRequest;
   HANDLE hFile;
   DWORD Remainder = 0, Fail = 0, uBytes = 0, Size = 0, dwReserved = 0;
 
   BYTE Buffer[1024*64] = {0}; // 64 Kb.
 
   Remainder--;
   Size = sizeof(Remainder);
 
   // Extraigo las partes de la URL
   char c;
   URL_COMPONENTS URL_C = {sizeof(URL_COMPONENTS)};
   URL_C.lpszScheme = &c;
   URL_C.dwSchemeLength = 1;
   URL_C.lpszHostName = &c;
   URL_C.lpszUrlPath = &c;
   InternetCrackUrl(URL, strlen(URL), ICU_DECODE, &URL_C);
   URL_C.lpszScheme = new char[URL_C.dwSchemeLength];
   URL_C.lpszHostName = new char[URL_C.dwHostNameLength];
   URL_C.lpszUrlPath = new char[URL_C.dwUrlPathLength];
   InternetCrackUrl(URL, strlen(URL), ICU_DECODE, &URL_C);
 
   // Configuro el proxi al abrir un Handle Internet
   if(Proxy)
     hInet = InternetOpen("agent", INTERNET_OPEN_TYPE_PROXY, Proxy, NULL, 0);
   else
     hInet = InternetOpen("agent", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0);
 
   hConnect = InternetConnect(hInet, URL_C.lpszHostName, INTERNET_DEFAULT_HTTP_PORT, NULL, NULL, INTERNET_SERVICE_HTTP, 0, 0);
 
   if(Folder) lstrcpy(Buffer, Folder);
   hFile = CreateFile(lstrcat(Buffer, strrchr(URL, '//')+1), GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0); // will be closed with the process
   Fail = 0;
   do{
     Sleep(Fail * 3000);
     hRequest = HttpOpenRequest_Auth(hConnect, NULL, URL_C.lpszUrlPath+1, NULL, NULL, NULL, INTERNET_FLAG_KEEP_CONNECTION | INTERNET_FLAG_DONT_CACHE, 0, User, PassWord);
     lstrcat(itoa(SetFilePointer(hFile, 0, NULL, FILE_END), lstrcpy(Buffer, "range: bytes=")+13, 10), "-");
     bool B = HttpAddRequestHeaders(hRequest, Buffer, lstrlen(Buffer), HTTP_ADDREQ_FLAG_ADD_IF_NEW);
     if(HttpSendRequest(hRequest, NULL, 0, NULL, 0)){
        HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH | HTTP_QUERY_FLAG_NUMBER, &Remainder, &Size, &dwReserved);
        while (Remainder > 0 && InternetQueryDataAvailable(hRequest, &Size, 0, 0) && Size > 0){
           InternetReadFile(hRequest, Buffer, Size, &uBytes);
           Remainder -= _lwrite((HFILE)hFile, Buffer, uBytes);
           Fail = 0;
        }
     }
     Fail++;
     InternetCloseHandle(hRequest);
   }while (Remainder != 0 && Fail != 3);
 
   InternetCloseHandle(hConnect);
   InternetCloseHandle(hInet);
   CloseHandle(hFile);
 
   delete URL_C.lpszScheme;
   delete URL_C.lpszHostName;
   delete URL_C.lpszUrlPath;
 
   return Remainder == 0;
}

Aquí­ dejo el ejemplo de como usar la función FileDownLoad:

cpp

bool D = FileDownLoad("http://catch22.net/sites/default/files/HexEdit121.zip", 0,
   "proxy.........:80XX", "User", "Password");
if(D)    
   MessageBox(0, "Descarga completa.", "Completado", MB_ICONINFORMATION);
else
   MessageBox(0, "Descarga incompleta\n íntentalo mas tarde.", NULL,  MB_ICONEXCLAMATION);

Saludos.

PD: ACTUALIZO el código
He arreglado un error que sucedí­a con algunas URLs en la API HttpSendRequest, que provocaban el cuelgue de la función.
Aprovecho para cambiar el tipo de valor devuelto por FileDownLoad "true" si tubo éxito. Parece mas lógico que sea de ese modo.
Las URL deben tener delante la coletilla "http://" para que la API InternetCrackUrl las interprete correctamente. Otros sistemas de análisis de la URL pueden ser válidos, que cada cual escoja...

[egostar]

Hola

Muy interesante amigo escafandra, se te ven las tablas en el manejo de C++

Salud OS

[off-topic]No debes de preocuparte por el asunto de publicar en ClubDelphi, en DelphiAccess no tenemos problema con ese tipo de situaciones y con ninguna otra y lo puedes ver desde el momento que hay administradores de DelphiAccess participando en ClubDelphi sin ningún problema.[/off-topic]

[escafandra]

Hola

Muy interesante amigo escafandra, se te ven las tablas en el manejo de C++

Muchar gracias por tu apreciación 

[off-topic]No debes de preocuparte por el asunto de publicar en ClubDelphi, en DelphiAccess no tenemos problema con ese tipo de situaciones y con ninguna otra y lo puedes ver desde el momento que hay administradores de DelphiAccess participando en ClubDelphi sin ningún problema.[/off-topic]

No me preocupa el tema de participar en ambos foros. Sólo querí­a ser respetuoso con cHackAll, al fin y al cabo la rutina original es de él 

Saludos.

[cHackAll]

...Sólo querí­a ser respetuoso con cHackAll, al fin y al cabo la rutina original es de él 

Gracias por el respeto hacia mi, pero al codigo lo puedes ultrajar las veces que quieras y de las formas que te plazcan que para eso es que lo publico

PD; Gracias por la traduccion y por las aclaraciones acerca de URLDownloadToFile.

Salud