Ver Mensaje Individual
  #5  
Antiguo 01-06-2006
DANY DANY is offline
Miembro
 
Registrado: nov 2003
Posts: 145
Reputación: 23
DANY Va por buen camino
Ya lo resolvi

la unica manera fue, como decia roman en un foro que consulte al respecto redefinir el create del form. Si no, no encontre la forma de asignar el contenido del Blob de la BD al Form.
Este es el Codigo:
Código Delphi [-]
constructor TfPlanillaABM.Create(AOwner: TComponent);
var    Stream: TStringStream ;
       PermisosAColocar: TPermisosUsuariosFormularios ;
begin

  CreateNew(AOwner);
  PermisosAColocar := TPermisosUsuariosFormularios.CrearParaColocarPermisos(FormularioActivo,UsuarioActivo.CodigoUsuario ); 
  if PermisosAColocar.ExistenPermisosDeUsuarioEnFormulario  then
  Begin
    try
      Stream := TStringStream.Create(PermisosAColocar.DevuelveCadenaStringDelFrmulario );
      Stream.ReadComponent(Self);

    finally
      FreeAndNil(Stream);
      FreeAndNil(PermisosAColocar); 
    End;
  End
  Else
    inherited Create(AOwner);

  PrepararFormulario ;
  
end;
en donde permisos a colocar hace una consulta a la base que lee el campo blob guardado y lo devuelve como string.
Muchas gracias por la ayuda y pos su tiempo
Responder Con Cita