Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

сохраниение record or class to binary   Найти похожие ветки 

 
Maxim____   (2004-11-15 01:45) [0]

Приветствую!
Слышал краем уха, что можно сохранять структуры(а может быть и классы) как blob . Подскажите где копать,
Сразу вопрос, что происходит, если структура немного изменилась?
Тут конечно незаменим xml, но blob компактнее и непрозрачен, что и нужно.


 
Maxim____   (2004-11-15 19:20) [1]

люди добрые скажите что-нибудь по теме.


 
Суслик ©   (2004-11-15 19:24) [2]


> Слышал краем уха, что можно сохранять структуры(а может
> быть и классы) как blob

в blob сохранять можно все что хочешь.

В общем случае просто так сохранить запись (относится также и к классу) в blob нельзя, т.к. она может содержать ссылочные типы, например длинные строки.

Нужно каждый элемент записи сохранять и читать в отдельности.


 
Rem ©   (2004-11-15 19:27) [3]

А в чем проблема?
record занимает участок памяти.
Эту память и сохраняйте.

>> если структура немного изменилась?
Где изменилась?


 
Maxim____   (2004-11-16 01:06) [4]

>А в чем проблема?
>record занимает участок памяти.
>Эту память и сохраняйте.

простите за неосведомлённость,
как это сделать?
или в каком разделе хелпа прочитать о том как это сделать?


 
Amoeba ©   (2004-11-16 11:37) [5]


> Rem ©   (15.11.04 19:27) [3]
> А в чем проблема?
> record занимает участок памяти.
> Эту память и сохраняйте.


А если среди полей записи есть длинные строки или динамические массивы? Что тогда? См. Суслик ©   (15.11.04 19:24) [2]


 
PVOzerski ©   (2004-11-16 12:13) [6]

IMHO, можно подумать об использовании TStream.ReadComponent и TStream.WriteComponent. Естественно, объекты и свойства подойдут уже не любые.


 
Maxim____   (2004-11-26 16:17) [7]

структура у меня сложная с динамическими массивами и проч.
но сохранять её очень надо..

я не знаю как получить доступ к бинарному виду простой record
например состоящей из чисел и строк, без массивов?

второй вопрос.
как сделать перечисление элементов записи или класса.
возможно ли такое
if tclass().elements[0] is integer then... :)
или это бред?

жду ваших умных мыслей!


 
Digitman ©   (2004-11-26 16:25) [8]


> Maxim____   (26.11.04 16:17) [7]


впору бросать нафих "батонобросание" и садиться за "умные" книги.
и раз и навсегда уяснить для себя, ЧТО на самом деле представляет из себя содержимое пеоременной того или иного типа.

без этого - никуда.


 
Ken   (2004-11-26 16:34) [9]


> структура у меня сложная с динамическими массивами и проч.
> но сохранять её очень надо..

Если очень надо сохранить - попробуй привести свою стуктуру к фиксрованному размеру, при етом фиксируй размер каждой переменной!

Всю ету структуру описывай в тип "запись" record и спокойно его сохраняй! Savetofile... LoadfromFile

Но учти, что тебе надо чтоб каждая переменная в типе записи имела фиксированный размер, т.е тебе придеться отказаться от перемен типа String (использую String[n], где n - его длина), от array of byte (придеться использовать array [0..n] of byte) и тд.


 
cae ©   (2004-11-26 16:51) [10]

Вот, для примера :

type
TMyClass = class
 Field1 : Integer ;
 Field2 : Double ;
 Field3 : String ;
 
 procedure WriteStream(Strm : TStream);
 procedure ReadStream(Strm : TStream);
end ;
...................
procedure TMyClass.WriteStream(Strm : TStream);
var
Writer : TWriter ;
begin
 Writer := TWriter.Create(Strm,4096);
 try
  with Writer do
   begin
    WriteInteger(Field1) ;
    WriteFloat(Field2) ;
    WriteString(Field3) ;
   end ; //with Writer
 finally
  Writer.Free ;
 end ;
end ;

procedure TMyClass.ReadStream(Strm : TStream);
var
Reader: TReader ;
begin
 Reader := TReader.Create(Strm ,4096);
try
  with Reader do
  begin
   Field1 := ReadInteger;
   Field2 := ReadFloat ;
   Field3 := ReadString ;
  end ; // with Reader
finally
 Reader.Free;
end ;
end ;



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

Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.58 MB
Время: 0.077 c
1-1101298848
Amadey
2004-11-24 15:20
2004.12.12
Проблема с формой в DLL


4-1099170552
ser_ega
2004-10-31 01:09
2004.12.12
Завершение Windows


1-1101366523
Павел
2004-11-25 10:08
2004.12.12
Формат файлов bpl, dcp,dcu


6-1096694442
PD
2004-10-02 09:20
2004.12.12
PHP и Делфи


1-1101545019
alo
2004-11-27 11:43
2004.12.12
можно получить элемент set а по строке?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский