Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-08-2008
c0lo c0lo is offline
Miembro
 
Registrado: ago 2008
Posts: 18
Poder: 0
c0lo Va por buen camino
Descargar un archivo de Internet

Disculpen yo de nuevo con una pregunta que tengo o duda que tengo, empezando con WebBrowser, ahora tengo una web en la cual cuando descargo un archivo de dicha web me genera un ventana como esta:


ahora lo que yo quiero es automatizar ello, es decir, que internamente en mi form o codigo de delphi indicar la ruta donde guardara el archivo y ademas que lo guarde en dicha ruta.

o en mi project que estoy haciendo la descarga del archivo es de este modo:



Ahora es este mi problema en si, como hago que en mi mismo project como dije anteriormente la descarga sea atuomatica a una direccion dada???
Responder Con Cita
  #2  
Antiguo 11-08-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
¿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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 11-08-2008
c0lo c0lo is offline
Miembro
 
Registrado: ago 2008
Posts: 18
Poder: 0
c0lo Va por buen camino
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.
Responder Con Cita
  #4  
Antiguo 11-08-2008
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 21
JXJ Va por buen camino
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
Responder Con Cita
  #5  
Antiguo 11-08-2008
c0lo c0lo is offline
Miembro
 
Registrado: ago 2008
Posts: 18
Poder: 0
c0lo Va por buen camino
No tendras algun ejemplo que me pueda servir?
Responder Con Cita
  #6  
Antiguo 12-08-2008
Avatar de felipe88
[felipe88] felipe88 is offline
Miembro Premium
 
Registrado: may 2007
Ubicación: Mi Valle del Cauca... Colombia!!!
Posts: 1.120
Poder: 18
felipe88 Va por buen camino
...si no estoy fuera de foco...



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' );
__________________
Web
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Descargar fichero 25 Mb desde internet fmatias Internet 4 06-07-2007 18:43:59
descargar archivo desde php gulder PHP 2 07-06-2007 09:28:26
Descargar archivo con redirección voci Internet 4 09-04-2007 15:22:27
Descargar imágenes de internet via http. alfredosg19 Internet 2 08-04-2005 14:02:27
Problemas al descargar un archivo Mauro® Internet 2 23-10-2003 23:21:28


La franja horaria es GMT +2. Ahora son las 12:36:36.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi