Discussion :

[FONKOU]

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

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

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

dm1.ClientsPhoto1.LoadFromFile(C:\photos\Clientpernaud.jpg);

[FONKOU]

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

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

[FONKOU]

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

[FONKOU]

Je rappelle que j'ai Delphi 5.0

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

[zalesmbodj]

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 !

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

[teZone]

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 :

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