Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.01;
Скачать: CL | DM;

Вниз

Как прочитать и записать содержимое двоичного TBlobField?   Найти похожие ветки 

 
Мария В.   (2003-04-11 11:43) [0]

В таблице IBase в поле Blob (subtype 0) храниться битовая маска. Задача такая: есть набор CheckBox-ов (RxCheckListBox), нужно прочитать битовую маску из Blob и соответственно отметить CheckBox-ы (если 00000101, то 1-й и 3-й CheckBox отмечены и т.д.).Преобразовывать в текст нельзя - получается ерунда.
Пробовала через TBlobStream, что-то не получается.

Люди,кто уже боролся с Blob-ами, помогите пожалуйста.
Заранее спасибо.


 
Карелин Артем ©   (2003-04-11 12:40) [1]

Итак, записываем маску в BlobStream. Устанавливаем позицию в 0. Читаем в некий буфер данные методом
function Read(var Buffer; Count: Longint): Longint;Если есть желание, то в строку.
Дальше на примере 1 байта так:

var i:TBits;
j:Byte;
bit:Boolean;
begin
...
i:=TBits(j);
bit:=i[1];
end;


 
Johnmen ©   (2003-04-11 12:48) [2]

Для хранения битовых масок лучше использовать integer (если маска не слишком велика :)). Тогда и работа с такими полями проста, быстра и прозрачна...


 
Карелин Артем ©   (2003-04-11 12:50) [3]

Johnmen © (11.04.03 12:48)
Я тоже хотел сгорча сделать тако заявление, но почесав чайник решил, что в RxCheckListBox их может набраться туева хуча.


 
Johnmen ©   (2003-04-11 12:54) [4]

>Карелин Артем © (11.04.03 12:50)

Да. Но я же уточнил "если маска не слишком велика ".


 
Карелин Артем ©   (2003-04-11 12:58) [5]

Факт.



Страницы: 1 вся ветка

Текущий архив: 2003.05.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
1-633
AlexAvz
2003-04-18 16:53
2003.05.01
Многооконные документы


3-450
Shrek
2003-04-13 16:55
2003.05.01
sql


1-538
Rocker
2003-04-18 11:36
2003.05.01
Помогите, пожалуйста, с работой Delphi+Word


14-704
Wonder
2003-04-11 11:21
2003.05.01
Задача + спор


14-714
Мазут Береговой Рюрикович
2003-04-13 04:07
2003.05.01
Эй, питерцы! Я же прожил в Питере 4 года.