Discussion :

[Jean-Jacques Engels]

Ola,

Après avoir passé la journée à éplucher tous les forums (anglais et français), après avoir essayé toutes les solutions proposées, aucune de celles-ci n'arrivent à solutionner le stockage d'un jpeg dans un champ blob ains que sa récupération et son affichage dans un form.

Si vous avez une solution, je suis preneur. Merci de ne pas m'envoyer sur un lien qui prétend solutionner le problème, je les ai tous fait (y compris ceux de developpez), aucun ne tient la route.

A savourer, en ayant pris soin de prendre un whisky bien tassé pour ne pas exploser, les prétendues solutions du genre :

Code :

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

1
2
3
4
5
Try
  Voici ma solution : blabla...
Except
  Afficher : heu... ben non, ça ne fonctionne pas !
End

Authentique !



JJE

[Rayek]

Certifié et fonctionnel

J'ai écris cette QR à l'époque où j'ai eu besoin de mettre des documents de tout type dans une base de données et ca fonctionne très bien

[ShaiLeTroll]

Selon la Version de Delphi
Avant 200x - il faut convertir le Blob via l'objet TJPEGImage pour l'afficher dans un TImage
Après 200x - le TComposant TImage gère nativement le JPEG, on peut espérer que le TDBImage aussi ! A vérifier, l'ancienne méthode fonctionne aussi !

200x = 2007 ou 2009, je ne sais pas exactement

C'est un sujet largement débattu, et aussi qui a été taggé , c'est que cela fonctionne

As-tu testé dans un projet minimal, sans rien d'autres ?
Juste la connexion DB, Datasource, Query, et TIMage ? sans rien qui parasite ?

[ouiouioui]

moi je les enregistre comme sa:

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
Var
  MsImg: TMemoryStream;
Begin
      With IBQuery Do
      Begin
        Close;
        SQL.Text                        :=
          'INSERT INTO MY_COMPANY (IMG) VALUES (:Img)';
 
        // logo
        MsImg := TMemoryStream.Create;
        try
            //img is tbitmap
            If Assigned(IMG) Then
              IMG.SaveToStream(MsImg);
          MsImg.Seek(0, 0);
          If MsImg.Size > 0 Then
            ParamByName('Img').LoadFromStream(MsImg, FtBlob);
        finally
          msimg.Free;
        end;
 
        ExecSql;

la lecture en sens inverse:

Code :

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

1
2
3
4
5
6
            If FieldValues['IMG'] <> NULL Then
            Begin
              (FieldByName('IMG') As TBlobField).SaveToStream(MsImg);
              Msimg.Seek(0, 0);
              img.LoadFromStream(MsImg);
            End;

[Jean-Jacques Engels]

Hi ouiouioui,

Idem, ta solution fonctionne pour des fichiers BMP mais pas pour des JPEG. Voici le message d'erreur :

Exception EInvalidGraphic avec le message 'Image bitmap incorrecte'

Voici mon code (le programme plante sur la commande LoadFromStream) :

Code :

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

1
2
3
4
5
6
7
8
9
          ...
          Image:=TMemoryStream.Create;
          JPEG:=TJPEGImage.Create;
          JPEG.LoadFromFile(FichierJPEG);
          JPEG.SaveToStream(Image);
          if Image.Size>0 then begin
            (FieldByName('Logo') As TBlobField).LoadFromStream(Image);
          end;
          ...

JJE

[Jean-Jacques Engels]

Certifié et fonctionnel

J'ai écris cette QR à l'époque où j'ai eu besoin de mettre des documents de tout type dans une base de données et ca fonctionne très bien

Merci à tous pour vos réponses. Je vais tester vos suggestions.

Déjà une petite réponse pour Rayek : ta solution fonctionne pour des fichiers bmp mais pas pour des jpg. L'image bmp est bien sauvée dans le champs BLOB, mais elle refuse toutefois de s'afficher dans un TDBImage lorsqu'on se positionne sur l'enregistrement.



JJE

[ShaiLeTroll]

Version de Delphi ?
Pour le BMP, perso, cela fonctionne très bien, la preuve, le Projet de démo FishFactory livré depuis au moins depuis Delphi 3 en exemple !

D7 : J'insiste sur la Conversion avec TJPEGImage de l'unité jpeg.pas + TImage
D2009 : TDBImage théoriquement directement fonctionnel

[Jean-Jacques Engels]

Version de Delphi ?
Pour le BMP, perso, cela fonctionne très bien, la preuve, le Projet de démo FishFactory livré depuis au moins depuis Delphi 3 en exemple !

D7 : J'insiste sur la Conversion avec TJPEGImage de l'unité jpeg.pas + TImage
D2009 : TDBImage théoriquement directement fonctionnel

Hi ShaiLeTroll,

Delphi XE.

Effectivement, tout à l'air de fonctionner avec des BMP. Encore que, le TDBImage ne m'affiche rien lorsque je me repositionne sur l'enregistrement. Mais là, il faut que je regarde de plus près les propriétés du TDBImage. Je merde peut-être quelque part à ce niveau.



JJE

[Jean-Jacques Engels]

Hi,

J'ai trouvé une solution qui est vraiment simplicime :

Code :

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

1
2
3
4
5
6
7
8
9
...
ImageJPG:=TJPEGImage.Create;
ImageBMP:=TBitMap.Create;
 
ImageJPG.LoadFromFile(FichierJPG);
ImageBMP.Assign(ImageJPG);
 
FieldByName('Logo').Assign(ImageBMP);
...

Bon maintenant, reste à trouver pourquoi ce foutu TDBImage ne veut pas m'afficher mon logo !
Je vais tester dans un EXE séparé selon les conseils de ShaiLeTroll.



JJE