Comment charger une photo jpg sur un dbimage
coeurblanc1351
-
8 juin 2013 à 09:37
hadimsamir Messages postés 3 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 3 octobre 2013 - 17 août 2013 à 18:44
hadimsamir Messages postés 3 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 3 octobre 2013 - 17 août 2013 à 18:44
1 réponse
hadimsamir
Messages postés
3
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
3 octobre 2013
Modifié par hadimsamir le 17/08/2013 à 18:46
Modifié par hadimsamir le 17/08/2013 à 18:46
Bismi Allah Arrahmane Arrahime
--------
1-Il faut d'abord declarer jpeg dans la clause uses;
--------
2-Voici le code quand on doubleclique sur la dbimage:
procedure TForm1.DBImage1DblClick(Sender: TObject);
var
jpg:Tjpegimage;
begin
If Openpicturedialog1.Execute then
begin
jpg:= jpg:Tjpegimage.Create;
try
table1.Edit;
gif.LoadFromFile(Openpicturedialog1.FileName);
dbimage1.Picture.Bitmap.Assign(jpg);
table1.Post;
finally
jpg.Free;
end;
end;
end;
--------
NB:
C la meme chose pour l'extension gif, On declare gifimg;
et var gif:tgifimage.
--------
Bon courage;
--------
1-Il faut d'abord declarer jpeg dans la clause uses;
--------
2-Voici le code quand on doubleclique sur la dbimage:
procedure TForm1.DBImage1DblClick(Sender: TObject);
var
jpg:Tjpegimage;
begin
If Openpicturedialog1.Execute then
begin
jpg:= jpg:Tjpegimage.Create;
try
table1.Edit;
gif.LoadFromFile(Openpicturedialog1.FileName);
dbimage1.Picture.Bitmap.Assign(jpg);
table1.Post;
finally
jpg.Free;
end;
end;
end;
--------
NB:
C la meme chose pour l'extension gif, On declare gifimg;
et var gif:tgifimage.
--------
Bon courage;