[frandigo77]

Hola buenas foro, se van solucionando problemas..
Pues tengo uno que llevo timepo sin podr resolver y que deje en el tintero y ahora necesito solucionarlo y me produce
un error (Bitmap image is not valid). Utilizo Mysql y un campo LONGBLOB.

El error salta cuando realizo la asignacion al campo del dataset, el código es el siguiente:

Código Delphi [-]
procedure TdlgPersonal.acCargarFotoExecute(Sender: TObject);
var
  fs : TMemoryStream;
  imgJPG : TJpegImage;
begin
  if OpenPictureDialog1.Execute then
  begin
    imgJPG := TJpegImage.create;
    fs := TMemoryStream.Create;
    try
      imgJPG.LoadFromFile(OpenPictureDialog1.FileName);
      imgJPG.SaveToStream(fs);
      fs.Seek(0, soFromBeginning);
      try
        cxDBImage1.Picture.Assign(imgJPG);
        dmRPK03.cdsPersonaFoto.LoadFromStream(fs);
      finally
        fs.free;
      end;
    except
      on E : Exception do
      begin
        MessageDlg('Asegúrese de que la imagen seleccionada es de ' +
           ' tipo JPEG con formato correcto. ' + chr(13) + chr(13) +
           'El error concreto: ' + E.ClassName + ': ' +
           E.Message, mtError, [mbOK], 0);
      end;
    end;
  end;
end;

Gracias..