4 replies to this topic

[dani]

Hola a todos/as me acabo de registrar esperando recibir ayuda y hasta apoyo psicologico (así de frustrado me tiene ya este problemilla).
Estoy tratando de cargar unas imagenes desde un .res a un TImage. Las imagenes están formato jpg, y debe cargarlas en el control image a medida que voy seleccionando elementos de un combobox y en funcion de su indice.

Y siempre me tira el mismo "error jpeg #53", no sé como solucionarlo, he probado a guardar las imagenes con paint en vez de photoshop, a bajarlas de 96ppp a 72 y sigue dando error.

¿alguna idea?

Saludos y gracias.

Edito: He buscado una seccion donde presentarme y saludar pero no la encuentro, así que provecho mi post. Un saludo a todo el mundo, espero podais ayudarme, yo no sé mucho de delphi así que espero poder ir aprendiendo poco a poco y así ayudar a otros. Lo dicho, un saludo y ojalá podais ayudarme con ese maldito error #53.

[Sergio]

Bienvenido Dani, hay un foro para presentarse, mira al inicio de la web.

Respecto del jpeg, no sé si es lo mismo, pero yo tube problemas similares manejando jpeg, y al final todo venia de que el fichero jpeg no podia estar "mezcaldo" con otros ficheros, ya que al leer del stream el jpeg parece que se lee un poco "a ojo", es decir, que si el jpeg ucupa 7000 bytes de un stream, al leerlo se leen 7215 bytes y el stream se queda malamente.

Mi solucion fue almacenar el tamaño del jepg antes, y al leerlo, pasaba esos bytes a un stream secundario, y de ese se leia al jpeg.

En tu caso, prueba a poner ese jpeg en un .res especial, que solo contenga a ese .jpeg, a ver si es lo mismo.

[Fenareth]

Hola amigo dani

Si gustas hacer tu presentación el siguiente enlace es un buen lugar... ¿Quién soy?

Bienvenido 

Saludox !

[genriquez]

Hola

Alguna vez tuve un problema similar, y al final era algo simple, las imágenes las guardaba con formato bitmap pero el archivo tenía la extensión JPG.

Aparentemente algo sin importancia, ya que los editores de imágenes no se fijan en la extensión del nombre del archivo sino en los primeros bytes del archivo donde definen el formato.

Así que creo que deberías revisar bien si el formato de la imagen es realmente el que le corresponde.

Saludos.

[escafandra]

Bienvenido al delphiaccess, dani

Ya te contesté en CD, como veo que también lo has pregundado aquí, contesto por si esta duda surge de nuevo.

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.