Советы по 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);tryStream.WriteComponentRes(FormName, Form);finallyStream.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 doForm.Components[I].Free;Stream.ReadComponentRes(Form);finallyStream.Free;end;excepton EFOpenError do {ничего};end;end;

[000097]



Содержание раздела