VPF::Сжатие - Форум программистов

Coala

Дата 22.11.2006, 11:27 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


// FDM->QrDatImg - это TADOQuery из модуля данных
__private :
   TMemoryStream *stm;
   TGPEGImage *jpg;
// где-нибудь в FormCreate
   stm = new TMemoryStream();
   jpg = new TGPEGImage();
//---------------------------------------------------------------------------
// Запись из файла в БЛОБ-поле
void __fastcall TFMain::AddImage() {
  if (!OPD1->Execute()) {
    FDM->QrDatImg->Cancel();
    return;
  }
  Repaint();
  Screen->Cursor = crHourGlass;
  stm->Clear();
  stm->LoadFromFile(OPD1->FileName);
  ((TBlobField*)FDM->QrDatImg->FieldByName("IMAGE"))->LoadFromStream(stm);
  FDM->QrDatImg->Post();
  ShowImage();
  Screen->Cursor = crDefault;
}
//-----------------------------------------------------------------------------------------------
// чтение из поля и загрузка в TImage, лежащеи на СкроллБоксе
void __fastcall TFMain::ShowImage() {
  stm->Clear();
  TStream *bs = FDM->QrDatImg->CreateBlobStream(FDM->QrDatImg->FieldByName("IMAGE"), bmRead);
  if ((!stm) || (stm->Size == 0)) {
     return;
  }
  Image1->Visible = true;
  stm->Position = 0;
  jpg->LoadFromStream(stm);
  ScrollBox1->HorzScrollBar->Range = jpg->Width;
  ScrollBox1->VertScrollBar->Range = jpg->Height;
  Image1->Picture->Assign((TPersistent*)jpg);
}

Это сообщение отредактировал(а) Coala - 22.11.2006, 11:28

Vyacheslav

Дата 22.11.2006, 11:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

Лена. Крутимся по кругу.
Должно быть не TField, а TBlobField?
У Вас он действительно TField?
В конце концов я набираю по памяти. Немного фантазии и
можно так

Код


DataModule2->ADOQueryXphoto->SaveToStream(stream.get());

или так

Код


((TBlobField*)DataModule2->ADOQueryX->FieldByName("photo"))->SaveToStream(stream.get());

У меня же Вашего кода нет, а у Вас есть smile

Вам должно быть проще.

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

С уважением, Вячеслав Ермолаев

Лена

Дата 22.11.2006, 11:59 (ссылка)

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

Загрузка ...

Опытный

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

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

Теперь понятно. Надо обращаться не посредственно к имени поля ADOQueryXphoto. smile

Новый код отправки вызвает ошибку №1

Код


try{

      TWaitCursor cursor(crSQLWait);
      AnsiString  fileName = PathFolder;
      auto_ptr<TMemoryStream> stream(new TMemoryStream());
      auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
      jpeg->LoadFromFile(fileName);
      jpeg->CompressionQuality = 80;
      jpeg->Compress();
      jpeg->SaveToStream(stream.get());
      stream->Position = 0;
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("img")->LoadFromStream(stream.get(), ftBlob);
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("id")->Value = DataModule2->ClientDataSetVisid->AsInteger;
      DataModule2->ADOQueryPhoto->ExecSQL();
     }
 catch(...)
       {
        ShowMessage("Íå óäàëîñü îòïðàâèòü ôîòîãðàôèþ â áàçó");
       }

При добавлении строки jpeg->DIBNeeded(); в код выше получаю ошибку N2

Код получение информации из бызы вызвает ошибку N3:

Код


auto_ptr<TMemoryStream> stream(new TMemoryStream());
 auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
 DataModule2->ADOQueryXphoto->SaveToStream(stream.get());
 stream->Position = 0;
 jpeg->LoadFromStream(stream.get());
 FormProsmotrFoto->Image1->Picture->Bitmap->Assign(jpeg.get());
 FormProsmotrFoto->ShowModal();

Присоединённый файл ( Кол-во скачиваний: 8 )

1.gif 22,89 Kb

Vyacheslav

Дата 22.11.2006, 12:21 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

1)Тип параметра img?
2) jpeg->DIBNeeded() ? Зачем он здесь
3) Пустая запись?

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

С уважением, Вячеслав Ермолаев

