version 6.0
Lire nom ressource (resType; resNum{; resFichier}) Alpha
Paramètre | Type | Description | |
resType | Alpha | Type de ressource (4 caractères) | |
resNum | Numérique | Numéro de référence de ressource (ID) | |
resFichier | RefDoc | Numéro de référence du fichier de ressource ou | |
Tous les fichiers de ressources ouverts si omis | |||
Résultat | Alpha | Nom de la ressource |
Description
Lire nom ressource retourne le nom de la ressource dont le type est passé dans resType et le numéro de référence (ID) dans resNum.
Si vous ne passez pas le paramètre resFichier, la ressource est recherchée dans tous les fichiers de ressources ouverts. Si vous passez un numéro de référence de fichier de ressource dans le paramètre resFichier, la ressource n'est recherchée que dans ce fichier.
Si la ressource n'existe pas, Lire nom ressource retourne une chaîne vide et fixe la variable OK à 0 (zéro).
Exemple
La méthode projet suivante copie une ressource ainsi que son nom et ses attributs d'un fichier de ressources vers un autre :
` Méthode projet COPIER RESSOURCE ` COPIER RESSOURCE ( Alpha ; Entier long ; Heure ; Heure ) ` COPIER RESSOURCE ( typeRes ; IDRes ; fichierResSource ; fichierResDest ) C_ALPHA (4;$1) C_ENTIER LONG ($2) C_HEURE ($3;$4) C_BLOB ($vxResData) LIRE RESSOURCE ($1;$2;$vxData;$3) Si (OK=1) ECRIRE RESSOURCE ($1;$2;$vxData;$4) Si (OK=1) ECRIRE NOM RESSOURCE ($1;$2; Lire nom ressource ($1;$2;$3);$4) ECRIRE PROPRIETES RESSOURCE ($1;$2; Lire proprietes ressource ($1;$2;$3);$4) Fin de si Fin de si
Lorsque cette méthode projet est présente dans votre application, vous pouvez écrire :
` Copier la ressource 'DATA' ID = 15000 de fichier A au fichier B COPIER RESSOURCE ("DATA";15000;$vhFichResA;$vhFichResB)
Référence
Variables et ensembles système
La variable OK prend la valeur 0 si la ressource n'existe pas, sinon elle prend la valeur 1.