Сохранение TObject в файл

Question

Как сохранить объект в его текущем состоянии в файл? Чтобы его можно было сразу читать и восстанавливать со всеми его переменными.

Answer 1

То, что вы ищете, называется сопротивлением объекта. Этот article может помочь, и есть много других, если вы google для «delphi сохраняющихся объектов».

Answer 2

There is a good tutorial here. Имейте в виду, что вам необходимо иметь RTTI (информацию о типе времени выполнения) для сохранения объекта во время выполнения с использованием этого подхода, поэтому он будет записывать только свойств класса.

Answer 3

Также есть рулонный XML method здесь, на S.O.

Answer 4

Если вы спускаете свой объект из TComponent, вы можете использовать некоторые встроенные функции для потоковой передачи объекта в файл. Я думаю, что это работает только для простых объектов.

Некоторые примеры кода, чтобы вы начали:

unit Unit1; 

interface 

uses 
    Classes; 

type 
    TMyClass = class(TComponent) 
    private 
    FMyInteger: integer; 
    FMyBool: boolean; 
    FMyString: string; 
    public 
    procedure ToFile(AFileName: string); 
    published 
    property MyInteger: integer read FMyInteger write FMyInteger; 
    property MyString: string read FMyString write FMyString; 
    property MyBool: boolean read FMyBool write FMyBool; 
    end; 

implementation 

{ TMyClass } 

procedure TMyClass.ToFile(AFileName: string); 
var 
    MyStream: TFileStream; 
begin 
    MyStream := TFileStream.Create(AFileName); 
    try 
    Mystream.WriteComponent(Self); 
    finally 
    MyStream.Free; 
    end; 
end; 

end. 

Answer 5

Как уже говорилось, самый простой способ заключается в использовании поток и его WriteComponent и ReadComponent методы.
Но быть в курсе, что:
- это работает для потомков TComponent, не простой TObject;
- только для опубликованных свойств (сохраненных в dfm), а не публичных и (тем более) личных;
- вы должны обратить особое внимание на свойство Name при восстановлении компонента.

Вы можете найти код, который вы могли бы использовать в этих SO ответов: Replace visual component at runtime in Delphi, Duplicating components at Run-Time

Answer 6

Вы уже получили некоторые хорошие ответы на ваш вопрос. В зависимости от того, что вы на самом деле делаете, может быть желательно использовать предварительно созданную библиотеку или компонент для сохранения объектов. Это недорогой и изящный набор библиотек/компонентов, который делает его тривиальным для сохранения и восстановления объектов, и довольно легко (т. Е. С небольшим количеством кода) вмещает сохраняющиеся даже неопубликованные элементы объекта: http://www.deepsoftware.ru/rsllib/index.html Не то, что это ракетостроение, но если вы делаете много таких вещей, этот компонент обеспечивает хорошую инфраструктуру для этого.

Developer Express также включает компонент общего назначения cxPropertiesStore как часть библиотеки ExpressEditors, которая поставляется с некоторыми из их компонентов.

Answer 7

1. Очень простое и эффективное решение: DragonSoft's XML Class Serializer

2. Также вы можете использовать JVCL TJvAppXMLFileStorage:

   использует JvAppXMLStorage;

   var 
       Storage: TJvAppXMLFileStorage; 
   begin 
       Storage := TJvAppXMLFileStorage.Create(nil); 
       try 
       Storage.WritePersistent('', MyObject); 
       Storage.Xml.SaveToFile('S:\TestFiles\Test.xml'); 
       Storage.Xml.LoadFromFile('S:\TestFiles\Test.xml'); 
       Storage.ReadPersistent('', MyObject); 
       finally 
       Storage.Free; 
       end; 
   end;