Données de type IMAGE dans Delphi et SQLSever

Version imprimable

13/09/2011, 19h03
typhon_186

Données de type IMAGE dans Delphi et SQLSever

Bonsoir tout le monde,
Bon voila je souhaiterai apprendre à manipuler des données de type image avec le SGBD "SqlServer 2005" et les charger dans une application "Delphi 7".
J'ai beaucoup chercher dans les forums sans rien trouver.

Merci beaucoup.
bonsoir.

Citation:

Envoyé par typhon_186

J'ai beaucoup chercher dans les forums sans rien trouver.

Une image n'est qu'un blob donc FAQ
ceci étant ce qui fonctionne pour un fichier de type BMP ne fonctionne pas pour d'autres types d'image (dommage d'ailleurs que l'équipe delphi n'ai rien fait a ce sujet depuis le temps) .

après avoir chercher (et trouver) sur le net voici ma solution (pas forcément la meilleure) Avantage : je peux charger un bmp,jpeg,png ou un gif via un LoadFromFile dans le TImage , l'image sera stockée dans le format original

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
uses ... Graphic, GIFImg, Jpeg,pngimage, DB,
 
// afficher
procedure DBImage(I : TImage ; D: TDataset; F : TField);
var
m : TStream;
FirstBytes: AnsiString;
begin
if F.IsNull then Exit;
m := D.CreateBlobStream(F,bmRead);
if m <> nil then
 begin
 try
  SetLength(FirstBytes, 8);
  m.Read(FirstBytes[1], 8);
  if Copy(FirstBytes, 1, 2) = 'BM' then I.Picture.Graphic := TBitmap.Create
  else
   if FirstBytes = #137'PNG'#13#10#26#10
      then I.Picture.Graphic := TPngImage.Create
   else
   if Copy(FirstBytes, 1, 3) = 'GIF'
      then I.Picture.Graphic := TGIFImage.Create
   else if Copy(FirstBytes, 1, 2) = #$FF#$D8
        then I.Picture.Graphic := TJPEGImage.Create;
  try
   m.Seek(0,0);
   I.Picture.Graphic.LoadFromStream(m);
  except
  end;
 finally
   m.Free;
 end;
 end;
end;
 
// écrire
procedure Image2DB(I : TImage ; D: TDataset; F : TField);
var
m : TStream;
begin
m := D.CreateBlobStream(F,bmRead);
if m <> nil then
 begin
 try
   if not i.Picture.Graphic.Empty  then i.Picture.Graphic.SaveToStream(m);
   if not i.Picture.Bitmap.Empty   then i.Picture.Bitmap.SaveToStream(m);
   TBlobField(F).LoadFromStream(m);
 finally
   m.Free;
 end;
 end;
end;

utilisation

Code:

1
2
3
4
5
6
7
// Dans un évènement afterscroll par exemple
// LHImage = TImage pas TDBImage

//ZMagasin = TQuery ou TTable ou .... 
 
DBImage(LHImage,ZMagasin,ZMagasin.FieldByName('LOGOHAUT'));

Code:

1
2
3
 
// dans un évènement beforePost par exemple 
    Image2DB(LHImage,ZMagasin,ZMagasin.FieldByName('LOGOHAUT'));

14/09/2011, 10h51
ShaiLeTroll

As-tu commencé par le Basique ?

ADOConnexion
ADOQuery - SELECT * FROM TableAvecImage
DataSource
DBGrid
TDBImage - connecté que le Champ Image

Si c'est un BMP, cela fonctionne tout seul sans aucun effort
Vérifie que ton Champ est bien un TBlobField (voir si TGraphicField est applicable)

:faq:
Comment insérer et récupérer un fichier dans un champ de type BLOB ?
Une fois que tu as un Stream comme le montre SergioMaster, tu peux tout faire, tu peux même zip le contenu (ce que je fais toujours pour stocker PDF, Doc, XLS, ou même XML)

Bonsoir et merci pour vos réponse.
Citation:
Envoyé par SergioMaster
Une image n'est qu'un blob donc FAQ
ceci étant ce qui fonctionne pour un fichier de type BMP ne fonctionne pas pour d'autres types d'image (dommage d'ailleurs que l'équipe delphi n'ai rien fait a ce sujet depuis le temps) .

après avoir chercher (et trouver) sur le net voici ma solution (pas forcément la meilleure) Avantage : je peux charger un bmp,jpeg,png ou un gif via un LoadFromFile dans le TImage , l'image sera stockée dans le format original
Code:

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 uses ... Graphic, GIFImg, Jpeg,pngimage, DB, // afficher procedure DBImage(I : TImage ; D: TDataset; F : TField); var m : TStream; FirstBytes: AnsiString; begin if F.IsNull then Exit; m := D.CreateBlobStream(F,bmRead); if m <> nil then begin try SetLength(FirstBytes, 8); m.Read(FirstBytes[1], 8); if Copy(FirstBytes, 1, 2) = 'BM' then I.Picture.Graphic := TBitmap.Create else if FirstBytes = #137'PNG'#13#10#26#10 then I.Picture.Graphic := TPngImage.Create else if Copy(FirstBytes, 1, 3) = 'GIF' then I.Picture.Graphic := TGIFImage.Create else if Copy(FirstBytes, 1, 2) = #$FF#$D8 then I.Picture.Graphic := TJPEGImage.Create; try m.Seek(0,0); I.Picture.Graphic.LoadFromStream(m); except end; finally m.Free; end; end; end; // écrire procedure Image2DB(I : TImage ; D: TDataset; F : TField); var m : TStream; begin m := D.CreateBlobStream(F,bmRead); if m <> nil then begin try if not i.Picture.Graphic.Empty then i.Picture.Graphic.SaveToStream(m); if not i.Picture.Bitmap.Empty then i.Picture.Bitmap.SaveToStream(m); TBlobField(F).LoadFromStream(m); finally m.Free; end; end; end;
utilisation
Code:

1 2 3 4 5 6 7 // Dans un évènement afterscroll par exemple // LHImage = TImage pas TDBImage //ZMagasin = TQuery ou TTable ou .... DBImage(LHImage,ZMagasin,ZMagasin.FieldByName('LOGOHAUT'));
Code:

1 2 3 // dans un évènement beforePost par exemple Image2DB(LHImage,ZMagasin,ZMagasin.FieldByName('LOGOHAUT'));
Sergio, ton code n'a pas voulu marcher, delpgi me di que
GIFImg.dcu, Jpeg.dcu,pngimage.dcu non trouvé

@LeTroll: Justement, je n'ai jamais travaillé avec ce BLOB, je ne sais meme pas m'en servir, d'ailleur je sais pas si c'est un composant ou autre chose.

14/09/2011, 19h15
ShaiLeTroll

Comme je le disais commence par les choses simples !
Regarde la Démo FishFact (c'est exactement la même chose en InterBase), c'est un basique
Je peux te lire, j'ai commencé par faire le tutoriel FishFact de Delphi 4 avec BDE\Paradox, le TDBImage et le chargement d'image, j'ai du le faire au bout de quelques heures (c'était la 1ere fois que j'utilisais Delphi !)

As-tu lu la FAQ - Comment insérer et récupérer un fichier dans un champ de type BLOB ?
Couplé avec un TOpenDialog (ou TOpenPictureDialog), tu pourras facilement modifier ta table d'image !
Passe par la propriété Field du TDBImage, tu transype celui-ci en TBlobField pour utiliser LoadFromFile comme dans la FAQ !

Pour Delphi 7, commence par le Bitmap simple, le code fourni par SergioMaster c'est au minimum du 2010 ou XE !
14/09/2011, 19h59
typhon_186

Salut,
Merci ShaiLeTroll pour ta réponse, j'ai pu faire l'insertion, mais pour l'affichage dans un composant DBImage, je n'y arrive toujours pas

merci bcp

Ton DBImage est bien connecté sur le DataSource ?
Tu as bien renseigné DataField avec le nom du champ ?

Si ton image a été inséré c'est que c'est bien un TBlobField, en théorie TDBImage devrait l'afficher, lui faut-il un TGraphicField ?

Sinon, tu peux le faire avec un simple TImage en allégant le code de SergioMaster
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure LoadDBImage(I : TImage ; D: TDataset; F : TField); var m : TStream; begin if F.IsNull then Exit; m := D.CreateBlobStream(F,bmRead); if m <> nil then try I.Picture.Bitmap.LoadFromStream(m); finally m.Free; end; end;

15/09/2011, 11h14
SergioMaster

Citation:

GIFImg.dcu, Jpeg.dcu,pngimage.dcu non trouvé

Delphi7 n'a peut être pas ces unités

1) jpeg est peut être plutôt connue comme jpg
2) png delphi 7 ne le connais pas c'est sur , sous D7 il faudra faire une recherche
3) pour les formats gif aucune idée

Le code était pour D2006 +
comme le suggère Shai allèges le code pour n'inclure que les formats images utilisés . Je suis absolument sur que le jpg est supporté , sous D7 j'avais également trouvé une biblio/unité pour les png
15/09/2011, 11h53
Linkin

Autrement sous delphi 7 on peut utiliser la bibliothèque GraphicEx
http://delphi.developpez.com/freewar...ismeMultimedia

Elle permet de gérer pas mal de formats d'image.

Citation:
Code:

1 2 3 4 5 6 7 8 9 procedure LoadDBImage(I : TImage ; D: TDataset; F : TField); var m : TStream; begin ........ ......... m.Free; end; end;
Merci ShaiLeTroll, ça m'as été très utile :ccool:

12/11/2012, 11h24
ShaiLeTroll

Mais de rien, j'ai fourni la même réponse ce matin : Afficher un champs BLOB dans TImage en C++Builder

:plusser: ? :oops: :roll: :P