Discussion :

[typhon_186]

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.

[SergioMaster]

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 :

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
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 Lecture :

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

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 Ecriture :

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

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

[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)


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)

[typhon_186]

Bonsoir et merci pour vos réponse.

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 :

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
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 Lecture :

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

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 Ecriture :

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

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.

[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 !

[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

[ShaiLeTroll]

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 :

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

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;

[SergioMaster]

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

[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.

[krzysiu]

Code :

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

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

[ShaiLeTroll]

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

?