RESOURCE LIST

Home

4D v18

RESOURCE LIST


RESOURCE LIST ( ResTyp ; ResID ; ResNamen {; ResDatei} )

Parameter	Typ	Beschreibung
ResTyp	String	Ressourcentyp mit 4 Zeichen
ResID	Array Lange Ganzzahl	Ressourcennummern für Ressourcen dieses Typs
ResNamen	Array String	Ressourcennamen für Ressourcen dieses Typs
ResDatei	DokRef	Referenznummer der Ressourcendatei Ohne Angabe alle geöffneten Ressourcendateien

Beschreibung

Der Befehl RESOURCE LIST füllt die Arrays ResDatei und ResNamen mit den Ressourcennummern ResID und den Ressourcennamen vom Typ ResTyp.

Wichtig: Sie müssen in ResTyp einen String mit 4 Zeichen übergeben.

Übergeben Sie im optionalen Parameter ResDatei eine gültige Referenznummer für die Ressourcendatei, erscheinen nur die Ressourcen aus dieser Datei. Übergeben Sie diesen Parameter nicht, erscheinen alle Ressourcen aus den derzeit geöffneten Ressourcendateien.

Legen Sie vor dem Aufrufen von RESOURCE LIST Array-Typen fest, müssen Sie ResID als Array vom Typ Lange Ganzzahl und ResNamen als Array vom Typ String oder Text festlegen. Legen Sie nichts fest, erstellt der Befehl ResID als Array vom Typ Lange Ganzzahl und ResNamen als Array vom Typ Text.

Nach dem Aufruf können Sie über die Funktion Size of array die Anzahl der gefundenen Ressourcentypen im Array ResID oder ResNamen prüfen.

Beispiel 1

Folgendes Beispiel füllt die Arrays $alResID und $atResName mit den Nummern und Namen der String Ressourcen, die in der Datenbank vorhanden sind:

 If(On Windows)

    $vhStructureResFile:=Open resource file(Replace string

    (Structure file;".4DB";".RSR"))

 Else

    $vhStructureResFile:=Open resource file(Structure file)

 End if

 If(OK=1)

    RESOURCE LIST("STR#";$alResID;$atResName;$vhStructureResFile)

 End if

Beispiel 2

Folgendes Beispiel kopiert alle Ressourcen vom Typ Bild aus den derzeit geöffneten Ressourcendateien in die Bildbibliothek der Datenbank:

 RESOURCE LIST("PICT";$alResID;$atResName)

 Open window(50;50;550;120;5;"Kopiere PICT Ressourcen...")

 For($vlElem;1;Size of array($alResID))

    GET PICTURE RESOURCE($alResID{$vlElem};$vgPicture)

    If(OK=1)

       $vsName:=$atResName{$vlElem}

       If($vsName="")

          $vsName:="PICT resID="+String($alResID{$vlElem})

       End if

       ERASE WINDOW

       GOTO XY(2;1)

       MESSAGE("Bild “"+$vsName+"” in der DB Bildbibliothek hinzufügen.")

       SET PICTURE TO LIBRARY($vgPicture;$alResID{$vlElem};$vsName)

    End if

 End for

 CLOSE WINDOW

Siehe auch

RESOURCE TYPE LIST