VPF::Хранение изображения в sql server - Форум программистов

yandeXXX

Дата 22.2.2011, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.11.2007

Репутация: нет
Всего: нет

Имеется база данных (СУБД, соответственно, MS SQL Server 2008), доступ к таблицам через через TADOTable. В таблице есть поле типа image. Подскажите как можно хранить и отображать изображения?

Antimol

Дата 22.2.2011, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 28.7.2007
Где: Украина, Киев

Репутация: 4
Всего: 4

Цитата

...как можно хранить изображения

Создать в таблице поле и указать ему тип image

Цитата

....как можно отображать изображения

Как вариант - можно разместить на форме компонент DBImage и подключить его к соответствующему полю (правда кажется там только рисунки в bmp формате отображаются)

Это сообщение отредактировал(а) Antimol - 22.2.2011, 16:46

--------------------

Лучшее спасибо это "+" к репутации. Мой блог: ИНФОРМАТИЗАЦИЯ, и mirsovetov.net. Написание программ, исправление ошибок, статьи....

yandeXXX

Дата 22.2.2011, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.11.2007

Репутация: нет
Всего: нет

Поле с типом image есть, как я и указал. С компонентом DBImage тоже пробовал. Проблема в том, что не срабатывает. Код, которым добавлял данные:

Код


if OpenPictureDialog1.Execute then
begin
  table1.edit;
  DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
  Table1.Post;
end;

chip_and_dayl

Дата 22.2.2011, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 2
Всего: 9

Код


function SetData(Dataset: TADOQuery; FieldName: String; Bitmap: TBitmap): Boolean;
var Stream: TStream;
begin
  Result := True;
  try
    Stream := TADOBlobStream.Create(Dataset.FieldByName(FieldName) as TBlobField, bmWrite);
    try
      BitMap.SaveToStream(Stream);
    finally
      Stream.Free;
    end;
  except
    Result := False;
  end;
end;

Пример работы

Код


procedure TfrmPropHall.btnChangeClick(Sender: TObject);
var
  Bmp: TBitMap;
begin
  inherited;
  if dlgPicture.Execute then
    begin
      Bmp := TBitMap.Create;
      try
        Bmp.LoadFromFile(dlgPicture.FileName);
          dsGroup.Dataset.Edit;
        SetData(dsGroup.Dataset as TADOQuery, 'background', Bmp);
        dsGroup.Dataset.Post;
      finally
        FreeAndNil(Bmp);
      end;
    end;
end;

Добавлено через 1 минуту и 18 секунд
'background' - имя поля с изображением в вашей базе

Это сообщение отредактировал(а) chip_and_dayl - 22.2.2011, 17:23

--------------------

Фсё будет хорошо!!!

yandeXXX

Дата 24.2.2011, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.11.2007

Репутация: нет
Всего: нет

спасибо! помогло )
вопрос теперь в другом. dbimage, похоже, отображает только bmp. как быть, если хочу jpeg тоже отображать?

Это сообщение отредактировал(а) yandeXXX - 24.2.2011, 10:29

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »