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

Советы » Записи, индексы, поля, закладки » Сохранение TForm и ее свойств в BLOB-поле

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
;
  except

    on
 EFOpenError do

      {ничего};
  end
;
end
;

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

Другое по теме:

Категории

Статьи

Советы