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