Error Jpg #53 y recursos

[danielmj]

He instalado eurekalog trial a ver si me da mas informacion sobre el error, y me dice lo siguiente:



Personalmente, no me aclara mucho ¿alguien sabe interpretar ese mensaje?
Gracias.

[olbeup]

Hola danielmj,

Has probado en pone un 0 (cero) al Recursos.Seek, en vez de 1, 2 ó 3, sólo 0 (cero)

Un saludo.

[danielmj]

Hola olbeup, buenos dias

He probado eso que me comentas, y ahora no pasa nada al seleccionar el primer elemento del combo (index 0), no da error, pero tampoco muestra la imagen. Pero si selecciono el segundo o tercer elemento ya da error de "fuera de indices" (hay mas elementos pero el case solo llega por ahora hasta el segundo).

El archivo .rc es este:

0    image_0    RCDATA    0.jpg
1    image_1    RCDATA    0.jpg
2    image_2    RCDATA    2.jpg
3    image_3    RCDATA    3.jpg
4    image_4    RCDATA    4.jpg
5    image_5    RCDATA    4.jpg
6    image_6    RCDATA    6.jpg
7    image_7    RCDATA    7.jpg
8    image_8    RCDATA    8.jpg

Un saludo y gracias.

[[escafandra]]

Código Delphi [-]
var
  jpg: TJpegImage;
  Recurso: TResourceStream;
begin
  Recurso:= TResourceStream.Create(0, 'RES_IMG_0', RT_RCDATA);
  jpg:= TJpegImage.Create;
  jpg.LoadFromStream(Recurso);
  Image1.Picture.Assign(jpg);
  Recurso.Free;
  jpg.Free;
end;

Saludos.

[danielmj]

Muchisimas gracias escafandra, no sabes lo frustrante que es buscar información en internet (incluido en ingles) y no encontrar sino gente con el mismo error que me daba a mi.
En fin, ya funciona bien y sigo adelante.

Un saludo!