BLOBROOTPUT()
 Almacena datos en el  rea raíz de un fichero BLOB
------------------------------------------------------------------------------
 Sintaxis

     BLOBROOTPUT(<uBLOB>) --> lExito

 Argumentos

     <uBLOB> son los datos que se desean almacenar en el  rea raíz del
     fichero BLOB. Los datos de <uBLOB> pueden ser cualquier tipo de datos
     de CA-Clipper excepto bloques de código y objetos.

 Devuelve

     BLOBROOTPUT() devuelve verdadero (.T.) si tiene éxito; en caso
     contrario devuelve falso (.F.).

 Descripción

     BLOBROOTPUT() permite almacenar una, y sólo una, porción de datos en el
     rea raíz de un fichero BLOB (no hay limitación de tamaño para la
     porción de datos). Después de almacenar los nuevos datos, BLOBROOTPUT()
     libera el espacio asociado a los datos almacenados previamente en el
     rea raíz del fichero BLOB.

     Por defecto, esta función opera en el  rea de trabajo seleccionada. Si
     desea utilizarla en otra  rea de trabajo, debe especificarla con una
     expresión de alias.

     Nota: Debido a que los datos de el  rea raíz no hacen referencia a
     ningún registro de la base de datos, DBRLOCK() no protege los datos
     almacenados en el  rea raíz. Por consiguiente, si el fichero de la base
     de datos se abrió en modo compartido, se debe utilizar BLOBROOTLOCK()
     antes de llamar a BLOBROOTPUT().

 Ejemplos

      Este ejemplo utiliza BLOBROOTPUT() para almacenar los
        par metros del sistema después de modificarlos:

        FUNCTION ACTUALIZARPARAMETROS()
           LOCAL aParams

           USE Cliente NEW SHARED VIA "DBFCDX"

           IF BLOBROOTLOCK()
              // Se obtienen los par metros actuales
              aParams := BLOBROOTGET()

              IF Empty(aParams)
                  // Se rellena aParams con datos por defecto
                  aParams := GETDEFAULTSETTINGS()
              ENDIF

              // Esta función permitiría al usuario modificar
              // los par metros
              IF ModificarParams(aParams)
                  // Finalmente, se almacenan los par metros
                  BLOBROOTPUT(aParams)
              ENDIF
              BLOBROOTUNLOCK()
           ELSE
              aParams := {}

              Alert("Es posible que se pueda bloquear el  rea raíz")
           ENDIF

           CLOSE

           RETURN aParams

 To download this example - click here.

See Also: BLOBROOTGET() BLOBROOTLOCK()