Вставка картинки в базу SQL запросом

@VAFER · Регистрация: 08.01.2011

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

Доброе время суток!
Не получается вставить картинку в БД Paradox7

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Bd->Query1->Close();         
Bd->Query1->SQL->Clear();   
Bd->Query1->SQL->Add("Insert into rec (Name_rec, Tip,  Image, Spos) \
                        Values(:Name_rec, :Tip, :Image, :Spos)");
 
Bd->Query1->Params->Items[0]->AsString=Add->EName->Text;
                                                   //EName это это простой эдит
Bd->Query1->Params->Items[1]->AsString=Add->ComboBoxKuh->Text;
                                                   //простой кобобокс   
Bd->Query1->Params->Items[2]->AsString=Add->ComboBoxNac->Text;
                                                  
Bd->Query1->Params->Items[3]->AsBlob=AddImage->Picture;
                                                          //AddImage Компонент Image
Bd->Query1->Params->Items[4]->AsString=Add->AddMemo->Text;
                                                                //AddMemo простой мемо
Bd->Query1->ExecSQL();

Это программа рецептов (для жены + курсовая).
На сайте искал, тут только для делфи есть.

@VAFER · 10.10.2012, 21:05 **[ТС]**

Да. совершенно верно, Image.

C++
1
Bd->Query1->Params->Items[4]->AsBlob=AddImage->Picture

Я пытался вот так сделать, но выдает ошибку

@Sasha · 10.10.2012, 23:51

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

1 Bd->Query1->Params->Items[4]->AsBlob=AddImage->Picture

Пропиши через ParamByName

@VAFER · 11.10.2012, 00:25 **[ТС]**

C++
1
2
3
4
5
TMemoryStream *img = new TMemoryStream();
AddImage->Picture->Bitmap->SaveToStream(img);
img->Seek(0, 0);
Bd->Query1->Params->ParamByName("Image")->LoadFromStream(img,ftBlob);
delete img;

Все равно при просмотре белый снимок.

@DefineFalseTrue · 11.10.2012, 00:31

Пока запросе не будет указано поле Image, вряд ли можно ждать чего-то другого. Но если я все-таки ошибаюсь (SQL теперь интуитивно понимаете, какие поля нужны для заполнения), то единственный другой вариант, что изображение, которое Вы пытаетесь сохранить - не типа BMP, а значит в MemoryStream пусто.

@VAFER · 11.10.2012, 00:33 **[ТС]**

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

в MemoryStream пусто.

Я тоже так предполагал. Можно это как-то проверить?

@DefineFalseTrue · 11.10.2012, 00:40

Свойство Size у класса TMemoryStream отвечает за текущий размер. Но узнать какого типа изображение Вы загружаете в компонент TImage и того проще.

@VAFER · 11.10.2012, 00:47 **[ТС]**

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

единственный другой вариант, что изображение, которое Вы пытаетесь сохранить - не типа BMP, а значит в MemoryStream пусто..

Вот и пес этот.
Да при загрузке картинки в формате БМП все нормально отображается.

Тогда рождается другой вопрос как сделать так чтобы работало *.Jpeg.
Библиотеку Я подключил #include <jpeg.hpp>

@DefineFalseTrue · 11.10.2012, 01:02

Забавно, значит у Вас в приложении все-таки поле указано.
Поскольку Picture позволяет универсально сохранять изображение в файл, но не в поток памяти (кроме буфера), то методы следующие:
1. Запоминать тип изображения при загрузке.
2. Конвектировать все изображения в BMP (через метод Assign).
3. Определять тип изображения. Здесь можно прыгать от многих моментов, но имхо самое простое проверять свойство Handle у Bitmap, Icon и Metafile, у кого не равно нулю - то и сохранять. В ином случае (если они все равны нулю), то сохранять Graphic.

@VAFER · 11.10.2012, 01:10 **[ТС]**

Может можно другой компонент использовать?

@DefineFalseTrue · 11.10.2012, 01:32

Вот вам метод для решения Вашей проблемы. А то так до использования другого компилятора дойдем.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void IMG2Stream(TImage * Image, TMemoryStream * Stream)
{
    if (Image->Picture->Bitmap->Handle != NULL) Image->Picture->Bitmap->SaveToStream(Stream);
    else if (Image->Picture->Icon->Handle != NULL) Image->Picture->Icon->SaveToStream(Stream);
    else if (Image->Picture->Metafile->Handle != NULL) Image->Picture->Metafile->SaveToStream(Stream);
    else Image->Picture->Graphic->SaveToStream(Stream);
    
    Stream->Seek(0,0);
}
//--------------------------------------------------------------------------------------------------
{
    // .....
    
    TMemoryStream * MyStream = new TMemoryStream;
    IMG2Stream(AddImage,MyStream);
    Bd->Query1->Params->ParamByName("Image")->LoadFromStream(MyStream,ftBlob);
    delete MyStream;
}
//--------------------------------------------------------------------------------------------------

