[Delphi XE5] FdQuery Blob vide

Version imprimable

23/02/2018, 06h53
alheuredudejeuner

[Delphi XE5] FdQuery Blob vide

Bonjour,

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

le code:

Code:

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

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:

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;

24/02/2018, 07h08
alheuredudejeuner

oups ...

Bonjour

Merci Sergio,
Ta réponse m'a aidé.
Le test en debug

Code:

FieldByName('PHOTO').IsNull

me renvoyait true.

Je n'était pas sur la bonne base.

Cordialement