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;
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.