Ver Mensaje Individual
  #3  
Antiguo 08-04-2005
Avatar de salvica
salvica salvica is offline
Miembro
 
Registrado: mar 2004
Ubicación: Albacete (España) ... En un lugar de la Mancha ...
Posts: 304
Reputación: 21
salvica Va por buen camino
Acabo de leer la pregunta, y aunque tarde a lo mejor te sigue valiendo.
Yo lo hago así (Indy 9 y delphi 7)

tienes que poner un objeto TIdHttp en el form
Código Delphi [-]
  procedure PedirImagen( URL, FICHERO, DIR_DESTINO:string );
  var
    Stream      : TFileStream;
  begin
  { re-crear el DIRECTORIO de destino por si no estuviese }
    ForceDirectories( DIR_DESTINO );
    Stream  := TFileStream.Create( DIR_DESTINO+'\'+FICHERO, fmCreate);
    try
      IdHTTP.Get( URL+'/'+FICHERO, Stream );
    finally
      Stream.Free;
    end;
  end;
Saludos

Pdta.: se me olvidaba
para pedir una imágen
Código Delphi [-]
   PedirImagen( 'http://miWeb.com/imagenes', 'la_imagen.jpg', 'c:\pruebas\imagenes' );

Última edición por salvica fecha: 08-04-2005 a las 13:06:05.
Responder Con Cita