Gravar Jpg E Bmp Em Database Sem Aver Conflito...

Código


Declare as unit
(Jpeg, Clipbrd)



procedure TForm1.Table1AfterInsert(DataSet: TDataSet);
var

bmp: TBitmapImage;
jpg: TJPEGImage;

begin
if OpenDialog1.Execute then

Begin
if
DBImage1.Picture.Graphic is (TBitmap) then
DBImage1.Picture.LoadFromFile(opendialog1.filename);

if
DBImage1.Picture.Graphic is (TJPEGImage) then

begin

jpg := TJpegImage.Create;

jpg.LoadFromFile(OpenDialog1.FileName);

clipboard.Assign(jpg);

DBImage1.PasteFromClipboard;

jpg.Free;

end;
end;
end;