Descargar un archivo de Internet

[Neftali [Germán.Estévez]]

¿Puedes poner el código que estás utilizando para descargar el fichero?

No se si estás utilizando las funciones de la unit URLMon; Si no es así deberías echarle un vistazo.

[c0lo]

No se trata de un enlace directo para descargar, es similar al sistema de Planet-Source Code, el cual para descargar los ejemplos te genera un codigo aleatorio y debes tener cuenta para mantener continuo dicha descarga.

No se si me dejo explicar bien, es decir, es una pagina en la cual se debe introducir el codigo de seguridad para descargar, pero ello ya lo tengo resuelto el problema es cuando aparece la ventana de descarga la direccion del archivo a guardar en la PC or hd y ocultar dicha descarga.

[JXJ]

con las indy y usando el componente

tidhttp

revisa la opcion de habilitar redireccionamiento.
y las que sean de http response.
por que en la respuesta es donde se obtiene la url definitiva done esta el archivo

me refiero a esto

url aleatoria

www.ziddu.com/donwloads/23221321dodias=?/

url del servidor.
www.ziddu.com/files/elarchivo.zip

[c0lo]

No tendras algun ejemplo que me pueda servir?

[[felipe88]]

Depronto este codigo te sirva.

Código Delphi [-]
/*Añadiendo a nuestro formulario la librería WinINet se pueden descargar archivos por HTTP con la siguiente función:*/

function DescargarArchivo( sURL, sArchivoLocal: String ): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  LongitudBuffer: DWORD;
  F: File;
  sMiPrograma: String;
begin
  sMiPrograma := ExtractFileName( Application.ExeName );
  hSession := InternetOpen( PChar( sMiPrograma ), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0 );

  try
    hURL := InternetOpenURL( hSession, PChar( sURL ), nil, 0, 0, 0 );

    try
      AssignFile( F, sArchivoLocal );
      Rewrite( F, 1 );

      repeat
        InternetReadFile( hURL, @Buffer, SizeOf( Buffer ), LongitudBuffer );
        BlockWrite( F, Buffer, LongitudBuffer );
      until LongitudBuffer = 0;

      CloseFile( F );
      Result := True;
    finally
      InternetCloseHandle( hURL );
    end
  finally
    InternetCloseHandle( hSession );
  end
end;

/*El primer parámetro es la URL completa del archivo a descargar y el
segundo la ruta y nombre del archivo donde se va a guardar en nuestro disco duro. 
Un ejemplo de llamada a la función sería:*/

DescargarArchivo( 'http:\\miweb.com\imagen.jpg', 'C:\Mis documentos\imagen.jpg' );

[c0lo]

Yo toy usando algo similar:

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName),
                INTERNET_OPEN_TYPE_PRECONFIG,
               nil, nil, 0);
try
  hURL := InternetOpenURL(hSession,
            PChar(fileURL),
            nil,0,0,0);
  try
   AssignFile(f, FileName); 
   Rewrite(f,1); 
   repeat
    InternetReadFile(hURL, @Buffer, 
                     SizeOf(Buffer), BufferLen);
    BlockWrite(f, Buffer, BufferLen) 
   until BufferLen = 0;
   CloseFile(f); 
   Result:=True;
  finally 
   InternetCloseHandle(hURL)
  end 
finally
  InternetCloseHandle(hSession) 
end
end;

Gracias, pero ahora tengo otro inconveniente cuando me muestra el cuadro de dialogo como lo cierro sin cerrar el proceso, que lo genera...

[dec]

Hola,

Pero, se supone que con el código que utilizas no debería aparecer ningún cuadro de diálogo,... ¿no es así?

PD. No dupliques hilos, acabo de cerrar uno que abriste en relación con este: sigue en este, por lo tanto, añadiendo lo que creas oportuno.