Сохранение TForm и/или ее свойств в BLOB-поле

Written on 18 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

procedure SaveToField(FField:TBlobField;Form:TComponent);
var

Stream: TBlobStream;

FormName: string;

begin

FormName := Copy(Form.ClassName, 2, 99);

Stream := TBlobStream.Create(FField, bmWrite);

try

Stream.WriteComponentRes(FormName, Form);

finally

Stream.Free;

end;

end;

procedure LoadFromField(FField:TBlobField;Form:TComponent);
var

Stream: TBlobStream;

I: integer;

begin

try

Stream := TBlobStream.Create(FField, bmRead);

try

{удаляем все компоненты}

for I := Form.ComponentCount - 1 downto 0 do

Form.Components[I].Free;

Stream.ReadComponentRes(Form);

finally

Stream.Free;

end;

on EFOpenError do {ничего};

end;