| Guest |
 Отправлено: 03.04.2005, 21:51 |
|
Не зарегистрирован
|
Проблема в следующем, из своей программы пытаюсь загнать в базу под Access изображение, порывшись на форуме нашел несколько примеров но каждый по своему глючит
В примере
| CODE |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenPictureDialog1->Execute()==true)
{
if(ADOTable1->FieldByName("photo")->IsBlob(__classid(TField)))
{
ADOTable1->Insert();
TBlobField* im = (TBlobField*)ADOTable1->FieldByName("photo");
im->LoadFromFile(OpenPictureDialog1->FileName);
ADOTable1->Post();
}
}
|
в базе оказывается вместо изображения двоичные данные .
Во втором примере
| CODE |
TStream * img;
TJPEGImage * jpg;
jpg = new TJPEGImage;
jpg->LoadFromFile(OpenPictureDialog1->FileName);
ADOTable1->Insert();
img = ADOTable1->CreateBlobStream(ADOTable1->FieldByName("photo"),bmReadWrite);
jpg->SaveToStream(img);
ADOTable1->Post();
delete jpg;
delete img;
|
при попытки добавить рис. в базу появляется сообщение “не удается вставить пустую строку необходим хотя бы один столбец значений ”
|
|
| olegenty |
| Отправлено: 04.04.2005, 05:47 |
|
Ветеран
Группа: Модератор
Сообщений: 2412
|
а поле-то какого типа объявлено?
|
|
| Guest |
| Отправлено: 04.04.2005, 11:43 |
|
Не зарегистрирован
|
| QUOTE |
а поле-то какого типа объявлено?
|
IMAGE
|
|
