Сохранить фото через ADOTable

@Kitten-konfetka · Регистрация: 28.11.2012

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

Подскажите пожалуйста, как сохранить фото через ADOTable? у меня какая то ошибка.(С++ Builder)

ФОРМА 5

C++
1
2
3
4
5
6
7
8
9
10
void __fastcall TForm5::sBitBtn1Click(TObject *Sender)
{
Form6 -> sEdit1->Text = " ";
Form6->sDBLookupComboBox1->KeyValue="";  //выбр должности
Form6 -> sEdit2->Text = " ";
Form6->sMaskEdit1->Text="";
Form6 -> sEdit3->Text = " ";
Form5->Hide();
Form6->ShowModal(); //Создание нового сотрудника
}

ФОРМА 6

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
// кнопка "Загрузить фото"
void __fastcall TForm6::sBitBtn1Click(TObject *Sender)
{
if (sOpenPictureDialog1->Execute()) {
 
    s = sOpenPictureDialog1->FileName;
    Image1->Picture->LoadFromFile(s);
    }
 
}
//----------------------------------------------------------------
//при нажатии ок
void __fastcall TForm6::sBitBtn3Click(TObject *Sender)
{
TJPEGImage *jpg = new TJPEGImage;
Graphics::TBitmap *bmp = new Graphics::TBitmap;
 
bmp->Assign(jpg);
Form5->ADOTable1->Insert();
Form5->ADOTable1->FieldByName("Cotrudniki")->AsString=sEdit1->Text;
Form5->ADOTable1->FieldByName("Dolzhostj")->AsString=sDBLookupComboBox1->Text;
Form5->ADOTable1->FieldByName("Adres")->AsFloat=StrToFloat(sEdit2->Text);
Form5->ADOTable1->FieldByName("Vrema")->AsFloat=StrToFloat(sEdit3->Text);
Form5->ADOTable1->FieldByName("Foto")->Assign(bmp);
Form5->ADOTable1->Post();

выявляется ошибка:

Project Salon.exe raised expeption class 'EAccessViolation with message 'Access violation at addess 4002d57b in module 'rtl60.bpl'.Read of address 00000000'. Process stopped. Use Step or Run to continue

@Oxotnuk · 28.11.2012, 13:25

При нажатии на какую кнопку выскакивает ошибка?

@nick42 · 28.11.2012, 13:50

Сообщение от Kitten-konfetka

bmp->Assign(jpg);

- вот это уже нонсенс...

Сообщение от Kitten-konfetka

Form5->ADOTable1->FieldByName("Foto")->Assign(bmp);

Добавлено через 3 минуты
хотя бы так__

C++
1
bmp->Assign(Image1->Picture->Bitmap);

И в базу картинки ТАК не записывают...

@Kitten-konfetka · 28.11.2012, 23:21 **[ТС]**

//при нажатии ок sBitBtn3

Добавлено через 5 часов 55 минут

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

При нажатии на какую кнопку выскакивает ошибка?

//при нажатии ок sBitBtn3

Добавлено через 1 час 41 минуту

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

- вот это уже нонсенс...

Добавлено через 3 минуты
хотя бы так__

C++
1
bmp->Assign(Image1->Picture->Bitmap);

И в базу картинки ТАК не записывают...

а как записать в базу картины?

Добавлено через 3 минуты

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

- вот это уже нонсенс...

Добавлено через 3 минуты
хотя бы так__

C++
1
bmp->Assign(Image1->Picture->Bitmap);

И в базу картинки ТАК не записывают...

а как записать в базу картины? и чтобы картину с расширением jpg тоже сохранилось.

@nick42 · 28.11.2012, 23:29

Сообщение от Kitten-konfetka

как записать в базу картины? и чтобы картину с расширением jpg тоже сохранилось.

для этого мне нужно знать, какого типа базу данных Вы используете, и какова структура поля "Foto" (желательно blob или longblob).

@Kitten-konfetka · 29.11.2012, 00:15 **[ТС]**

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

для этого мне нужно знать, какого типа базу данных Вы используете, и какова структура поля "Foto" (желательно blob или longblob).

у меня blob

@nick42 · 29.11.2012, 00:54

.. вот такой совет подвернулся пока... Пробуйте аналогичное

Извлечение изображения из blob-поля таблицы
Для того, чтобы из blob-поля таблицы вытащить изображение и сохранить его в файл, можно воспользоваться следующим кодом:

TMemoryStream *M1 = new TMemoryStream();
TStream *B1 = Table1->CreateBlobStream(Table1->FieldByName("photo"),bmRead);
M1->CopyFrom(B1,B1->Size);
M1->SaveToFile("C:\\temp.jpg");
delete B1;
delete M1;

Добавлено через 6 минут
.. и запрос по записи (не проверял)...

C++
1
2
3
MyQuery1->SQL->Text ="insert into testtable (Name,Age,Photo) values('Name',18,:Image)";
  MyQuery1->ParamByName("Image")->LoadFromFile("d:\\2.jpg", ftBlob);
   MyQuery1->Execute();

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Oxotnuk 78 / 78 / 6 Регистрация: 18.06.2009 Сообщений: 533
	28.11.2012, 13:25
	При нажатии на какую кнопку выскакивает ошибка? 1