Buscar por:

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;

( ae  galera to comesando agora    no delphi akele  que  puder ne  dar uma  mão  manda  seu  e-mail  p/  Ripperdom@yahoo.com.br )  Vlw