4D v14.3

RESOURCE TYPE LIST

Página Inicial

 
4D v14.3
RESOURCE TYPE LIST

RESOURCE TYPE LIST 


 

RESOURCE TYPE LIST ( resTipos {; resArquivo} ) 
Parâmetro Tipo   Descrição
resTipos  Array cadeia in Lista de tipos resources disponíveis
resArquivo  DocRef in Número de referência do arquivo Resource, ou todos os arquivos de referência abertos, se omitido

O comando RESOURCE TYPE LIST preenche o array resTipos com os tipos de recursos presentes no(os) arquivo(s) de recursos aberto(s).

Se passa um número de referência de arquivo de recursos válido no parâmetro opcional resArquivo, apenas são listados os recursos desse arquivo. Se não passa resArquivo, são listados todos os recursos dos arquivos de recursos abertos.

Pode pré-declarar o array resTipos como um array tipo Alfa ou Texto antes de chamar a RESOURCE TYPE LIST. Se não pré-declarar o array, o comando cria resTipos como um array tipo Texto.

Depois da chamada, pode testar o número de tipo de recursos encontrados aplicando o comando Size of Array ao array resTipos.

O exemplo a seguir preenche o  array atResTipo com  os tipos de recursos presentes nos arquivos de recursos abertos:

 RESOURCE TYPE LIST(atResTipo)

O arquivo mostra se o arquivo de estrutura Mac OS usa o conteúdo dos antigos plug-ins 4D, que deverão ser atualizados para usar o banco em Windows:

 $vhResArquivo:=Open resource file(Structure file)
 RESOURCE TYPE LIST(atResTipo;$vhResArquivo)
 If(Find in array(atResTipo;"4DEX")>0)
    ALERT("Este banco contém os plug-ins 4D do modelo antigo."+(Char(13)*2)+
    "Terá que atualizá-los para utilizar este banco em Windows.")
 End if

Nota: O arquivo de estrutura não é o único arquivo no qual os plug-ins da versão anterior podem ser armazenados. O banco também pode incluir um arquivo Proc.Ext.

O método de projeto a seguir retorna o número de recursos presentes em um arquivo de recursos:

  ` Método de projeto Contar recursos
  ` Contar recursos ( Hora) -> Intero longo
  ` Contar recursos ( DocRef ) -> Número de recursos
 
 C_LONGINT($0)
 C_TIME($1)
 
 $0:=0
 RESOURCE TYPE LIST($atResTipo;$1)
 For($vlElem;1;Size of array($atResTipo))
    RESOURCE LIST($atResTipo{$vlElem};$alResNum;$atResNom;$1)
    $0:=$0+Size of array($alResNum)
 End for

Quando este método de projeto for implementado em um banco, pode escrever:

 $vhResArchivo:=Open resource file("")
 If(OK=1)
    ALERT("O arquivo “"+Document+"” contém "+String(Count resources($vhResArquivo))+" recurso(s).")
    CLOSE RESOURCE FILE($vhResArquivo)
 End if

 
PROPRIEDADES 

Produto: 4D
Tema: Recursos
Número 499

 
HISTÓRIA 

Criado por: 4D v6

 
VER TAMBÉM 

RESOURCE LIST

 
ARTICLE USAGE

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