Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Перекодировка в DBASE
   Категория: Базы данных
  Перекодировка текста DOS-Windows-Koi8
   Категория: Текст и строки
  Автоматическое определения кодировки текста
   Категория: Текст и строки
  Определение размера файла
   Категория: Файловая система
  Переключение раскладки клавиатуры
   Категория: Приложение
  Создать индекс для таблицы ABS (Absolute Database)
   Категория: Базы данных
  Форма всегда наверху
   Категория: Компоненты
  Как удалить не пустой каталог
   Категория: Файловая система
  Прочитать содержимое папки
   Категория: Файловая система
  Undo в memo
   Категория: Компоненты

Надежный ручной инструмент в ассортименте от канадского производителя FIT,Книги читать онлайн.
Delphi - База Знаний: Сохраняем Bitmap в поле dbase

  << Вернуться к Содержанию  

Сохраняем Bitmap в поле dbase с именем Icon. Icon представляет собой двоичное Blob-поле.

procedure ....
var IconStream : TMemoryStream;
begin
IconStream := TMemoryStream.Create;
Image1.picture.icon.savetostream(IconStream);
(Table1.fieldbyname('Icon') as TBlobField).LoadFromStream(IconStream);
Table1.post;
IconStream.Free;
end;


Читаем Bitmap в Timage из поля dbase с именем Icon.

procedure .....
var IconStream : TMemoryStream;
begin
IconStream := TMemoryStream.Create;
(Table1.fieldbyname('Icon') as TBlobField).SaveToStream(IconStream);
{что бы что-нибудь записать, необходимо установить позицию потока в ноль!}
IconStream.Position := 0;
appointment.iconimage.picture.icon.loadfromstream(iconstream);
IconStream.Free;
end;


Надеюсь это поможет, поскольку найти информацию в справочной системе по этой теме практически невозможно.
  << Вернуться к Содержанию