@VAFER · 11.10.2012, 21:43 **[ТС]**

Даже так.
Огромное спасибо Вам и Sasha!

Добавлено через 20 часов 8 минут
И снова Я

.

Добавил новый метод как положено
щелк правой/new method...
Имя IMG2Stream, аргументы AddImage * Image, TMemoryStream * Stream
Добавить к класу TAdd
подправил код для себя

C++
1
2
3
4
5
6
7
8
9
10
11
void TAdd::IMG2Stream(AddImage * Image, TMemoryStream * Stream)
{
  if (Add->AddImage->Picture->Bitmap->Handle != NULL) \
        {Add->AddImage->Picture->Bitmap->SaveToStream(Stream);}
            else if (Add->AddImage->Picture->Icon->Handle != NULL) \
                     {Add->AddImage->Picture->Icon->SaveToStream(Stream);}
                        else if (Add->AddImage->Picture->Metafile->Handle != NULL) \
                                 {Add->AddImage->Picture->Metafile->SaveToStream(Stream);}
                                        else {Add->AddImage->Picture->Graphic->SaveToStream(Stream);}
 
Stream->Seek(0,0);

При компиляции ошибку выдает

C++
1
2
[C++ Error] Unit3.cpp(115): E2147 'Image' cannot start a parameter declaration
[C++ Error] Unit3.cpp(116): E2316 'TAdd::IMG2Stream(int *,TMemoryStream *)' is not a member of 'TAdd'

@DefineFalseTrue · 11.10.2012, 23:10

Тип у первого аргумента AddImage? Мб TImage все-таки?

Так же файле заголовка (unitx.h) нужно прописать:

C++
1
2
3
4
5
class TFormX: public TForm
{
  public:
    void IMG2Stream(TImage * Image, TMemoryStream * Stream);
};

@VAFER · 11.10.2012, 23:20 **[ТС]**

Имя компонента TImage Я переименовал AddImage. Нужно прописывать в методе его имя или компонента?
В файле заголовка прописал, но нет результата).

@DefineFalseTrue · 11.10.2012, 23:23

Если используется один и тот же компонент, то его вообще в аргументе метода прописывать не нужно:

C++
1
2
3
4
5
void TAdd::IMG2Stream(TMemoryStream * Stream)
{
  AddImage->Picture->Bitmap->Handle != NULL)
  // ....
}

А в заголовке:

C++
1
void IMG2Stream(TMemoryStream * Stream);

@VAFER · 11.10.2012, 23:27 **[ТС]**

C++
1
[C++ Error] Unit3.cpp(116): E2316 'TAdd::IMG2Stream(TMemoryStream *)' is not a member of 'TAdd'

Проблема не ушла.

@DefineFalseTrue · 11.10.2012, 23:33

Внутри класса объявление под public? Можно увидеть код заголовочного файла?

