PICTURE LIBRARY LIST

versión 6.0.2

PICTURE LIBRARY LIST (refsImag; nomsImag)

El comando PICTURE LIBRARY LIST devuelve los números de referencia y los nombres de las imágenes almacenadas en la librería de imágenes de la base de datos.

Después de llamarlo, usted recupera los números de referencia en el array refsImag y los nombres en el array nomsImag. Los dos arrays están sincronizados: el elemento n de refsImag es el número de referencia de la imagen de la librería cuyo nombre es devuelto en el elemento n de nomsImagenes.

Si es necesario, el comando crea y dimensiona automáticamente los arrays refsImagenes y nomsImagenes.

La longitud máxima del nombre de una imagen de la librería es de 255 caracteres.

Si la librería de imágenes está vacía, los dos arrays devueltos estarán vacíos.

Para obtener el número de imágenes almacenadas actualmente en la librería de imágenes, utilice el comando Size of Array para obtener el tamaño de uno de los dos arrays.

1. El siguiente código devuelve el catálogo de la librería de imágenes en los arrays alRefImag y asNomImag:

   PICTURE LIBRARY LIST(alRefImag ;asNomImag)

2. El siguiente ejemplo prueba si la librería de imágenes está vacía o no:

   PICTURE LIBRARY LIST(alRefImag ;asNomImag)
   If (Size of array(alRefImag )=0)
      ALERT("La librería de imágenes está vacía.")
   Else
      ALERT("La librería de imágenes contiene "+String(Size of array(alRefImag ))+" imágenes.")
   End if

3. El siguiente ejemplo exporta la librería de imágenes a un documento almacenado en el disco:

   PICTURE LIBRARY LIST($alRefImag ;$asNomImag)
   $vlNbImagenes:=Size of array($alRefImag)
   If ($vlNbImagenes>0)
      SET CHANNEL(12;"")
      If (OK=1)
         $vsTag:="4DV6PICTURELIBRARYEXPORT"
         SEND VARIABLE($vsTag)
         SEND VARIABLE($vlNbImagenes)
         gError:=0
         For($vlImagen;1;$vlNbImagenes)
            $vlRefImag:=$alRefImag{$vlImagen}
            $vsNomImag:=$asNomImag{$vlImagen}
            GET PICTURE FROM LIBRARY($

{$vlimagen};$vgImagen)
            If (OK=1)
               SEND VARIABLE($vlRefImag)
               SEND VARIABLE($vsNomImag)
               SEND VARIABLE($vgImagen)
            Else
               $vlImagen:=$vlNbImagenes+1
               gError:=-108
            End if
         End for
         SET CHANNEL(11)
         If (gError#0)
            ALERT("La librería de imágenes no pudo ser exportada, trate nuevamente con más memoria.")
            DELETE DOCUMENT (Document)
         End if
      End if
   Else
      ALERT("La librería de imágenes está vacía.")
   End if

GET PICTURE FROM LIBRARY, REMOVE PICTURE FROM LIBRARY, SET PICTURE TO LIBRARY.