Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Programa que muestre imagen de una web (https://www.clubdelphi.com/foros/showthread.php?t=56346)

Celorio10 15-05-2008 00:16:55

Programa que muestre imagen de una web
 
Buenas noches, lo primero presentarme, soy novatillo por aqui y programando en delphi mas de lo mismo jejejejee

Estoy haciendo un programilla (para clase) en el que el usuario puede hacer una busqueda en filmaffinity.com (desde el mismo programa) y le aparecerán los 5 primeros resultados de esa busqueda y mediante unos botones puede ir accediendo a la descripción de cada pelicula, la descripción aparece en un Memo y me gustaria que apareciese tambien la portada, he puesto un TImage pero no se ni como pasarle la dirección de la imagen (la tengo sacada del codigo html y guardada en un string) ni hacer que la muestre ya que lo maximo que he hecho con imagenes ha sido cargarlas desde mi propio ordenador. ¿Como podria hacerlo?

No se si habrá quedado muy claro el tema, espero haberme explicado lo suficientemente bien :$ Y a ver si alguno de vosotros me puede echar un cablecillo.

Saludos y gracias de antemano!!!

seoane 15-05-2008 22:48:15

¿Has pensado en usar TWebBrowser?

Celorio10 16-05-2008 18:01:37

Vale, al final medio lo conseguí, con el TImage puedo mostrar .bmp de internet, pero sin embargo me casca con los .jpg y estos son los que necesito :(:(:( Os dejo el trozo de codigo para que muestre un .bmp y a ver si alguno me termina de dar el empujoncito para conseguir hacerlo jejjejee

Definimos las variables:

Código Delphi [-]
MiStream: TMemoryStream;

Y el Codigo:

Código Delphi [-]
MiStream:=TMemoryStream.Create;
IdHttp1.Get('http://rutadelaimagen/imagen.bmp',MiStream);
MiStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(MiStream);

Saludos

PD:seoane gracias por lo del TWebBrowser, lo intenté utilizar y al solamente querer poner una imagen quedaba feo que apareciesen las barras :)

seoane 16-05-2008 20:26:42

Pongo el código de memoria:
Código Delphi [-]
Jpg:= TJpegImage.Create;
try
  MiStream.Position:=0;
  Jpg.LoadFromStream(MiStream);
  Image1.Picture.Assign(Jpg);
finally
  Jpg.Free;
end;

Celorio10 16-05-2008 21:26:49

Buffff muchisimas gracias seoane, con eso me va perfect!!!! :):):):)


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

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