@VAFER · 11.10.2012, 23:34 **[ТС]**

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
class TAdd : public TForm
{
__published:    // IDE-managed Components
        TBitBtn *BitBtn1;
        TGroupBox *GroupBox1;
        TGroupBox *GroupBox2;
        TGroupBox *GroupBox3;
        TGroupBox *GroupBox4;
        TDBGrid *AddGrid;
        TBitBtn *BitBtn2;
        TBitBtn *BAdd;
        TGroupBox *GroupBox5;
        TEdit *EName;
        TGroupBox *GroupBox6;
        TComboBoxEx *ComboBoxKuh;
        TGroupBox *GroupBox7;
        TComboBoxEx *KbNac;
        TMemo *AddMemo;
        TApplicationEvents *ApplicationEvents1;
        TImage *AddImage;
        TOpenPictureDialog *OpenPictureDialog1;
        void __fastcall BAddClick(TObject *Sender);
        void __fastcall BitBtn2Click(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall AddImageClick(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall ENameChange(TObject *Sender);
        void __fastcall AddMemoChange(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TAdd(TComponent* Owner);
        IMG2Stream(TImage * Image, TMemoryStream * Stream);
        void IMG2Stream();
};
void IMG2Stream(TMemoryStream * Stream);

@DefineFalseTrue · 11.10.2012, 23:41

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

C++
1
2
3
4
5
6
public: // User declarations
 __fastcall TAdd(TComponent* Owner);
 IMG2Stream(TImage * Image, TMemoryStream * Stream);
 void IMG2Stream();
};
void IMG2Stream(TMemoryStream * Stream);

Только IMG2Stream, только хардкор

C++
1
2
3
4
public:
  __fastcall TAdd(TComponent* Owner);
  void IMG2Stream(TMemoryStream * Stream);
};

@VAFER · 12.10.2012, 00:01 **[ТС]**

C++
1
2
3
4
    TMemoryStream * MyStream = new TMemoryStream;
    IMG2Stream(AddImage,MyStream); //при компиляции ссылается на это
    Bd->Query1->Params->ParamByName("Image")->LoadFromStream(MyStream,ftBlob);
    delete MyStream;

C++
1
2
3
[C++ Error] Unit3.cpp(62): E2034 Cannot convert 'TImage *' to 'TMemoryStream *'
[C++ Error] Unit3.cpp(62): E2342 Type mismatch in parameter 'Stream' (wanted 'TMemoryStream *', got 'TImage *')
[C++ Error] Unit3.cpp(62): E2227 Extra parameter in call to TAdd::IMG2Stream(TMemoryStream *)

@DefineFalseTrue · 12.10.2012, 00:12

C++
1
IMG2Stream(MyStream);

Прочитайте на досуге про функции и процедуры, а так же желательно про классы (хотя бы краткую теорию), ибо чем дальше, тем больше будет встречаться подобных ситуаций.

Добавлено через 4 минуты
У вас в процедуре существует всего один аргумент типа TMemoryStream, когда вы вызываете процедуру, с указанием первого параметра в качестве AddImage типа TImage, компилятор пытается его использовать вместо Stream и в итоге получаем ошибку:

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

[C++ Error] Unit3.cpp(62): E2034 Cannot convert 'TImage *' to 'TMemoryStream *'

Ибо компилятор не может преобразовать тип TImage к TMemoryStream.

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

[C++ Error] Unit3.cpp(62): E2342 Type mismatch in parameter 'Stream' (wanted 'TMemoryStream *', got 'TImage *')

Тут компилятор уже начинает ругаться и сообщает озвученное выше и указывает, что нужен TMemoryStream, а ему какой-то TImage подсовывают.

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

[C++ Error] Unit3.cpp(62): E2227 Extra parameter in call to TAdd::IMG2Stream(TMemoryStream *)

И под конец добивает сообщением, о неверном количестве параметров в методе IMG2Stream.

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@DefineFalseTrue Заблокирован
	11.10.2012, 00:31
	Пока запросе не будет указано поле Image, вряд ли можно ждать чего-то другого. Но если я все-таки ошибаюсь (SQL теперь интуитивно понимаете, какие поля нужны для заполнения), то единственный другой вариант, что изображение, которое Вы пытаетесь сохранить - не типа BMP, а значит в MemoryStream пусто. 0

@DefineFalseTrue Заблокирован
	11.10.2012, 00:40
	Свойство Size у класса TMemoryStream отвечает за текущий размер. Но узнать какого типа изображение Вы загружаете в компонент TImage и того проще. 0

@DefineFalseTrue Заблокирован
	11.10.2012, 01:02
	Забавно, значит у Вас в приложении все-таки поле указано. Поскольку Picture позволяет универсально сохранять изображение в файл, но не в поток памяти (кроме буфера), то методы следующие: 1. Запоминать тип изображения при загрузке. 2. Конвектировать все изображения в BMP (через метод Assign). 3. Определять тип изображения. Здесь можно прыгать от многих моментов, но имхо самое простое проверять свойство Handle у Bitmap, Icon и Metafile, у кого не равно нулю - то и сохранять. В ином случае (если они все равны нулю), то сохранять Graphic. 0

@VAFER 2 / 2 / 1 Регистрация: 08.01.2011 Сообщений: 47
	11.10.2012, 01:10 [ТС]
	Может можно другой компонент использовать? 0

@VAFER 2 / 2 / 1 Регистрация: 08.01.2011 Сообщений: 47
	11.10.2012, 23:20 [ТС]
	Имя компонента TImage Я переименовал AddImage. Нужно прописывать в методе его имя или компонента? В файле заголовка прописал, но нет результата). 0

@DefineFalseTrue Заблокирован
	11.10.2012, 23:33
	Внутри класса объявление под public? Можно увидеть код заголовочного файла? 0