Delphi XE5 UIB vers Firedac blob image

Bonjour,

Je converti une appli utilisant les UIB en une appli utilisant Firedac, pour la préparer pour Berlin.

J'ai un problème avec la lecture d'un blob sur une base de données Firebird 2.5

Code:

---

Stream := FDQprintTransporteur.CreateBlobStream(FDQprintTransporteur.FieldByName('LOGO'), bmRead);

---

me remonte (), j'en conclu que mon Stream est vide.
la fonction uib qui fonctionne

Code:

---

UIBdbprintTransporteur.ReadBlob('LOGO', Stream);

---

pour le lire dans un client dataset

Code:

---

TBlobField(cdsSociete.FieldByName('LOGO')).LoadFromStream(Stream);

---

ca plante car mon Stream est vide
avec UIB c'était un tMemorySream, avec Firedac c'est un Tstream.

Une idée sur ce qui manque ?

crldt

Bonjour,
j'ai relu l'exemple fourni à l'installation de Delphi : C:\Users\Public\Documents\RAD Studio\12.0\Samples\Delphi\Database\FireDAC\Samples\Comp Layer\TFDQuery\Blobs

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var Stream : TStream; oFld: TBlobField; . . . Stream:=TMemoryStream.Create; . . . // Sauvegarde du logo de la base dans un Stream oFld := TBlobField(FDQprintTransporteur.FieldByName('LOGO')); stream.Seek(0,0); oFld.SaveToStream(stream); //Lecture du logo dans un fdmemtable ofld:= TBlobField(FDMemSociete.FieldByName('LOGO')); oFld.LoadFromStream(stream);// ca fonctionne sans stream.Seek(0,0); c'est étrange . . .

---

Ca fonctionne :)