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 :
Remarques :
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 !!!!!!!!!
- 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 ?
Partager