4D v14.3

RESOURCE LIST

Home

 
4D v14.3
RESOURCE LIST

RESOURCE LIST 


 

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

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.

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

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

 
EIGENSCHAFTEN 

Produkt: 4D
Thema: Ressourcen
Nummer: 500

 
GESCHICHTE 

Erstellt: 4D v6

 
SIEHE AUCH 

RESOURCE TYPE LIST

 
ARTIKELVERWENDUNG

4D Programmiersprache ( 4D v12.4)
4D Programmiersprache ( 4D v11 SQL Release 6)
4D Programmiersprache ( 4D v14 R3)
4D Programmiersprache ( 4D v14 R2)
4D Programmiersprache ( 4D v13.5)
4D Programmiersprache ( 4D v14.3)
4D Programmiersprache ( 4D v14 R4)