Созранение и загрузка изображения

[Marsel737]

Всем здрасте.

Пытаюсь сохранить картинку в бд, а потом загрузить её оттуда, но ничего не выходит, что не так?

Вот код:

procedure TfrmMain.btnAddImgClick(Sender: TObject);
var
  Img: TImage;
  MemStream: TMemoryStream;
begin
  if OpenPictureDialog.Execute then
  begin
  IBDataSet.Edit;
  Img := TImage.Create(nil);
  try
    Img.Picture.LoadFromFile(OpenPictureDialog.FileName);
    if Assigned(Img.Picture.Graphic) and (not Img.Picture.Graphic.Empty) then
    begin
      MemStream := TMemoryStream.Create;
      try
        Img.Picture.Graphic.SaveToStream(MemStream);
        MemStream.Position := 0;
        TBlobField(IBDataSet.FieldByName('PICTURE')).LoadFromStream(MemStream);
      finally
        MemStream.Free;
      end;
    end;
  finally
    Img.Free;
  end;
  IBDataSet.Post;
  end;
end;

procedure TfrmMain.btnLoadImgClick(Sender: TObject);
var
  Img: TImage;
  MemStream: TMemoryStream;
begin
  if Not IBDataSet.FieldByName('PICTURE').IsNull then
  begin
    Img := TImage.Create(nil);
    try
      MemStream := TMemoryStream.Create;
      try
        TBlobField(IBDataSet.FieldByName('PICTURE')).SaveToStream(MemStream);
        Img.Picture.Graphic.LoadFromStream(MemStream);
      finally
        MemStream.Free;
      end;
    finally
      Img.Free;
    end;
  end else
    Application.MessageBox(PChar('Current field is null'), PChar('Information'),
      MB_OK + MB_ICONINFORMATION);
end;

[Stilet]

TBlobField(IBDataSet.FieldByName('P ICTURE')).LoadFromStream(MemStream) ;

А банально?

procedure TfrmMain.btnAddImgClick(Sender: TObject);
var
  Img: TImage;
  MemStream: TMemoryStream;
begin
  if OpenPictureDialog.Execute then
  begin
  IBDataSet.Edit;
TBlobField(IBDataSet.FieldByName('PICTURE')).LoadFromFile(OpenPictureDialog.FileName);
  IBDataSet.Post;
  end;
end;

[Marsel737]

Stilet, сделал как ты предложил, но при загрузке всё равно это поле оказывается пустым

[Alexei91]

Как вариант - не хранить изображения напрямую в базе,а хранить ссылки на изображение. Image загружать по ссылке из базы и хранить "рядом" с базой.
P.S.
И всё-таки какой вариант более оптимальный - хранить Images в базе или нет?

[Marsel737]

Тогда как вариант можно вообще не использовать БД, а всё делать через текстовые файлы, папки с картинками и т.д.

Имхо, конечно лучше всё хранить в одном месте в одной бд, тем более что именно для этого и нужны поля blob

[Stilet]

но при загрузке

Даже если использовать DBImage?
У меня большие подозрения что классы Stream-ов косячат здорово. Сам я ими стараюсь не пользоваться.

И всё-таки какой вариант более оптимальный - хранить Images в базе или нет?

Смотря для чего нужно.

[Alexei91]

http://www.delphisources.ru/pages/so...e-paradox.html
- создание Paradox базы в Run-Time. СУБД,ИМХО,не суть важна - общий принцип один фиг 1. В смысле как пример BLOB в БД.

[palevg]

Сообщение от Alexei91

Как вариант - не хранить изображения напрямую в базе,а хранить ссылки на изображение. Image загружать по ссылке из базы и хранить "рядом" с базой.
P.S.
И всё-таки какой вариант более оптимальный - хранить Images в базе или нет?

Вы подсказали топикстартеру чудесный вариант, и тут же сомневаетесь в нём?
Лично я так и делаю: в таблице БД текстовое поле (ссылка на файл-изображение), а рядом с папкой Data (где лежат файлы БД) есть папка Images (с файлами изображений).

Сообщение от Marsel737

Имхо, конечно лучше всё хранить в одном месте в одной бд, тем более что именно для этого и нужны поля blob

Это всё хорошо, когда изображений немного (ну, скажем, до 1000). А если счёт пошёл на десятки тысяч? Вы представляете размер одного файла *.MB ?? Да и "поиск" изображения по такому файлу будет затратным по времени. Проверено лично мной, после чего перешёл на способ, описанный выше.