Blob et GraphicEX

Version imprimable

18/02/2004, 09h05
rangdalf

Blob et GraphicEX

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

Tiens

:) Pour insere les images

Code:

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;

:arrow: Et pour la recupere

Code:

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 !

27/02/2004, 13h46
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
27/02/2004, 19h06
alexmorel

tiens

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=