1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

Comment charger une photo jpg sur un dbimage

Signaler
-
Messages postés
3
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
3 octobre 2013
 -
salut

Mon dbimage ne charge que des bmp malgre la proprieté de Openpicturedialog est all.

1 réponse

Réponse 1 / 1
Messages postés
3
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
3 octobre 2013
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;
Répondre Posez votre question