Лена

Дата 22.11.2006, 12:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Vyacheslav @ 22.11.2006, 12:21

)

Тип параметра img?

Тип параметра не меняла ftBlob

Цитата(Vyacheslav @ 22.11.2006, 12:21

)

jpeg->DIBNeeded() ? Зачем он здесь

Его нет, просто проверила.

Цитата(Vyacheslav @ 22.11.2006, 12:21

)

3) Пустая запись?

Сначала старым рабочим кодом занесла jpg файл в базу:

Код


try{

      TWaitCursor cursor(crSQLWait);
      AnsiString  fileName = PathFolder;
      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());
      //bitmap->SaveToFile("1234.jpg");
      stream->Position = 0;
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("img")->LoadFromStream(stream.get(), ftBlob);
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("id")->Value = DataModule2->ClientDataSetVisid->AsInteger;
      DataModule2->ADOQueryPhoto->ExecSQL();
    }
   catch(...)
       {
        ShowMessage("Íå óäàëîñü îòïðàâèòü ôîòîãðàôèþ â áàçó");
       }

Затем попробывала прочитать. Ошибка №3.
Аналогичная ошибка при попытке прочитать пустое поле из базы.

Vyacheslav

Дата 22.11.2006, 12:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

Ваш код чтения из БД целиком давайте.

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

С уважением, Вячеслав Ермолаев

Лена

Дата 22.11.2006, 13:02 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Vyacheslav @ 22.11.2006, 12:51

)

Ваш код чтения из БД

Сейчас такой:

Код


//нажала на кнопку
 FormProsmotrFoto->Top = Form1->Top;
 FormProsmotrFoto->Left = Form1->Left  + Form1->Width - FormProsmotrFoto->Width;
 FormProsmotrFoto->Label1->Caption = DataModule2->ClientDataSetVis->FieldByName("lastname")->AsString +
        " " + DataModule2->ClientDataSetVis->FieldByName("firstname")->AsString +
                " " + DataModule2->ClientDataSetVis->FieldByName("patronymic")->AsString +
                        " " + DataModule2->ClientDataSetVis->FieldByName("post")->AsString;


auto_ptr<TMemoryStream> stream(new TMemoryStream());
 auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
 DataModule2->ADOQueryXphoto->SaveToStream(stream.get());
 stream->Position = 0;
 jpeg->LoadFromStream(stream.get());
 FormProsmotrFoto->Image1->Picture->Bitmap->Assign(jpeg.get());
 FormProsmotrFoto->ShowModal();

Раньше был такой:

Код


 FormProsmotrFoto->Top = Form1->Top;
 FormProsmotrFoto->Left = Form1->Left  + Form1->Width - FormProsmotrFoto->Width;
 FormProsmotrFoto->Label1->Caption = DataModule2->ClientDataSetVis->FieldByName("lastname")->AsString +
        " " + DataModule2->ClientDataSetVis->FieldByName("firstname")->AsString +
                " " + DataModule2->ClientDataSetVis->FieldByName("patronymic")->AsString +
                        " " + DataModule2->ClientDataSetVis->FieldByName("post")->AsString;


          TWaitCursor cursor(crSQLWait);
          DataModule2->ADOQueryX->Active = false;
          DataModule2->ADOQueryX->Parameters->ParamByName("cur")->Value = DataModule2->ClientDataSetVisid->AsInteger;
          DataModule2->ADOQueryX->Active = true;

Vyacheslav

Дата 22.11.2006, 13:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

А где,в текущем коде запрос в БД? Он же никуда не делся и должен был перкочевать из предыдущей версии. Вы дожны были просто добавить дополнительный код

Код


//нажала на кнопку
 FormProsmotrFoto->Top = Form1->Top;
 FormProsmotrFoto->Left = Form1->Left  + Form1->Width - FormProsmotrFoto->Width;
 FormProsmotrFoto->Label1->Caption = DataModule2->ClientDataSetVis->FieldByName("lastname")->AsString +
        " " + DataModule2->ClientDataSetVis->FieldByName("firstname")->AsString +
                " " + DataModule2->ClientDataSetVis->FieldByName("patronymic")->AsString +
                        " " + DataModule2->ClientDataSetVis->FieldByName("post")->AsString;


          TWaitCursor cursor(crSQLWait);
          DataModule2->ADOQueryX->Active = false;
          DataModule2->ADOQueryX->Parameters->ParamByName("cur")->Value = DataModule2->ClientDataSetVisid->AsInteger;
          DataModule2->ADOQueryX->Active = true;


