Cargar Imagen en TImage

[TiammatMX]

Empezado por dmartinezn

Saludos a todos
Estoy tratando de cargar una imagen JPEG en un TImage y me da problemas,cuando lo hago con imagenes BMP funciona perfectamente.
Esta es la forma como cargo las imagenes BMP
Image1->Picture->LoadFromFile(ExtractFilePath(Application->ExeName)+"imagen\\1.BMP");
Si trato de hacer lo mismo para imagenes JPEG no me funciona,inclui #include <jpeg.hpp> y tampoco,la otra forma que probe cargar las imagenes JPEG fue:
TJPEGImage *JPEG = new TJPEGImage;
JPEG->LoadFromFile(ExtractFilePath(Application->ExeName)+"imagen\\1.JPEG");
Image1->Picture->Assign(JPEG);

Muchas gracias por la ayuda que me puedan brindar.

En el área "Uses" de tu forma, debe estar incluida EXPLÍCITAMENTE la unidad jpeg, de la siguiente forma.

Código Delphi [-]
unit Form1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CtrlSysUtils, ComCtrls, ImgList, ExtCtrls, Grids, DBGrids,
  DBCtrls, StdCtrls, Buttons, jpeg, DB, ADODB, DateUtils, StrUtils;

Con ésto aseguras que lea correctamente las imágenes JPG.