Discussion :

[alheuredudejeuner]

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 :

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

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

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

Code :

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

 UIBdbprintTransporteur.ReadBlob('LOGO', Stream);

pour le lire dans un client dataset

Code :

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

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

[alheuredudejeuner]

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 :

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

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