Не работает DBimage

@deeller · Регистрация: 20.04.2011

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

Доброго времени суток. у меня база на аксесе подключена через ADO. в одной таблице есть поле типа "Поле объекта OLE" подключил базу вывел через DBgrid,по логике чтобы просматривать рисунок текущей записи необходимо всего лишь поле указать из которого dbimage будет брать картинку, но вот при подключении dbimage выскакивает ошибка "Bitmap image is not valid". тысячу раз проверил, что файл имеет расширение bmp, саму картинку указывал в аксесе. подскажите в чем может быть дело?

@maxo · 24.04.2011, 21:11

это с одной картинкой так?

@deeller · 24.04.2011, 22:03 **[ТС]**

ну со всей таблицей, привязайнный dbimage выдает ошибку...

Добавлено через 42 минуты
думал может аксес тупит попробовал занести картинку в таблицу из делфи написал код, вроде прально, но проблема в том что опять выскакивает сообщение "Bitmap image is not valid" уже голову сломал. подскажите в чем проблема может быть то может быть?

Delphi
1
2
3
4
5
6
procedure TForm1.Button3Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldByName('Чертеж').Value:=OpenPictureDialog1.FileName;
end;

@new_in_net · 24.04.2011, 22:10

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

ну со всей таблицей, привязайнный dbimage выдает ошибку...

Добавлено через 42 минуты
думал может аксес тупит попробовал занести картинку в таблицу из делфи написал код, вроде прально, но проблема в том что опять выскакивает сообщение "Bitmap image is not valid" уже голову сломал. подскажите в чем проблема может быть то может быть?

Delphi
1
2
3
4
5
6
procedure TForm1.Button3Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldByName('Чертеж').Value:=OpenPictureDialog1.FileName;
end;

потому что разные типы:
DataSource1.DataSet.FieldByName('Чертеж' ).Value имеет тип TBitmap (OLE/Memo)
а OpenPictureDialog1.FileName - string

вам надо загрузить это изображение в TBitmap, и потом только присваивать

@deeller · 24.04.2011, 22:30 **[ТС]**

TBitmap этоо компонент такой?

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

Delphi
1
2
3
4
5
6
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldByName('Чертеж').Value:=Image1.Picture.Bitmap;
end;

но етперь при компилировании вы
дает ошибку "[Error] Unit1.pas(165): Incompatible types: 'Variant' and 'TBitmap'"
не могу понять почему полю чертеж тип задан как variant в базе стоит как объект OLE...

@new_in_net · 24.04.2011, 22:38

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

TBitmap этоо компонент такой?

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

Delphi
1
2
3
4
5
6
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldByName('Чертеж').Value:=Image1.Picture.Bitmap;
end;

но етперь при компилировании вы
дает ошибку "[Error] Unit1.pas(165): Incompatible types: 'Variant' and 'TBitmap'"
не могу понять почему полю чертеж тип задан как variant в базе стоит как объект OLE...

Почитай как сделать здесь:
Streaming Bitmaps and other Binary Data to BLOB Fields

@deeller · 24.04.2011, 23:20 **[ТС]**

почитал решил протестить пример выдает опять выдает ошибку при компилировании
[Error] Unit1.pas(173): Object or class type required
[Error] Unit1.pas(217): Incompatible types: 'TBitmap' and 'Variant'.
может это связано с тем что я использую ADO а не BDE...

@new_in_net · 25.04.2011, 00:05

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

почитал решил протестить пример выдает опять выдает ошибку при компилировании
[Error] Unit1.pas(173): Object or class type required
[Error] Unit1.pas(217): Incompatible types: 'TBitmap' and 'Variant'.
может это связано с тем что я использую ADO а не BDE...

Вот работающий код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
var
  fS: TFileStream;
begin
  fs:=TFileStream.Create('C:\Temp\alarm.bmp', fmOpenRead);
  try
    ADOTable1.Insert;
    TBlobField(ADOTable1.FieldByName('Pics')).LoadFromStream(fs);
    ADOTable1.Post;
  finally
    fs.Free;
  end;
end;

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1

	Не работает DBimage 24.04.2011, 20:35. Показов 5595. Ответов 7 Метки нет (Все метки) Доброго времени суток. у меня база на аксесе подключена через ADO. в одной таблице есть поле типа "Поле объекта OLE" подключил базу вывел через DBgrid,по логике чтобы просматривать рисунок текущей записи необходимо всего лишь поле указать из которого dbimage будет брать картинку, но вот при подключении dbimage выскакивает ошибка "Bitmap image is not valid". тысячу раз проверил, что файл имеет расширение bmp, саму картинку указывал в аксесе. подскажите в чем может быть дело? 0

@maxo хацкер 172 / 157 / 34 Регистрация: 19.01.2011 Сообщений: 425
	24.04.2011, 21:11
	это с одной картинкой так? 0

@deeller 39 / 39 / 4 Регистрация: 20.04.2011 Сообщений: 789 Записей в блоге: 1
	24.04.2011, 23:20 [ТС]
	почитал решил протестить пример выдает опять выдает ошибку при компилировании [Error] Unit1.pas(173): Object or class type required [Error] Unit1.pas(217): Incompatible types: 'TBitmap' and 'Variant'. может это связано с тем что я использую ADO а не BDE... 0