Como subir una imagen de una recurso a un Timage

[Alexander]

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]]

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]

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]

Lo resolví siguiendo la información de Trucomanía.

Igual muchas gracias.

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

Alexander