bonjour

je cherche à stocker des images jpeg dans une bse interbase pour les relire ensuite bien sur.

le stockage est sans problème :
------------------------------------------------------------------
jpg:=TjpegImage.create;
jpg.loadfromfile('dscn0006.jpg');
pic:=TBitmap.create;
pic.assign(jpg);

with ibtable1 do begin
open;
insert;
Ibtable1Loc_id.asinteger:=strtointDef(edit1.text,0);
Ibtable1Loc_ima.assign(pic);
post;
close;
end;
------------------------------------------------------------------

Mais pour la relecture ça se gâte. J'y parviens en faisant d'abord un savetofile puis en relisant le fichier mais c'est un peu lourd.

En faisant cela
------------------------------------------------------------------
ms:=TMemoryStream.create;
jpg:=TJpegImage.create;

with ibtable1 do begin
open;
locate('LOC_ID',strtointDef(edit1.text,0),[]);
IbTable1Loc_Ima.SaveToStream(ms);
close;
end;

jpg.LoadFromStream(ms);
Image1.picture.bitmap.Assign(jpg);
------------------------------------------------------------------
J'obtiens une "erreur jpeg #41" sur la dernière ligne

Cette erreur est-elle connue de quelqu'un ?


frantzgac