Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Ver una imagen Remota (https://www.clubdelphi.com/foros/showthread.php?t=30858)

MRSAM 20-04-2006 18:31:32

Ver una imagen Remota
 
Amigos, primeramente felicidaes por la nueva imagen de Club Delphi se ve cool... je..

Ahora regresando a lo nuestro.. tengo una aplicacion la cual me ha funcionado perfectamente durante 2 años, sin embargo han cambiado algunas cosas y con el paso del tiempo le voy haciendo modificaciones, cambiando de versiones hasta ser la aplicacion que es hoy.
Sin embargo ahora me topo con el problema de que todo me funciona perfectamente bien.. bueno eso cre.. jeje.. FTP, INDY, CORREOS etc. ahora me solicitan que esta aplicacion pueda visualizar las imagenes que estan almacenadas en un sevidor. con el ftp mando esas imagenes al servidor sin ningun problema pero por ejemplo si quiero que alguien vea esa imagen en otra ciudad quisiera que la viera en un Image de Delphi.. como podria hacer esto.. es decir que cuando consulten el articulo se depliegue la imagen que yo tengo almacenada en mi server...

Nota: Cuento con IP Fija y Servidor Apache,

Sotrono 20-04-2006 19:21:46

Hola, para conectarte al servidor podes usar un TIdFTP, descargar la imagen, guardarla en un Stream, y luego cargar el TImage con el Stream que contiene la foto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Imagen : TMemoryStream;
begin
//Primero conectate al servidor especificando el host, usuario, pass, etc
  Imagen := TMemoryStream.Create;
  IdFTP1.Get('Foto1.bmp', Imagen, false);
  Image1.Picture.Bitmap.LoadFromStream(Imagen);
  //Luego hacer Imagen.Free
end;

Espero que te sirva.
Bytes..


La franja horaria es GMT +2. Ahora son las 13:44:01.

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