Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-11-2014
Avatar de danielmj
danielmj danielmj is offline
Miembro
 
Registrado: jun 2011
Posts: 383
Poder: 14
danielmj Va por buen camino
Error Jpg #53 y recursos

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.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Qué recursos hay en fichero de recursos kasper Varios 3 31-08-2010 19:31:34
Ahorro de recursos Raynel Varios 5 05-02-2010 20:11:03
Compartir recursos mefixxto Redes 3 20-05-2008 16:16:51
¿recursos de trabajo? mario2000 Gráficos 4 27-03-2008 21:21:00
Cerrar recursos en LAN gesko Varios 4 19-07-2004 18:28:09


La franja horaria es GMT +2. Ahora son las 14:33:10.


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
Copyright 1996-2007 Club Delphi