VPF::Как вставить Picture - Форум программистов

Flenger

Дата 16.1.2007, 14:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

Доброе время суток!!!!!

Как в базу данных Paradox вставлять графические файлы *BMP?
Там для поля(Field) нада выбрать тип(Type) Graphic(G), но как вставить туда изображение…?

Anikmar

Дата 16.1.2007, 15:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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

Удобнее всего пожалуй через TMemoryStream.

Для варианта ADO + SQL я делаю так:

Код


//---------------------------------------------------------------------------
// SetGraphicField
// Помогает сохранить в BLOB поле картинку
// pQ - Запрос
// pPic - Картинка
// pFieldName - Имя поля
// Поле IsPicturePresent должно быть правильно установлено
bool TMAN_ADOVrec::SetGraphicField(
    TADOQuery * pQ,
    Jpeg::TJPEGImage * pPic,
    AnsiString pFieldName)
{
    bool Ret = true;
    TBlobField *pBf = NULL;
    TMemoryStream *pMS = NULL;

    pBf = (TBlobField*)pQ->FieldByName(pFieldName);

    if (!IsPicturePresent)
    {
        pBf->Clear();
        goto ExitProc;
    }

    try
    {

        pMS = new TMemoryStream;
        pPic->SaveToStream(pMS);
        pMS->Position = 0;
        pBf->LoadFromStream(pMS);
    }
    catch(...)
    {
        Ret = false;
    }

ExitProc:

    if (pMS != NULL) delete pMS;

    return Ret;
}

Это кусок моего класса, там используются служебные поля, но общая логика вполне ясна

Flenger

Дата 16.1.2007, 18:11 (ссылка)

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

Загрузка ...

Шустрый

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

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

Anikmar Cенкс!!!!

Flenger

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

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

Загрузка ...

Шустрый

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

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

Ну я вот делаю таки макаром:

Код



void __fastcall TForm1::DBGrid1EditButtonClick(TObject *Sender)
{
Graphics::TBitmap * Bitmap = new Graphics::TBitmap;
if(DBGrid1->SelectedField == Table1Foto)

OpenDialog1->Execute();

Bitmap->LoadFromFile(OpenDialog1->FileName);
Table1->Edit();
TBlobStream *BS = new TBlobStream(((TBlobField*)(Table1->FieldByName("Foto"))),bmRead);
Bitmap->SaveToStream(BS);
Table1->Post();
Bitmap->Free();


}

Компилируется всё нормально а вот при загрузке файла выдаёт
BLOB not opened

Что я нетак зделал

Anikmar

Дата 17.1.2007, 09:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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

Мне кажется, что ошибка в режиме открытия потока. Чтобы быть уверенным - поставь режим открытия ReadWrite.

Flenger

Дата 18.1.2007, 14:10 (ссылка)

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

Загрузка ...

Шустрый

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

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

Просто надо было изменить bmRead на bmWrite...

Огромное спасибо Anikmar!!!!!

Anikmar

Дата 18.1.2007, 20:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

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

Да не вопрос smile

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