Get resource name

versión 6.0

Get resource name (resTipo; resNum{; resArchivo}) Alfa

El comando Get resource name devuelve el nombre del recurso cuyo tipo se pasa en resTipo y cuyo número de referencia (ID) en resNum.

Si pasa un número de referencia de archivo de recursos en el parámetro resArchivo, el recurso se busca en ese archivo únicamente. Si no pasa resArchivo, el archivo se busca en los archivos de recursos abiertos.

Si el recurso no existe, Get resource name devuelve una cadena vacía y fija el valor de la variable OK en 0 (cero).

El siguiente método de proyecto copia un recurso, así como su nombre y atributos, de un archivo de recursos a otro:

      ` Método de proyecto COPIAR RECURSO 
      ` COPIAR RECURSO ( Alfa; Entero largo ; Hora ; Hora )
      ` COPIAR RECURSO ( tipoRes ; IDRes ; srcResArchivo ; dstResArchivo )

   C_STRING (4;$1)
   C_LONGINT ($2)
   C_TIME ($3;$4)
   C_BLOB ($vxResDatos)

   GET RESOURCE ($1;$2;$vxDatos;$3)
   If (OK=1)
      SET RESOURCE ($1;$2;$vxDatos;$4)
      If (OK=1)
         SET RESOURCE NAME ($1;$2; Get resource name ($1;$2;$3);$4)
         SET RESOURCE PROPERTIES ($1;$2; Get resource properties ($1;$2;$3);$4)
      End if
   End if

Una vez este método de proyecto esté en su aplicación, puede escribir:

      ` Copiar el recurso 'DATA' ID = 15000 del archivo A al archivo B
   COPY RESOURCE ("DATA";15000;$vhResArchivoA;$vhResArchivoB)

SET RESOURCE PROPERTIES.

La variable sistema OK toma el valor 0 si el recurso no existe, de lo contrario toma el valor 1.