Загрузка изображений в BLOB поле базы данных

@Reavolt · Регистрация: 15.10.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте, возникла такая проблема. Как правильно загружать изображения различных форматов в базу данных MySQL?
В базе имеется поле photo типа BLOB.

Загружаю изображения в БД данным образом

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
    if(OpenPictureDialog->Execute())
    {
        i_photo->Picture->LoadFromFile(OpenPictureDialog->FileName);
 
            dm->adoq_src->Close();
            dm->adoq_src->SQL->Clear();
            dm->adoq_src->SQL->Add
            (" \
            UPDATE \
                Goods \
            SET \
                photo = :PHOTO \
            WHERE (id_goods = :ID_GOODS) \
            ");
            dm->adoq_src->Parameters->ParamByName("ID_GOODS")->Value =
            get_id_goods();
 
            TMemoryStream* stream = new TMemoryStream();
            i_photo->Picture->SaveToStream(stream);
            stream->Seek(0, 0);
            l_name->Caption = stream->Size;
            dm->adoq_src->Parameters->ParamByName("PHOTO")->
            LoadFromStream(stream, ftBlob);
            delete stream;
 
            dm->adoq_src->ExecSQL();
 
    }

Данные в БД появляются и имеют размер, но вот как правильно считать изображения в Image я не пойму.

Пробовал вот так

C++
1
2
3
4
5
6
        TMemoryStream* stream = new TMemoryStream();
        ((TBlobField*)dm->adoq_src->FieldByName("photo"))->SaveToStream(stream);
        i_photo->Picture->Bitmap->LoadFromStream(stream);
        stream->Seek(0,0);
        l_name->Caption = stream->Size;
        delete stream;

Но при выполнение кода stream->Size показывает 0 и на месте изображение пусто. В чем может быть проблема? Может быть я как-то не правильно записываю данные?

@Reavolt · 19.03.2018, 20:55 **[ТС]**

Выгрузил картинки из базы они отображаются нормально. Вот только не могу понять в чем проблема при выгрузке кодом в image.

@Почтальон · 20.03.2018, 16:31

Может быть проблема в формате ? Насколько помню, у Image были какие-то проблемы с отображением каких-то форматов (jpg или bmp) не помню

@Reavolt · 20.03.2018, 17:18 **[ТС]**

Почтальон, Уже исправил

Была моя ошибка. В запросе параметр не дописал... Вот сейчас думаю как лучше сделать загрузку этих изображений. Просто если к примеру изображение весит ~800кб то на загрузку уходит от 1-2х секунд и форма висит. Вынес в отдельный поток, но нечего не поменялось.

Создание потока

C++
1
2
3
4
5
6
7
void __fastcall Tf_info::FormShow(TObject *Sender)
{
    Load_photo *thr = new Load_photo(true);
    thr->add_id_goods(get_id_goods());
    thr->FreeOnTerminate = true;
    thr->Resume();
}

Загрузка в потоке

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
__fastcall Load_photo::Load_photo(bool CreateSuspended)
    : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall Load_photo::Execute()
{
    NameThreadForDebugging(System::String(L"LoadPhoto"));
    Synchronize(&LoadPhoto);
}
//---------------------------------------------------------------------------
void __fastcall Load_photo::LoadPhoto()
{
    try
    {
        dm->adoq_thread->Close();
        dm->adoq_thread->SQL->Clear();
        dm->adoq_thread->SQL->Add
        (" \
        SELECT \
            photo \
        FROM \
            goods \
        WHERE (id_goods = :ID_GOODS) \
        ");
        dm->adoq_thread->Parameters->ParamByName("ID_GOODS")->Value =
        get_id_goods();
        dm->adoq_thread->Open();
 
        if(!(TBlobField*)dm->adoq_thread->FieldByName("photo")->IsNull)
        {
            TMemoryStream* stream = new TMemoryStream();
            ((TBlobField*)dm->adoq_thread->FieldByName("photo"))->SaveToStream(stream);
            stream->Seek(0,0);
            f_info->l_name->Caption = stream->Size;
            f_info->i_photo->Picture->LoadFromStream(stream);
            delete stream;
        }
    }
    catch(Exception & exception)
    {
        MessageBoxA(0, "Невозможно подключится к базе данных!",
        "Внимание!", MB_OK);
    }
}
//---------------------------------------------------------------------------

@Reavolt · 21.03.2018, 20:14 **[ТС]**

Актуально.

Новые блоги и статьи Все статьи Все блоги /
Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .

@Reavolt 139 / 67 / 46 Регистрация: 15.10.2015 Сообщений: 308
	19.03.2018, 20:55 [ТС]
	Выгрузил картинки из базы они отображаются нормально. Вот только не могу понять в чем проблема при выгрузке кодом в image. 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	20.03.2018, 16:31
	Может быть проблема в формате ? Насколько помню, у Image были какие-то проблемы с отображением каких-то форматов (jpg или bmp) не помню 0

@Reavolt 139 / 67 / 46 Регистрация: 15.10.2015 Сообщений: 308
	21.03.2018, 20:14 [ТС]
	Актуально. 0