[Delphi XE5] FdQuery Blob vide

**alheuredudejeuner** · 23/02/2018, 06h53

Bonjour,

Impossible de remonter un blob (PHOTO BLOB SEGMENT SIZE 4096) image dans mon fdquery sur une base firebird 2.5

le code:

Code :

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

BlobStream := FDQuery1.CreateBlobStream(FDQuery1.FieldByName('PHOTO'),TBlobStreamMode.bmRead);

ne me remonte qu'un Stream vide.

Avec les UIB, je n'ai pas ce problème. Je me rappelle avoir joué sur le fetch.

Quel est la bonne pratique ?

Cordialement

**SergioMaster** · 23/02/2018, 09h08

Bonjour,

il faudrait que je revérifie mais voici un code qui semblait fonctionner (ici gabarit était un fastreport .frx mais il y a peu à changer pour une image )

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
18
19
20
21
 
var AStream : TStream;
    ABlob : TBlobField;
 begin
 with fdQUnGabarit do
  begin
     ParamByName('NOM').AsString:=Nom;
     Active:=True;
     if not FieldByName('GABARIT').IsNull then
      begin
        ABlob:=FieldByName('GABARIT') as TBlobField;
        AStream:=TStream.Create;
        try
          AStream:=CreateBlobStream(ABlob,bmRead);
          Gabarit.LoadFromStream(AStream);                 // image.picture.loadfromstream(aStream) ? 
        finally
          AStream.Free;
        end;
      end;
     Active:=False;
  end;