Bonjour,

J'enregistre correctement une Bitmap dans un champ Blob déclaré dans la table : 'MON_IMAGE BLOB NOT NULL'
Comme il s'agit d'une grosse image (30Mo) je peux vérifier l'augmentation de la taille de la BD elle est Ok
A la lecture j'ai un problème :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
 (qry.FieldByName('MON_IMAGE') as tBlobField).SaveToStream(Stream);
 StSize:= Stream.size;// retourne la taille correcte de la Bitmap 30Mo
 BMP.LoadFromStream(Stream);
 BtWidth:= BMP.Width;// BtWidth = 0 !!!!!!!!!
Remarques :
- Ouverture correcte de l'IBQuery qry.RecordCount = 1
- stream est déclarée TMemoryStream et créée
- BMP (TBitmap) correctement créée pixelFormat = pf24bit

Que se passe-t'il ?