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
si quelqu’un a des objection
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;
Partager