Get resource name

Version 6.0

Get resource name (ResTyp; ResNR{; ResDatei}) String

Die Funktion Get resource name gibt den Namen der Ressource vom Typ ResTyp und mit der Kennummer ResNR zurück.

Gibt es die Ressource nicht, gibt Get resource name einen leeren String zurück, die OK Variable wird auf 0 (Null) gesetzt.

Übergeben Sie in ResDatei eine gültige Referenznummer für die Ressourcendatei, wird die Ressource nur in dieser Datei gesucht. Übergeben Sie ResDatei nicht, wird die Ressource in den derzeit geöffneten Ressourcendateien gesucht.

Folgende Projektmethode kopiert eine Ressource mit ihrem Namen und den Attributen von einer Ressourcendatei in eine andere:

      ` Projektmethode COPY RESOURCE 
      ` COPY RESOURCE ( String ; Lange Ganzzahl ; Zeit ; Zeit )
      ` COPY RESOURCE ( ResTyp ; ResNR ; QuellResDatei ; ZielResDatei )

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

   GET RESOURCE ($1;$2;$vxData;$3)
   If (OK=1)
      SET RESOURCE ($1;$2;$vxData;$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

Ist diese Projektmethode in Ihre Anwendung integriert, können Sie schreiben:

      ` Kopiere die Ressource 'DATA' NR = 15000 aus Datei A to file B
   COPY RESOURCE ("DATA";15000;$vhResFileA;$vhResFileB)

SET RESOURCE PROPERTIES.

Gibt es die Ressource nicht, wird die OK Variable auf 0 (Null) gesetzt, sonst auf 1.