Necesito grabar la configuracion de un formulario en la base de datos. La idea central es que un usuario con permisos alterre las propiedades de los componentes (Visible, enabled, posicion, etc.) y lo guarde en un determinado perfil para manejo de seguridad.
El codigo de roman que encontre hace lo que necesito.
pero grabando en un archivo y lo necesito grabar en la BD. para ello utilizo un campo Imgen en SQL Server, utilizo ADO.
El Codigo de roman decia:
Código Delphi
[-]
function TForm1.FormFileName: String;
begin
Result := ExtractFilePath(Application.ExeName) + ClassName + '.bin';
end;
procedure TForm1.Load;
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(FormFileName, fmOpenRead or fmShareDenyWrite);
try
Stream.ReadComponent(Self);
finally
Stream.Free;
end;
end;
procedure TForm1.Save;
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(FormFileName, fmCreate);
try
Stream.WriteComponent(Self);
finally
Stream.Free;
end;
end;
Necesito los metodos load y save pero leyendo de la base.
Gracias...