louiwahl
Messages postés103Date d'inscriptionvendredi 20 février 2004StatutMembreDernière intervention16 mai 2019
-
Modifié le 17 mai 2019 à 22:26
louiwahl
Messages postés103Date d'inscriptionvendredi 20 février 2004StatutMembreDernière intervention16 mai 2019
-
16 mai 2019 à 20:52
Bonsoir.
Voila je me fais un petit programme de base de donnée et
J' aimerais insérer une image Jpeg dans ma base de donnée.
Mais je n'arrive qu'a charger l'image dans le DBImage.
Je vous donne une copie du programme.
louiwahl
Messages postés103Date d'inscriptionvendredi 20 février 2004StatutMembreDernière intervention16 mai 2019 8 mars 2018 à 22:20
Bon Ben Salut tout le monde?????????? est-ce qu'il y a du monde???
et merci pour vos reponses j'ai adorer votre site mais bon ben temps pis...............
papyvore
Messages postés223Date d'inscriptionsamedi 15 novembre 2003StatutMembreDernière intervention16 décembre 202115 Modifié le 17 mai 2019 à 22:27
salut
voilà ce que j'ai qui marche (avec ado) essai voir si ça te convient
procedure TFormEspecesBase.DBImage1DblClick(Sender: TObject);
var
J: TJpegImage;
B: TBitmap;
begin
J := TJpegImage.Create;
B := TBitmap.Create;
UDataModul.DataModule1.ADOTableEspeceBase.Edit;
OpenPictureDialog1.InitialDir := ExtractFilePath(Application.ExeName)
+ 'Images';
if OpenPictureDialog1.Execute then
begin
if ExtractFileExt(UpperCase(OpenPictureDialog1.FileName)) = '.BMP' then
begin
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
UDataModul.DataModule1.ADOTableEspeceBase.Post;
end;
if ExtractFileExt(UpperCase(OpenPictureDialog1.FileName)) = '.JPG' then
begin
J.LoadFromFile(OpenPictureDialog1.FileName);
B := TBitmap.Create;
B.Assign(J);
DBImage1.Picture.Bitmap := B;
end;
end;
B.Free;
J.Free;
end;