PICTURE LIBRARY LIST

4D v20 R7


PICTURE LIBRARY LIST ( refsImag ; nomsImag )

Parámetro	Tipo	Descripción
refsImag	Array entero largo	Números de referencia de las imágenes de la librería de imágenes
nomsImag	Array cadena	Nombres de las imágenes de la librería de imágenes

Descripción

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.

Ejemplo 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)

Ejemplo 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

Ejemplo 3

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

 PICTURE LIBRARY LIST($alPicRef;$asPicName)

 $vlNbPictures:=Size of array($alPicRef)

 If($vlNbPictures>0)

    SET CHANNEL(12;"")

    If(OK=1)

       $vsTag:="4DV6PICTURELIBRARYEXPORT"

       SEND VARIABLE($vsTag)

       SEND VARIABLE($vlNbPictures)

       gError:=0

       For($vlPicture;1;$vlNbPictures)

          $vlPicRef:=$alPicRef{$vlPicture}

          $vsPicName:=$asPicName{$vlPicture}

          GET PICTURE FROM LIBRARY($alPicRef{$vlPicture};$vgPicture)

          If(OK=1)

             SEND VARIABLE($vlPicRef)

             SEND VARIABLE($vsPicName)

             SEND VARIABLE($vgPicture)

          Else

             $vlPicture:=$vlPicture+1

             gError:=-108

          End if

       End for

       SET CHANNEL(11)

       If(gError#0)

          ALERT("La librería de imágenes no pudo exportarse, inténtelo con más memoria.")

          DELETE DOCUMENT(Document)

       End if

    End if

 Else

    ALERT("La librería de imágenes está vacía.")

 End if

Ver también

GET PICTURE FROM LIBRARY
REMOVE PICTURE FROM LIBRARY
SET PICTURE TO LIBRARY