[D5][SQL Server] Conserver des images dans la BDD

Version imprimable

16/02/2004, 12h10
FONKOU

[D5][SQL Server] Conserver des images dans la BDD

Bonjour,

J'utilise Delphi 5 avec SQL Server

Mon problème est le suivant :

J'ai une base de données sous SQL Server et le programme est écrit avec Delphi 5. Nous voulons conserver dans la table CLIENTS la photo du client et sa signature. Alors je sais qu'il va falloir scanner la photo et la signature, ajouter deux champs de type <image> à la table CLIENTS. Mais je ne sais pas comment faire pour garder les deux images dans la base de données SQL Server.

Je vous remercie d'avance
16/02/2004, 15h14
Harry

Je n'utilise pas SQL serveur mais par prog tu dois pouvoir remplir ton champ en fesant : nomtablenomchamp.LoadFromFile(endroit ou est enregistré la photo);
exemple :

Code:

dm1.ClientsPhoto1.LoadFromFile(C:\photos\Clientpernaud.jpg);
16/02/2004, 16h47
FONKOU

Gérer les images sous Delphi

Merci Harry

Vous m'avez réponndu promptemennt !

Votre réponse laisse entendre que les images ne sont pas stockées sous SQL Server mais dans un fichier .jpg quelque part sur disque. Et puis, à quel moment doit-on utiliser l'instruction LoadfromFile ? A l'affichage de la fiche ?

Ma question aurait pu être : Comment utiliser le type champ image de SQL Server ?

Merci
16/02/2004, 18h00
Harry

En fait l'exemple donne la marche à suivre pour transférer la photo du fichier .jpg (ou bmp) vers la base.
Après ca dépend de la bdd et je ne connais pas bien SQL Server.
17/02/2004, 18h10
FONKOU

Toujours sur la gestion des images

Merci Harry

Vous avez parfaitement raison. J'ai essayé votre exemple et cela marche. Mais j'ai encore deux questions à poser concernant cet exemple:

1 - Premièrement seules les images .bmp passent. Les .jpg me renvoient une erreur

2 - Je n'arrive pas à faite Query1.Post pour certaines images. J'ai le message d'erreur :

<< Longueur de BLOB incorrecte>> Après ce message l'image est quand même affichée dans le TDBImage mais n'a pas été stockée dans la base des donnnées.

Merci
18/02/2004, 09h30
FONKOU

Gérer les images souus Delphi 5.0

Je rappelle que j'ai Delphi 5.0

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 !

Citation:

Envoyé par alexmorel

:) 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 !

Effectivement ; et franchement merci pour ce bout de code.
ça m'a permis d'inserer mes images et de les récupérer de la base de données.
Mon champs 'image' est de type <image> au niveau de la table ou j'insere l'image (base de données Sql server 2000).
:yaisse2:

SVP, j'ai le même besoin, j'utilise une table Access, connexion en ADO.
Pour votre info, la table Client se trouve sur un Data Module avec le Nom : ADOTable_Clients
TABLE NAME : CLIENTS
La clé primaire de la table c'est : NCIN
L'attribut des photos (FieldName) : PhotoduClient
Donc d'après la solution d'alexmorel, j'ajoute un ADOQuery nommé : ADOQuery_recupere
Et un bouton avec ce code pour charger l'image ???
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 procedure TForm_AjtClient.Button1Click(Sender: TObject); Var MS:TMemoryStream; Begin MS:=TMemoryStream.Create; With ADOQuery_recupere Do Begin Active:=false; Sql.Clear; SQl.Add('Select PhotoduClient from CLIENTS where NCIN=3'); ExecSql; Active:=True End; Try {On auve dans leStream} TBlobField(ADOQuery_recupere .FieldByName('PhotoduClient')).saveToStream(MS); {On se déplace au début du Stream} MS.Position:=0; {On affiche l'image} DBImage_PhotoClient.Picture.Bitmap.LoadFromStream(MS); Finally MS.Free; {On libere la memoire du Stream} End; end;
Quand je cliques dessus j'aurai cet erreur :

Le projet a provoqué une classe dexception EOleException avec le message 'Le paramètre id_CLIENTS n'a pas de valeur par défaut'.

C'est quoi la solution SVP.