VPF::Как показать изображение в DBImage (SQL запрос)

Martin_8

Дата 5.4.2008, 19:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте. Я хочу реализовать возможность загрузки изображений в БД и нужных показ изображений. Использую SQL Server 2000, ADO. Читал этот топик: http://forum.vingrad.ru/forum/topic-121693...mage/index.html
Загружаю изображения в БД следующим образом:

Код


void __fastcall TForm1::Button2Click(TObject *Sender)
{
  try
  {
  OpenDialog1->Execute();

  AnsiString  fileName = OpenDialog1->FileName;
  auto_ptr<TMemoryStream> stream(new TMemoryStream());
  auto_ptr<Graphics::TBitmap> bitmap(new Graphics::TBitmap());
  AnsiString EXE = ExtractFileExt(fileName);
   if( EXE ==".jpg" || EXE ==".jpeg" || EXE ==".JPG" || EXE ==".JPEG")
     {
        auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
        jpeg->LoadFromFile(fileName);
        bitmap->Assign(jpeg.get());
     }
       else
       {
           bitmap->LoadFromFile(fileName);
       }
  bitmap->SaveToStream(stream.get());
  stream->Position = 0;
  //ADOQueryPhoto это дополнительный ADOQuery, он ни к чему не привязан
  //и имеет запрос insert into table1(id_image,image) values (:param_id_image,:param_image)
  ADOQueryInsert->Parameters->ParamByName("param_id_image")->Value = 1;
  ADOQueryInsert->Parameters->ParamByName("param_image")->LoadFromStream(stream.get(), ftBlob);
  ADOQueryInsert->ExecSQL();
   }
   catch(...)
       {
        ShowMessage("Не удалось загрузить изображение в БД");
       }
}

Для показа изображений я планировал использовать DBImage. Построил цепочку ADOQuery1 => DataSource2=> DBImage1 и хотел написать так:

Код


void __fastcall TForm1::Button3Click(TObject *Sender)
{
  // В ADOQuery1 работает запрос Select image from table1 where id_image=:param_id_image
  ADOQuery1->Parameters->ParamByName("param_id_image")->Value = 12;
  ADOQuery1->ExecSQL();
}

Но в результате в DBImage1 пусто.

1) Подскажите, что неправильного в запросе ?
2) Как можно изменить масштаб выводимого изображения, чтобы оно, например, помещалось в DBImage1 полностью, пусть и в уменьшенном виде ?

Martin_8

Дата 5.4.2008, 22:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Разобрался, всего-то поменял ADOQuery1->ExecSQL(); на ADOQuery1->Open() ;
Значит для Select нужно указывать Open, а для Insert, Update, Delete — ExecSQL, правильно ?

Rodman

Дата 5.4.2008, 22:35 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

1. А явно пытался задавать.. воощето на прямую должно все нормально выводить.
2 Strech не то свойство?!

Добавлено через 8 минут и 38 секунд

Цитата(Martin_8 @ 5.4.2008, 21:24

)

Значит для Select нужно указывать Open, а для Insert, Update, Delete — ExecSQL, правильно ?

точно!

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

CRM с функцией АвтоОбзвона

Лотереи мира

Martin_8

Дата 6.4.2008, 12:16 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(Rodman @ 5.4.2008, 22:35

)

Strech не то свойство?!

Да, именно то что нужно, спасибо. smile

Не подскажите ещё, как можно очистить компонент DBImage от записанного в него изображения ?
Конечно, можно хранить где-то в БД простое белое изображение и выводить его, когда нужно очистка, но хотелось бы без этого обойтись.

Это сообщение отредактировал(а) Martin_8 - 6.4.2008, 12:39

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »