Hi.
For example:
Save schema
CODE
procedure Tfm_cm_FCCube.ai_SaveSchemaExecute(Sender: TObject);
var
TempStream : TStringStream;
ASchema : String;
begin
try
TempStream := TStringStream.Create('');
try
TempStream.Position := 0;
fcSlice.SaveToStream(TempStream);
ASchema := TempStream.DataString;
finally
TempStream.Free;
end; (*try*)
qu_UpdQuerys.ParamByName('NameQuery').AsString := ANameQuery;
qu_UpdQuerys.ParamByName('Schema').AsBlob := ASchema;
qu_UpdQuerys.ExecSQL;
except
end; (*try*)
end;
Load schema
CODE
procedure Tfm_cm_FCCube.ai_LoadSchemaExecute(Sender: TObject);
var
TempStream : TStringStream;
ASchema : String
begin
ASchema := qu_Querys.FieldByName('Schema').AsBlob;
if ASchema <> '' then
begin
try
TempStream := TStringStream.Create(ASchema);
try
TempStream.Position := 0;
fcSlice.LoadFromStream(TempStream);
finally
TempStream.Free;
end; (*try*)
except
end; (*try*)
end; (*if*)
end;
Oleg.