Discussion :

[Nono23]

Bonjour tout le monde,

Je possède une base de données SQLite, liée à Delphi via un ODBC, et dans laquelle des images bitmap sont stockées.

J'aimerais récupérer ces images sous forme de tableau de byte dans Delphi pour pouvoir par la suite des enregistrer dans un document XML.

Je rencontre un problème lors de la lecture des données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Type
    TAOF = Array Of Byte;
 
Var
   ByteArr : TAOF;
   BytesImage : TBytesField;
 
...
 
//Requête sur wwQuery1 : SELECT BLOBIMAGE FROM TEST
 
     wwQuery1.First;
 
     BytesImage:=wwQuery1.FieldByName('BLOBIMAGE') As TBytesField;
     SetLength(ByteArr,BytesImage.DataSize);
     BytesImage.GetData(ByteArr);

La propriété BytesImage.DataSize retourne 128 bytes alors que le bitmap chargé dans le champ BLOBIMAGE a une taille d'environ 2Ko.

Comment cela se fait-il? Comment puis-je charger la totalité du champ bytes?

J'ai pensé à une sorte de compression au moment du stockage de l'image dans SQLite mais comme dans Delphi, l'image apparaît au format Bytes, comment décompresser le tout?

Merci d'avance

[ShaiLeTroll]

Tu dois avoir des limitations par défaut sur la longueur d'un champ BLOB avec SQLite, surement encore une histoire de paramètrage ODBC
Compare DataSize et Size, pour un champ BLOB, c'est censé être pareil

Pour le Fichier XML, utilise EncdDecd.EncodeStream, cela convertira ton BLOB BitMap sous la forme d'une chaine Base64 qui sera mieux supporté par XML qu'un binaire Brut, cela augmente parcontre la taille par 4

Perso, lorsque j'utilise du BLOB, je zippe tout en level 9 !

Faudrait mieux avoir un TBlobField

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
TBlobField(Data.FieldByName('...')).SaveToStream(Stream);
EncdDecd.EncodeStream(Stream, StreamText);
Node.Value := StreamText.DataString;

[Nono23]

Re !

encore une fois merci de ta réponse.

J'ai vérifier DataSize et Size et ils sont les deux à 128 octets. Je n'ai rien du côté de la configuration de mon ODBC concernant les tailles des BLOB.

Bon j'ai laissé tombé l'ODBC pour un moment et continue mes tests avec UNIDac qui me pose moins de problèmes (Un champs BLOB est lu comme BLOB et non comme BYTES avec l'ODBC).
J'ai essayé ta solution avec les stream.

Le code est exécuter sans erreur mais comme valeur pour mon image dans le fichier XML, j'ai une chaîne vide, alors que j'ai bien une image chargée dans le champs (En tout cas, sqliteadmin m'en trouve une)

En plus, UNIDac me retourne des tableaux d'environ 2000 bytes, ce qui correspond aux 2ko de mon image

[ShaiLeTroll]

Joue avec Seek pour rembobiner le Stream avant Encode