Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como subir una imagen de una recurso a un Timage (https://www.clubdelphi.com/foros/showthread.php?t=35270)

Alexander 05-09-2006 23:56:34

Como subir una imagen de una recurso a un Timage
 
Hola a todos, estoy buscando la forma de mostrar una imagen en un TImage que se encuentra en un recurso .res. La imagen está guardada en el recurso como JPG.

Gracias por su ayuda.

Alexander.

seoane 06-09-2006 03:31:50

Prueba con esto:

Código Delphi [-]
uses Jpeg;

var
  Resource: TResourceStream;
  Jpg: TJpegImage;
begin
  Resource:= TResourceStream.Create(0,'NOMBRE',RT_RCDATA);
  Jpg:= TJpegImage.Create;
  try
    Jpg.LoadFromStream(Resource);
    // Aqui cargamos el jpg en un TImage
    Image1.Picture.Assign(Jpg);
  finally
    Jpg.Free;
    Resource.Free;
  end;
end;

Alexander 06-09-2006 06:00:41

Aun no he podido hacerlo
 
Tengo el problema que no encuentra el recurso que le incluyo como nombre.

Los pasos que hago son los siguientes:

1. Por medio de NX Resource Editor creo un archivo .res con nombre imagen.res.

Lo hago así:

Abró el programa, voy a Resource, Import Image resource, y selecciono la imagen, el crea la ruta JPEG-1-Languaje Neutral.

y listo salvo el archivo.

2. Ahora coloco el código que mensionas, cambiando el nombre por 1, pero me dice que no encuentra el recurso.

Que estaré haciendo mal?.

Gracias

Alexander 06-09-2006 06:40:51

De otra forma pero resulto
 
Lo resolví siguiendo la información de Trucomanía.

Igual muchas gracias.

http://www.q3.nu/trucomania/truco.cgi?361&esp

Alexander


La franja horaria es GMT +2. Ahora son las 07:27:11.

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