Hola de nuevo, he creado un archivo .res para pasarle una serie de imagenes a un TImage, a primera vista todo está bien. El código es este:
Código Delphi
[-]
implementation
{$R *.dfm}
{$R hebillas.res}
...
procedure TForm1.ComboBox1Click(Sender: TObject)
var
jpg: TJpegImage;
Recursos: TResourceStream;
begin
case comboBox1.ItemIndex of
0:begin
jpg:= TJpegImage.Create;
Recursos := TResourceStream.Create( hInstance, 'RES_IMG_0', RT_RCDATA );
Recursos.Seek( 1, soFromBeginning );
jpg.LoadFromStream( Recursos );
Image1.Canvas.Draw( 0, 0, jpg );
Recursos.Free;
Image1.Free;
end;
1:begin
jpg:= TJpegImage.Create;
Recursos := TResourceStream.Create( hInstance, 'RES_IMG_1', RT_RCDATA );
Recursos.Seek( 2, soFromBeginning );
jpg.LoadFromStream( Recursos );
Image1.Canvas.Draw( 0, 0, jpg );
Recursos.Free;
Image1.Free;
end;
2:begin
jpg:= TJpegImage.Create;
Recursos := TResourceStream.Create( hInstance, 'RES_IMG_2', RT_RCDATA );
Recursos.Seek( 3, soFromBeginning );
jpg.LoadFromStream( Recursos );
Image1.Canvas.Draw( 0, 0, jpg );
Recursos.Free;
Image1.Free;
end;
end;
end;
El problema es que seleccione el elemento que sea del combo, el ejecutable me devuelve "error Jpg #53" y no sé como solucionarlo, he visto por la web que es problema de memoria, pero ¿como puedo arreglarlo?
Gracias de antemano.