LISTE RESSOURCES

4D - Documentation   Français   English   German   Español   Japanese   4D v11 SQL, Commandes par thèmes   4D v11 SQL, Liste alphabétique des commandes   4D v11 SQL, Constantes par thèmes   Retour   Précédent   Suivant

version 6.0


LISTE RESSOURCES (resType; resNums; resNoms{; resFichier})

ParamètreTypeDescription
resTypeAlphaType de ressource (4 caractères)
resNumsTableau E. longNuméros des ressources de ce type
resNomsTableau alphaNoms des ressources de ce type
resFichierDocRefNuméro de référence de fichier de ressources ou
tous les fichiers de ressources ouverts si ce
paramètre est omis

Description

La commande LISTE RESSOURCES remplit les tableaux resNums et resNoms avec les numéros et les noms des ressources dont vous avez passé le type dans resType.

Important : Vous devez passez dans resType une chaîne de 4 caractères.

Si vous passez un numéro de référence de fichier de ressources valide dans le paramètre optionnel resFichier, seules les ressources présentes dans ce fichier seront listées. Si vous ne passez pas le paramètre resFichier, toutes les ressources de tous les fichiers de ressources ouverts seront listées.

Si vous ne pré-déclarez pas les tableaux resNums et resNoms avant d'appeler LISTE RESSOURCES, la commande créera par défaut le tableau resNums avec le type Entier long et resNoms avec le type Texte. Si vous pré-déclarez les tableaux, vous devez attribuer le type Entier long à resNums, mais pouvez attribuer le type Alpha ou Texte à resNoms.

Après l'appel, vous pouvez tester le nombre de ressources qui ont été trouvées en appliquant la commande Taille tableau au tableau resNums ou resNoms.

Exemples

(1) L'exemple suivant remplit les tableaux $alResNum et $atResNom avec les numéros et les noms des ressources de type Listes de chaînes présentes dans le fichier de structure de la base :

   Si (Sous Windows)
      $vhStructureResFile:=Ouvrir fichier ressources(Remplacer chaine (Fichier structure;".4DB";".RSR"))
   Sinon
      $vhStructureResFile:=Ouvrir fichier ressources(Fichier structure)
   Fin de si
   Si (OK=1)
      LISTE RESSOURCES("STR#";$alResNum;$atResNom;$vhStructureResFile)
   Fin de si

(2) L'exemple suivant copie dans la bibliothèque d'images de la base les ressources image présentes dans tous les fichiers de ressources ouverts :

   LISTE RESSOURCES("PICT";$alResNum;$atResNom)
   Creer fenetre(50;50;550;120;5;"Copie des ressources PICT...")
   Boucle ($vlElem;1;Taille tableau($alResNum))
      LIRE RESSOURCE IMAGE($alResNum{$vlElem};$vgImage)
      Si (OK=1)
         $vsNom:=$atResNom{$vlElem}
         Si ($vsNom="")
            $vsNom:="PICT resID="+Chaine($alResNum{$vlElem})
         Fin de si 
         EFFACER FENETRE
         POSITION MESSAGE(2;1)
         MESSAGE("Ajout de l'image ""+$vsNom+"" à la bibliothèque d'images de la base.")
         ECRIRE IMAGE DANS BIBLIOTHEQUE($vgImage;$alResNum{$vlElem};$vsNom)
      Fin de si 
   Fin de boucle 
   FERMER FENETRE   

Référence

LISTE TYPES RESSOURCE.


4D - Documentation   Français   English   German   Español   Japanese   4D v11 SQL, Commandes par thèmes   4D v11 SQL, Liste alphabétique des commandes   4D v11 SQL, Constantes par thèmes   Retour   Précédent   Suivant