Сохранения картинок в БД. Ole.

[soccer]

Нужно чтобы в базе данных сохранялся рисунок, вставленный через OpenPictureDialog.
Поставил в БД компонент OLE. Рисунок вставляется, однако не хочет сохраняться.

[Neeter]

Вот пример:

procedure TfrmFilms.MOpenPictureClick(Sender: TObject);
var
 C: TClipboard;
 img: TImage;
begin
 if sOpenPictureDialog1.Execute then
 begin
  C := TClipboard.Create;
  try
   img := TImage.Create(Self);            //Создаем экземпляр TImage
   img.Picture.LoadFromFile(sOpenPictureDialog1.FileName);    //Загружаем изображение
   //Тут проверяется расширение, и в зависимости от него присваиваем буферу картинку
   if (ExtractFileExt(sOpenPictureDialog1.FileName) = '.jpg') or
     (ExtractFileExt(sOpenPictureDialog1.FileName) = '.jpeg') then
    C.Assign(img.Picture.Graphic);
   if (ExtractFileExt(sOpenPictureDialog1.FileName) = '.bmp') or
     (ExtractFileExt(sOpenPictureDialog1.FileName) = '.png') then     //PNG поддерживается только в Delphi 2009, если у вас версия меньше, то удаляйте эту строчку
    C.Assign(img.Picture.Bitmap);
   if (ExtractFileExt(sOpenPictureDialog1.FileName) = '.wmf') or
     (ExtractFileExt(sOpenPictureDialog1.FileName) = '.emf') then
    C.Assign(img.Picture.Metafile);

   DBImage1.PasteFromClipboard;

   DataModule1.tb_Films.Edit;
   DataModule1.tb_FilmsНазвание.Value := DataModule1.tb_FilmsНазвание.Value;   //Здесь любому другому полю присваиваем себя, это чтобы сохранилось сразу
  finally
   C.Free;
  end;
 end;
end;

Надо в Uses добавить Clipbrd