4D Doc Center : Get resource name

4D v12.4

Get resource name


Get resource name ( resTipo ; resNum {; resArquivo} ) -> Resultado

Parâmetro	Tipo	Descrição
resTipo	cadeia	Tipo de resource de 4 caracteres
resNum	Inteiro longo	Número resource
resArquivo	DocRef	Número de referência do arquivo Resource, ou todos os arquivos de referência abertos, se omitido
Resultado	cadeia	Nome do recurso

Descrição

O comando Get resource name retorna o nome do recurso cujo tipo se passa em resTipo e cujo número de referência (ID) em resNum.

Se passa um número de referência de arquivo de recursos no parâmetro resArquivo, o recurso é pesquisado apenas nesse arquivo. Se não passa resArquivo, o arquivo é pesquisado nos arquivos de recursos que estão abertos.

Se o recurso não existir, Get resource name retorna uma cadeia vazia.

Exemplo

O seguinte método de projeto copia um recurso, assim como seu nome e atributos, de um arquivo de recursos a outro:

  ` Método de projeto COPIAR RECURSO

  ` COPIAR RECURSO ( Alfa; Inteiro longo ; Hora ; Hora )

  ` COPIAR RECURSO ( tipoRes ; IDRes ; srcResArquivo ; dstResArquivo )

 

 C_STRING(4;$1)

 C_LONGINT($2)

 C_TIME($3;$4)

 C_BLOB($vxResDados)

 

 GET RESOURCE($1;$2;$vxDados;$3)

 If(OK=1)

    SET RESOURCE($1;$2;$vxDados;$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

Quando este método de projeto estiver em sua aplicação, pode escrever:

  ` Copiar o recurso 'DATA' ID = 15000 do arquivo A ao arquivo B

 COPY RESOURCE("DATA";15000;$vhResArquivoA;$vhResArquivoB)