Discussion :

[rangdalf]

Bonjour,

J'ai une base de données firebird et je souhaite ajouter un champ image.
Pour des raisons de formats supportés j'utilise GraphicEX.
Par contre je n'arrive pas a charger et a afficher un image que j'ai stockées dans la base en utilisant un MemoryStream ou meme un stream.


Quelqu'un a deja fait ca?
Un bout de code serait le bienvenue.

Ludo

[alexmorel]

Pour insere les images

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
With requete_query do
  Begin
     Active:=False;
     Sql.clear;
     Sql.Add('Insert into ta_table(id_ta_table, images) ' 
              +' Values(3, :mon_image));
                     {On lui donne le chemin de l'image a charger dans la base}
      Parameters.ParaByName('mon_image').LoadFromFile(le_chemin, ftBlob);
       ExecSql;
   End;

Et pour la recupere

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 MS:TMemoryStream;
Begin
MS:=TMemoryStream.Create;
 
With Query_recupere Do
  Begin
      Active:=false;
      Sql.Clear;
      SQl.Add('Select image from ta_table where id_ta_table=3');
      ExecSql;
      Active:=True
   End;
Try
              {On auve dans leStream}
  TBlobField(Query_recupere .FieldByName('image')).saveToStream(MS);
               {On se déplace au début du Stream}   
  MS.Position:=0;
                 {On affiche l'image}
  DBImage.Picture.Bitmap.LoadFromStream(MS);
Finally
  MS.Free;   {On libere la memoire du Stream}
End;

Voilà avec ça sa fonctionne ! Mais sans tes composant GraphicEx

Done moi la différence !

[rangdalf]

Salut,

Avec ton code ca fonctionne tres bien.
J ai trouve la solution tout seul.

J ai rajoute aussi try catch au cas ou mon image est une jpg.
Il semble que dans ce cas j ai une exception car picture.bitmap ne reconnait pas le jpg

Ludo

[alexmorel]

j'ai résolue le problème y a un moment et je l'ai mis en ligne

http://www.developpez.net/forums/vie...087&highlight=