Cita:
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.