Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: сентябрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



BLOBFIELD как BITMAP

Сохраняем 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;
 

Надеюсь это поможет, поскольку найти информацию в справочной системе по этой теме практически невозможно. Чтобы сделать это, я перепробовал множество способов. Я пробовал использовать TBlobField и TBlobStream, но они не смогли мне помочь (может быть из-за убогой документации borland?).




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS