|
|
|
|
|
|
|
|
|
|
|
version 6.0.2
LISTE IMAGES DANS BIBLIOTHEQUE (RefsImages; NomsImages)
| Paramètre | Type | Description | |
| RefsImages | Tab Entier long |  | Numéros de référence des images stockées dans la |
| bibliothèque d'images | |||
| NomsImages | Tab Chaîne | | Noms des images stockées dans la bibliothèque |
| d'images |
Description
La commande LISTE IMAGES DANS BIBLIOTHEQUE retourne les numéros de référence et le nom des images stockées dans la bibliothèque d'images de la base de données.
Après l'appel, vous récupérez les numéros de référence des images dans le tableau RefsImages et leurs noms dans le tableau NomsImages. Les deux tableaux sont synchronisés : le nième élément de RefsImages est le numéro de référence de l'image de la bibliothèque dont le nom est retourné dans le nième élément de NomsImages.
Si nécessaire, la commande crée et dimensionne automatiquement les tableaux RefsImages et NomsImages.
La longueur maximale du nom d'une image de la bibliothèque est de 255 caractères.
Si la bibliothèque d'images est vide, les deux tableaux retournés seront vides.
Pour obtenir le nombre d'images contenues dans la bibliothèque, il vous suffit de tester la taille d'un des deux tableaux à l'aide de la fonction Taille tableau.
Exemples
(1) Le code suivant retourne le contenu de la bibliothèque d'images dans les tableaux telRefImage et taNomImage :
LISTE IMAGES DANS BIBLIOTHEQUE(telRefImage;taNomImage)
(2) L'exemple suivant teste si la bibliothèque d'images est vide ou non :
LISTE IMAGES DANS BIBLIOTHEQUE(telRefImage;taNomImage)
Si (Taille tableau(telRefImage)=0)
ALERTE("La bibliothèque d'images est vide.")
Sinon
ALERTE("La bibliothèque d'images contient "+Chaine(Taille tableau(tlRefImage))+" images.")
Fin de si
(3) L'exemple suivant exporte la Bibliothèque d'Images vers un document stocké sur disque :
LISTE IMAGES DANS BIBLIOTHEQUE($alRefImage;$asNomImage)
$vlNbImages:=Taille tableau($alRefImage)
Si ($vlNbImages>0)
REGLER SERIE(12;"")
Si (OK=1)
$vsTag:="4DV6PICTURELIBRARYEXPORT"
ENVOYER VARIABLE($vsTag)
ENVOYER VARIABLE($vlNbImages)
gError:=0
Boucle($vlImage;1;$vlNbImages)
$vlRefImage:=$alRefImage{$vlImage}
$vsNomImage:=$asNomImage{$vlImage}
LIRE IMAGE DANS BIBLIOTHEQUE($alRefImage{$vlImage};$vgImage)
Si (OK=1)
ENVOYER VARIABLE($vlRefImage)
ENVOYER VARIABLE($vsNomImage)
ENVOYER VARIABLE($vgImage)
Sinon
$vlImage:=$vlNbImages+1
gError:=-108
Fin de si
Fin de boucle
REGLER SERIE(11)
Si (gError#0)
ALERTE("La bibliothèque d'images n'a pas pu être exportée, recommencez avec davantage de mémoire.")
SUPPRIMER DOCUMENT (Document)
Fin de si
Fin de si
Sinon
ALERTE("La bibliothèque d'images est vide.")
Fin de si
Référence
ECRIRE IMAGE DANS BIBLIOTHEQUE, LIRE IMAGE DANS BIBLIOTHEQUE, SUPPRIMER IMAGE DANS BIBLIOTHEQUE.
|
|
|
|
|
|
|
|
|
|
|