Способы хранения на диске большого кол-ва переменных НЕ в БД

← →
_Kirill_ (2004-10-28 14:41) [0]

Ситуация такова:
Есть несколько классов с большим кол-вом свойств типа integer или single, а также свойств-ссылок на подобные же классы.
Есть желание сохранять на диске и загружать все эти свойства при этом не используя БД.
Каким способом быстрее и эффективнее это сделать?
Спасибо.

← →
Digitman © (2004-10-28 15:06) [1]

воспользуйся готовым streaming-механизмом

сделай свои классы наследниками TPersistent, а еще лучше - TComponent (если они таковыми у тебя не являются)

тогда для поточного сохранения/восстановления любого твоего объекта можно будет воспользоваться методами TStream.Read/WriteComponent

← →
_Kirill_ (2004-10-28 16:04) [2]

Я так и сделал, но при этом не сохраняются свойства-ссылки на другие объекты.

Еще вопрос - каким методом можно обратиться ко всем свойствам объекта - т.е. получить имена и значения свойств.

← →
Digitman © (2004-10-28 16:21) [3]

> Я так и сделал, но при этом не сохраняются свойства-ссылки
> на другие объекты

не выдумывай.
все замечательно сохраняется.

на то есть TPersistent.Defineproperties()

← →
cae © (2004-10-28 16:35) [4]

>каким методом можно обратиться ко всем свойствам объекта - т.е. получить имена и значения свойств

GetComponentProperties
или
GetPropList

← →
_Kirill_ (2004-10-28 16:56) [5]

> на то есть TPersistent.Defineproperties()

а можно примерчик маленький?

> можно примерчик маленький?

нельзя.

их ну просто навалом, в исх.текстах VCL

← →
_Kirill_ (2004-10-28 17:10) [7]

> нельзя.
>
> их ну просто навалом, в исх.текстах VCL

и на том спасибо

_Kirill_ (28.10.04 14:41)

Кирил, скажите, а что вам запрещает у общего предка ввести процедуры: Load/Save. И ТУПО СОХРАНЯТЬ В ФАЙЛ ВСЕ СВОЙСТВА КАК ЕСТЬ?

Меня порой просто бесит нежелание некоторых просто немного подумать. Я вам даже пример могу дать:

Вот такой карты элемента достаточно для четкой идентификации объекта при восстановлении из файла:

{ Карта настройки элемента библиотеки } { Derived from Ptives.pas v.1.153 } PDataRecMap = ^TComponentMap; TDataRecMap = packed Record ObjectType : Byte; // Тип данного экземпляра ObjectID : Cardinal; // Идентификационный номер ObjectKey : Cardinal; // Уникальный ключ объекта ObjectContainer : Cardinal; // Номер библиотеки поставщика Rate : Cardinal; // Частота Date : TDateTime; // Дата модификации объекта Weight : Cardinal; // Вес Value : Byte; // Значение BitField : Byte; // Битовое поле, для хранения 8-ми состояний CheckSum : Byte; // Контрольная сумма данных (для проверки) ObjectName : ShortString;// Имя данного экземпляра End;

Это сам опорный объект, в который вводятся методы сохранения/восстановления:

{ Элементарный элемент библиотек } { Derived from Ptives.pas v.1.153 (modified TComponent) } TDataControl = Class(TDataObject) Private FIOStatus : Boolean; ... какие-то приватные поля и методы работы с ними Private // Инструментарий обслуживания модификаций и учета элементов ... Public ObjectMap : TDataRecMap; Property Correct:Boolean Read FIOStatus; ... другие свойства, которые все размещены в ObjectMap Constructor Create;Virtual; Procedure ResetMap;Virtual; Procedure Save(Stream: TMemoryStream);Virtual; Procedure Load(Stream: TMemoryStream);Virtual; Destructor Destroy;Override; End; Procedure TDataControl.Save; Begin ObjectMap.CheckSum := CheckSum; Try Stream.Write( ObjectMap, SizeOf(ObjectMap)-SizeOf(ObjectMap.ObjectName)); Stream.Write( ObjectMap.ObjectName[0], 1); If Byte(ObjectMap.ObjectName[0])>0 Then Stream.Write( ObjectMap.ObjectName[1], Byte(ObjectMap.ObjectName[0])); Except FIOStatus :=False; End; End; Procedure TDataControl.Load; Var NameSize: Byte; Begin Try Stream.Read( ObjectMap, SizeOf(ObjectMap)-SizeOf(ObjectMap.ObjectName)); Stream.Read( NameSize, 1); Stream.Read( ObjectMap.ObjectName[1], NameSize ); ObjectMap.ObjectName[0] := Chr(NameSize); If CheckSum <> ObjectMap.CheckSum Then FIOStatus := False Else FIOStatus := True; Except FIOStatus := False; End; { If Not Correct Then ShowMessage("Error reading DB file");} Application.ProcessMessages; End;

Все последующие наследники перекрывают процедуры Save/Load например так:

Procedure TDiscreteSignal.Save; Var NValue : Byte; Begin Inherited; NValue := NormalValue; Stream.Write( NValue, 1); End; Procedure TDiscreteSignal.Load; Var NValue : Byte; Begin Inherited; Stream.Read( NValue, 1); NormalValue := NValue; End;

Вот собсно все потом созданный Stream записываем в файл. Точно также и восстанавливаем. Прочитали Stream из файла и начали создавать и настраивать объекты.

Причем так, создали TDataControl, прочитали из стрима его карту настройки (свойства), установили тип объекта, создали объект требуемого класса, выполнили Assign загруженного TDataControl к экземпляру вновь созданного экземпляра, и догрузили оставшиеся данные(свойства) характерные для созданного экземпляра класса. И т.д. пока стрим не пуст.

Способы хранения на диске большого кол-ва переменных НЕ в БД Найти похожие ветки