Ver Mensaje Individual
  #1  
Antiguo 26-05-2006
DANY DANY is offline
Miembro
 
Registrado: nov 2003
Posts: 145
Reputación: 23
DANY Va por buen camino
Guardar Config. del formulario en BD

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...
Responder Con Cita