Работа с JPEG

[Artruman]

Подскажите как jpeg->bmp,то есть надо определить является ли файл jpeg,если да сделать bmp и записать в БД....

вот если bmp...

procedure TForm1.Button1Click(Sender: TObject);
begin
if RzOpenDialog1.Execute then
 begin
  ADOTable1.Edit;
  TBLOBField(ADOTable1.FieldByName('Picture')).LoadFromFile(RzOpenDialog1.FileName);
  AdoTAble1.Post;
 end else
 Exit;
end;

а если jpeg

[Neeter]

Вот сам не так давно писал, blob полям можно и jpeg присваивать:

procedure TForm1.Button1Click(Sender: TObject);
var
 C: TClipboard;
 img: TImage;
begin
 if OpenPictureDialog1.Execute then
 begin
  C := TClipboard.Create;
  try
   img := TImage.Create(Self);
   img.Picture.LoadFromFile(OpenPictureDialog1.FileName);
   if (ExtractFileExt(OpenPictureDialog1.FileName) = '.jpg') or
     (ExtractFileExt(OpenPictureDialog1.FileName) = '.jpeg') then
    C.Assign(img.Picture.Graphic);
   if (ExtractFileExt(OpenPictureDialog1.FileName) = '.bmp') or
     (ExtractFileExt(OpenPictureDialog1.FileName) = '.png') then   //PNG поддерживается только в delphi 2009, если у вас версия меньше, то удаляйте
    C.Assign(img.Picture.Bitmap);
   if (ExtractFileExt(OpenPictureDialog1.FileName) = '.wmf') or
     (ExtractFileExt(OpenPictureDialog1.FileName) = '.emf') then
    C.Assign(img.Picture.Metafile);

   DBImage1.PasteFromClipboard;
  finally
   C.Free;
  end;
 end;
end;

Только иконки не поддерживаются.

[Artruman]

Спасибо за код,хоть я уже сделал через MyDBImage.