auto_ptr<TMemoryStream> stream(new TMemoryStream());
 auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
 DataModule2->ADOQueryXphоto>SaveToStream(stream.get());
 stream->Position = 0;
 jpeg->LoadFromStream(stream.get());
 FormProsmotrFoto->Image1->Picture->Bitmap->Assign(jpeg.get());
 FormProsmotrFoto->ShowModal();

Естественно Вы вытаскиваете пустую запись

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

С уважением, Вячеслав Ермолаев

Лена

Дата 22.11.2006, 13:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Заношу в базу старым кодом:

Код


try{

      TWaitCursor cursor(crSQLWait);
      AnsiString  fileName = PathFolder;
      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());
      //bitmap->SaveToFile("1234.jpg");
      stream->Position = 0;
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("img")->LoadFromStream(stream.get(), ftBlob);
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("id")->Value = DataModule2->ClientDataSetVisid->AsInteger;
      DataModule2->ADOQueryPhoto->ExecSQL();
    }
   catch(...)
       {
        ShowMessage("Íå óäàëîñü îòïðàâèòü ôîòîãðàôèþ â áàçó");
       }

Читаю новым кодом:

Код



          TWaitCursor cursor(crSQLWait);
          DataModule2->ADOQueryX->Active = false;
          DataModule2->ADOQueryX->Parameters->ParamByName("cur")->Value = DataModule2->ClientDataSetVisid->AsInteger;
          DataModule2->ADOQueryX->Active = true;




 auto_ptr<TMemoryStream> stream(new TMemoryStream());
 auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
 DataModule2->ADOQueryXphoto->SaveToStream(stream.get());
 stream->Position = 0;
 jpeg->LoadFromStream(stream.get());
 FormProsmotrFoto->Image1->Picture->Bitmap->Assign(jpeg.get());
 FormProsmotrFoto->ShowModal();

Ошибка на рисунке.

Попытка занести новым кодом, ругается попрежнему на параметр.

Код


try{

      TWaitCursor cursor(crSQLWait);
      AnsiString  fileName = PathFolder;
      auto_ptr<TMemoryStream> stream(new TMemoryStream());
      auto_ptr<TJPEGImage> jpeg (new TJPEGImage());

      jpeg->LoadFromFile(fileName);
      jpeg->CompressionQuality = 80;
      jpeg->Compress();
      jpeg->SaveToStream(stream.get());
      stream->Position = 0;
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("img")->LoadFromStream(stream.get(), ftBlob);
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("id")->Value = DataModule2->ClientDataSetVisid->AsInteger;
      DataModule2->ADOQueryPhoto->ExecSQL();
     }
 catch(...)
       {
        ShowMessage("Íå óäàëîñü îòïðàâèòü ôîòîãðàôèþ â áàçó");
       }

Это сообщение отредактировал(а) Лена - 22.11.2006, 13:22

Присоединённый файл ( Кол-во скачиваний: 7 )

1.gif 5,78 Kb

Vyacheslav

Дата 22.11.2006, 13:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

Лена. Читать с помощью нового кода информацию, записанную старым кодом бессмысленно. У Вас старым кодом записывается формат BMP

Добавлено @ 13:33
Уберите
jpeg->Compress();

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

С уважением, Вячеслав Ермолаев

Лена

Дата 22.11.2006, 13:53 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Vyacheslav @ 22.11.2006, 13:32

)

Уберите
jpeg->Compress();

Все заработало, только мы ничего не выиграли. smile

Сохранила картинку полученную в Image1 на диск. Был размер 1.8 стал 9 МГб. Как у Тома Круза: "Миссия не выполнима". smile

Vyacheslav

Дата 22.11.2006, 14:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

Ответ не верный smile

Дайте код как проверяли
Надеюсь, что так (правильно)

Код


