[Firebird] Lire un champ BLOB en utilisant FireDAC

salut
j'ai un champ de type Blob dans une base de données

comment Lire l'image stocker dans le champ BLOB en utilisant FireDAC
j' ai essai le code suivant et ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure Tform1.SpeedButton1Click(Sender: TObject); begin with FDQuery1 do begin Close; SQL.Clear; SQL.Add('Select PHOTOS FROM clients where n_client=:client'); ParamByName('client').value:=edit1.text; Open; end;   dbimage1.Stretch:=true; //Les deux lignes suivantes ont été essayées individuellement DBImage1.Picture.LoadFromFile(FDQuery1.Fields[0].AsString); // L'exécution réussit mais ne fonctionne pas, si en clique sur SpeedButton1 Un message apparaît: (extention de fchier image inconnue)   DBImage1.Picture.Bitmap.Assign(FDQuery1.Fields[0].AsString); // ne fonctionne pas Un message apparaît: E2010 Types incompatibles : 'TPersistent' et 'string'   label1.caption:='voila l''image de client N°'+edit1.text; end;

---

SGBD utilisé :firebird 2.5

Si je comprends ce que vous écrivez, PHOTOS est un champ BLOB contenant un fichier image.
Mais si je comprends bien vos essais, vous tâchez de l'utiliser comme une chaîne (AsString) contenant le chemin vers un fichier image. Si c'est bien le cas, le DBImage ne semble pas reconnaître son extension, et ce n'est pas un problème de BDD mais de TImage.
Peut-être faudrait-il voir en debug ce que vaut le champ en AsString.
Si c'est bien l'image elle-même qui est stockée dans un BLOB, pê faut-il passer par un stream intermédiaire ?

Citation:

---

Envoyé par tourlourou

Si je comprends ce que vous écrivez, PHOTOS est un champ BLOB contenant un fichier image.

---

oui et l'image elle-même qui est stockée dans un BLOB

Je n'ai pas utilisé un chemin vers un fichier image
Je ne sais pas comment utiliser un stream intermédiaire

j 'ai stocker les photos des clients dans le champs photos avec le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10

with FDQuery2 do begin Close; SQL.Clear; SQL.Text:='INSERT INTO clients (PHOTOS) VALUES (:PHOTOSparm)'; ParamByName('PHOTOSparm').Assign(DBImage1.Picture.Bitmap); ExecSQL; end; end;

---

Si c'est bien le Bitmap correspondant à l'image de format quelconque en entrée qui a été stocké, ce type de code trouvé sur StackOverFlow devrait le faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var ms:tmemorystream; Begin ms:=tmemorystream.create; ms.position:=0; with yourfield as tblobfield do savetostream(ms); ms.position:=0; image1.picture.bitmap.loadfromstream(ms); freeandnil(ms); end;

---

Mais il y a sûrement moyen de le faire plus directement (composant DBImage, que je ne pratique pas...)

MERCI
Après avoir cherché
Ce code fonctionne bien avec moi

Code:

---

DBImage1.Picture.Assign(TBlobField(FDQuery2.FieldByName('PHOTOS')));

---