[[David]]

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);//aquí da el error si es JPG, si es bmp no da error.
      end;
    end;
  end;