Discussion :

[stfanny31]

après longue recherche j'ai enfin pu trouver le code qui permet d’enregistrer une image quelconque dans une base de donné et la lire dans un Timage sous delphi 5

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 TForm1.val2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
  begin
   Table1.Append;
   Table1.FieldValues['img']  :=OpenPictureDialog1.FileName;
   Table1.Post;
  end;
end;
 
procedure TForm1.ButtonChargementImageClick(Sender: TObject);
  begin
    Image1.Picture.LoadFromFile(Table1.FieldValues['img']);
  end;

si quelqu’un a des objection

[SergioMaster]

après longue recherche j'ai enfin pu trouver le code qui permet d’enregistrer une image quelconque dans une base de données et la lire dans un Timage sous delphi 5

si quelqu’un a des objections

Plusieurs :
1- ce n'est pas Lire une image quelconque mais avec Timage (D5) une image bmp,wmf voire jpg (en mettant la clause JPEG dans le uses pour cette dernière)
2- ce n'est pas une Image dans la base de données (Blob graphique )mais dont le chemin et le nom sont enregistrés dans un champ
3- c'est certainement pas après une longue recherche de mémoire il doit y avoir une 20aine de sujets au moins ainsi qu'un tutoriel