auto_ptr<TMemoryStream> stream(new TMemoryStream());
 auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
 DataModule2->ADOQueryXphoto->SaveToStream(stream.get());
 stream->Position = 0;
 jpeg->LoadFromStream(stream.get());
 jpeg->SaveToFile("test.jpg");

или так (неправильно)

Код


auto_ptr<TMemoryStream> stream(new TMemoryStream());
 auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
 DataModule2->ADOQueryXphoto->SaveToStream(stream.get());
 stream->Position = 0;
 jpeg->LoadFromStream(stream.get());
 FormProsmotrFoto->Image1->Picture->Bitmap->Assign(jpeg.get());
FormProsmotrFoto->Image1->Picture->SaveToFile("test.bmp")

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

С уважением, Вячеслав Ермолаев

Лена

Дата 22.11.2006, 14:21 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


auto_ptr<TMemoryStream> stream(new TMemoryStream());
 auto_ptr<TJPEGImage> jpeg (new TJPEGImage());
 DataModule2->ADOQueryXphoto->SaveToStream(stream.get());
 stream->Position = 0;
 jpeg->LoadFromStream(stream.get());
 jpeg->SaveToFile("test.jpg");

Полученная таким образом картинка, точно соотвествует исходной по размеру и равняется 1.8 МгБ. Видимо Compress(); нужен, но он портит параметр. smile

Vyacheslav

Дата 22.11.2006, 14:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

Ага. Значит проверяли изначально все таки неправильно. smile

Ну судя по хелпу

Цитата

typedef Shortint TJPEGQualityRange;
__property TJPEGQualityRange CompressionQuality = {read=FQuality, write=FQuality, nodefault};

Description

Use CompressionQuality to set the compression quality of the JPEG image when writing out a jpeg image. Higher compression results in a poorer picture quality, but a smaller file size. This property is not used for reading in files.

Этого должно быть достаточно

Код


jpeg->CompressionQuality = 80;

без вызова Compress;

Добавлено @ 14:40
Прочитав вниматльно smile

help я понял, что Compress используется для сжатия после присвоения BMP -> JPEG типа

Код


jpeg->Assign(bitmap);
jpeg->Compress();

а CompressionQuality используется при сохранении jpeg

Код


jpeg->CompressionQuality = 50;
jpeg->SaveToStream( stream ); //jpeg->SaveToFile("test.jpg");

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

С уважением, Вячеслав Ермолаев

Лена

Дата 22.11.2006, 14:43 (ссылка)

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

Загрузка ...

Опытный

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

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

Пока писала сообщения получила новое разъяснения по Compress от вас. smile

Хочу отметить, что новый код загрузки:

Код


try{

      TWaitCursor cursor(crSQLWait);
      AnsiString  fileName = PathFolder;
      auto_ptr<TMemoryStream> stream(new TMemoryStream());
      auto_ptr<TJPEGImage> jpeg (new TJPEGImage());

      jpeg->LoadFromFile(fileName);
      jpeg->CompressionQuality = 80;
      //jpeg->Compress();
      jpeg->SaveToStream(stream.get());
      stream->Position = 0;
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("img")->LoadFromStream(stream.get(), ftBlob);
      DataModule2->ADOQueryPhoto->Parameters->ParamByName("id")->Value = DataModule2->ClientDataSetVisid->AsInteger;
      DataModule2->ADOQueryPhoto->ExecSQL();
     }
 catch(...)
       {
        ShowMessage("Íå óäàëîñü îòïðàâèòü ôîòîãðàôèþ â áàçó");
       }

мне кажется, работает надежнее. У меня была одна картинка jpeg размеров всего 700 Кб, так мой прошлый код загрузки выдавал исключение (переполнение буфера и прочее). Этот код загрузил эту картинку в базу нормально. smile

Раньше, если в базе не было картинки, DBImage был пустой, теперь загрузка в такой ситуации вызывает исключение. Как грамотнее его обработать?

Похоже, CompressionQuality не работает. Пробовала так: CompressionQuality=10 получила тот же размер. Может для эксперимента перед отправкой сохранять файл с Compress(); на диск, а потом пробовать отправить его в базу, а после отправки временный файл удалять или все это ерунда?

Это сообщение отредактировал(а) Лена - 22.11.2006, 14:44

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