VPF::Изображение в форме - Форум программистов

Novichek27

Дата 8.8.2010, 22:20 (ссылка)

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

Загрузка ...

Шустрый

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

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

Приветствую всех.

Создал форму, накидал компоненты DBText, DBEdit. С помощью ADO подключился к базе MS Access. В одной таблице создал поле с форматом "Поле объекта OLE" задал для него файл .bmp.
Далее на форму кидаю DBImage и указываю DataSource и DataField.

Запускаю на выполнение выходит ошибка "Project Project1.exe raised exception class EInvalidGraphic with message 'Bitmap image is not valid'. Process stopped. Use Step or Run to continue.

Какой тип данных надо указать в поле таблицы? Или что прописать надо. Не получается в общем картинки из таблицы отображать на форме.

Подскажите пожалуйста как реализовать это...

Пробовал:

Image.Picture.assign(QAll.FieldByName('FieldName'));

Не выходит

Это сообщение отредактировал(а) Novichek27 - 8.8.2010, 22:40

Данкинг

Дата 8.8.2010, 23:14 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

А каким образом помещаешь картинку в Ole-поле?

Добавлено через 33 секунды

Цитата(Novichek27 @ 8.8.2010, 23:20

)

Image.Picture.assign(QAll.FieldByName('FieldName'));

Ну да, конечно. smile

Добавлено через 9 минут и 28 секунд
Попробуй загружать картинки в таблицу программно:

Код


procedure FileToBlob(BlobField: TField; FileName: string);
var S : TStream;
    FileS : TFileStream;
begin
  S:=BlobField.DataSet.CreateBlobStream(BlobField, bmReadWrite);
  FileS:=TFileStream.Create(FileName, fmOpenRead);
  try
    S.CopyFrom(FileS, FileS.Size);
  finally
    FileS.Free;
    S.Free;
  end;
end;
...
FileToBlob(AdoTable.FieldByName('jpg'),'c:\sss.bmp');

--------------------

There's nothing left but silent epitaphs.

БелАмор

Дата 10.8.2010, 00:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(Данкинг @ 8.8.2010, 23:14

)

procedure FileToBlob(BlobField: TField; FileName: string);
var S : TStream;
    FileS : TFileStream;
begin
  S:=BlobField.DataSet.CreateBlobStream(BlobField, bmReadWrite);
  FileS:=TFileStream.Create(FileName, fmOpenRead);
  try
    S.CopyFrom(FileS, FileS.Size);

Можно проще:

Код


procedure FileToBlob(BlobField: TField; FileName: string);
begin
  (BlobField as TBlobField).LoadFromFile(FileName);
end;

Novichek27

Дата 25.8.2010, 20:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо.
Вроде разобрался.

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