Советы по Delphi


              

Сохранение 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;

[000097]



Содержание  Назад  Вперед