Hola
Estoy con una base de datos de Firebird, usando ClientDataSet, tengo un componente TOpenPictureDialog, para cargar y visualizar las imagenes. Para cargar una imagen tengo un botón cuyo código pongo acontinuación:
Tengo en el uses puesto JPG, para que pueda ver al abrir el componente TOpenPictureDialog, una imagen de esa extensión. Si cargo una imagen bmp, todo va bien, pero si cargo una imagen JPG, me da el siguiente error:
EInvalidGraphic with message 'Bitmap image is not valid'
Código Delphi
[-]
if OpenPictureDialog1.Execute then
begin
if (CDClientDataSet1.State in [dsEdit,dsInsert]) then
begin
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
TBlobField(CDClientDataSet1.FieldByName('IMAGEN')).LoadFromFile(OpenPictureDialog1.FileName); end;
end;
end;