Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Bajar imagen de FTP (https://www.clubdelphi.com/foros/showthread.php?t=79973)

rruffino 25-08-2012 02:36:57

Bajar imagen de FTP
 
Hola gente, estoy tratando de que cuando inicie mi aplicación se conecte a un ftp y baje una imagen y la cargue a un componente TImage pero no encuentro como bajar la imagen y pasarla al componente. Si he podido conectarme al sitio ftp y ver el contenido pero no puedo traer la imagen.
Agradezco si alguien me da una mano. Muchas gracias!!!

ecfisa 25-08-2012 03:32:44

Hola.

Revisá este enlace Descargando archivos por FTP con INDY

Una vez que tengas el archivo en disco basta con que hagas:
Código Delphi [-]
  ...
  Image1.Picture.LoadFromFile('Unidad:\Ruta\Archivo.JPG'); 
  ...
Lógicamente 'Unidad:\Ruta\Archivo.JPG' deberás reemplazarlo por la unidad, ruta y nombre de archivo en que fué descargada la imágen.

Saludos.

escafandra 25-08-2012 12:21:11

Y sin indy:

Código Delphi [-]
uses Urlmon;
//...........................................................................
procedure LoadURLImage(Image: TImage; URL: String);
var
  TempName: String;
begin
  TempName:= 'temp' + ExtractFileExt(URL);
  URLDownloadToFile(nil, PCHAR(URL), PCHAR(TempName), 0, nil);
  Image.Picture.LoadFromFile(TempName);
  DeleteFile(TempName);
end;

Ejemplo de uso:
Código Delphi [-]
LoadURLImage(Image1, 'http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg');



Saludos.

rruffino 28-08-2012 00:24:28

Problema resuelto
 
Gracias gente, he podido hacerlo. Muchas gracias por la ayuda!


La franja horaria es GMT +2. Ahora son las 07:35:40.

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