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.
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...............
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;