Discussion :

[Andry]

Bonjour à tous.

J'ai une table contenant les informations et le logo d'une société sous Firebird.
Le champs Logo est de type blob.
Pour tester, j'ai inserer l'image dans le champs Logo avec Ibexpert.
Si je regarde le contenue du Logo, sous Ibexpert, je vosi bien mon image.
Le problème réside sur l'utilisation de ce logo sous QuickReport V4.05 avec le composant QRDBImage, j'ai une erreur :

Le projet a provoqué une classe d'exception EinvalidGraphic avec le message "image bitmap incorrecte".
J'ai déjà rajouté l'unité JPEG dans la section Uses de la fiche.

COmment dois proceder.

Merci

[JustMe]

C'est vrais les compoants orientés données comme DBImage ou QRDBImage ne prennent pas en charge cetains formats d'images. Donc soit tu cherche un composant qui gère ça à ta place et je pense que c'est en free soit tu le gère toi même avec un stream que tu rempli avec le blob de ton champs ensuite tu le met dans un QRImage pas dans un QRDBImage.

[delaio]

je sais que la discussion date de 2005 mais cette solution pourra peut être apportée des réponses à d'autres personnes.

voici une approche qui permet de mettre dans un champs d'un clientdataset une image jpeg chargée à partir d'un enregistrement fait dans un champs image d'une table sql server 2000.

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
22
23
24
25
26
27
28
29
30
 
      (* _aq : adoquery
          _ms : tmemorystream
          _jpg : tjpegimage
          _im : timage
          _gf : tgraphicfield d'un clientdataset (blobtype ftgraphic)
      *)
 
      {creation}
      image_ms := TMemoryStream.Create;
      image_jpg := TJPEGImage.Create;
      image_im := TImage.Create(Application);
      {enregistrement de l'image de ma base sql dans un memorystream}
      TBlobField(requete_aq.FieldByName('mon_image')).SaveToStream(image_ms);
      {placement au debut du stream}
      image_ms.Position := 0;
      {enregistrement du memorystream dans un jpeg}
      image_jpg.LoadFromStream(image_ms);
      {enregistrement du jpeg dans un timage bitmap}
      image_im.Picture.Bitmap.Assign(image_jpg);
      {on vide le memorystream}
      image_ms.Clear;
      {enregistrement de mon timage bitmap dans le memorystream}
      image_im.Picture.Bitmap.SaveToStream(image_ms);
      {enregistrement du memorystream dans le clientdataset}
      image_gf.LoadFromStream(image_ms);
      {liberation}
      image_ms.Free;
      image_jpg.Free;
      image_im.Free;

il suffit ensuite de lier le qrdbimage au champs image_gf du clientdataset.

si quelqu'un connait une méthode plus optimisée, il ne faut pas hésiter...

[anapurna]

Salut

si tu utilise l'unite GraphicEx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  GraphicClass := FileFormatList.GraphicFromExtension(Extension);
   if GraphicClass = nil then
        raise EInvalidGraphic.CreateFmt('UnknownExtension', [Extension]);
 
   Image1.Picture.Graphic := GraphicClass.Create;
   try
     stream := QueryF_BLOB.DataSet.CreateBlobStream(QueryF_BLOB, bmRead);
      Image1.Picture.Graphic.LoadFromStream(Stream);
      stream.Free;
    except
       Image1.Picture.Graphic.Free;
     raise;
end;

@+ Phil