4D v14.3

PICTURE LIBRARY LIST

Página Inicial

 
4D v14.3
PICTURE LIBRARY LIST

PICTURE LIBRARY LIST 


 

PICTURE LIBRARY LIST ( refsImagem ; nomsImagem ) 
Parâmetro Tipo   Descrição
refsImagem  Array inteiro longo in Números de referência dos gráficos da biblioteca de Imagens
nomsImagem  Array cadeia in Nomes dos gráficos da biblioteca de Imagens

O comando PICTURE LIBRARY LIST devolve os números de referência e os nomes das imagens armazenadas na biblioteca de imagens do banco de dados.

Depois de chamá-lo, você recupera os números de referência no array refsImagem e os nomes no array nomsImagem. Os dois arrays estão sincronizados: o elemento n de refsImagem é o número de referência da imagem da biblioteca cujo nome é devolvido no elemento n de nomsImagem.

Se for necessário, o comando cria e dimensiona automaticamente os arrays refsImagem e nomsImagem.

A longitude máxima do nome de uma imagem da biblioteca é de 255 caracteres.

Se a biblioteca de imagens estiver vazia, os dois arrays devolvidos estarão vazios.

Para obter o número de imagens armazenadas atualmente na biblioteca de imagens, utilize o comando Size of Array para obter o tamanho de um dos dois arrays.

O código a seguir devolve o catálogo da biblioteca de imagens nos arrays alRefImag e asNomImag:

 PICTURE LIBRARY LIST(alRefImag;asNomImag)

O exemplo a seguir prova se a biblioteca de imagens está vazia ou não:

 PICTURE LIBRARY LIST(alRefImag;asNomImag)
 If(Size of array(alRefImag)=0)
    ALERT("A biblioteca de imagens está vazia.")
 Else
    ALERT("A biblioteca de imagens contém "+String(Size of array(alRefImag))+" imagens.")
 End if

O exemplo a seguir exporta a biblioteca de imagens a um documento armazenado no disco:
 

 PICTURE LIBRARY LIST($alRefImag ;$asNomImag)
 $vlNbImagens:=Size of array($alRefImag)
 If($vlNbImagens>0)
    SET CHANNEL(12;"")
    If(OK=1)
       $vsTag:="4DV6PICTURELIBRARYEXPORT"
       SEND VARIABLE($vsTag)
       SEND VARIABLE($vlNbImagens)
       gError:=0
       For($vlImagem;1;$vlNbImagens)
          $vlRefImag:=$alRefImag{$vlImagem}
          $vsNomImag:=$asNomImag{$vlImagem}
          GET PICTURE FROM LIBRARY($<span class="rte4d_prm">alRefImag</span><gen9>{$vlimagem};$vgImagem)
          If(OK=1)
             SEND VARIABLE($vlRefImag)
             SEND VARIABLE($vsNomImag)
             SEND VARIABLE($vgImagem)
          Else
             $vlImagem:=$vlImagem+1
             gErro:=-108
          End if
       End for
       SET CHANNEL(11)
       If(gErro#0)
          ALERT("A biblioteca de imagens não pode ser exportada, trate novamente com mais memória.")
          DELETE DOCUMENT(Document)
       End if
    End if
 Else
    ALERT("A biblioteca de imagens está vazia.")
 End if</gen9>

 
PROPRIEDADES 

Produto: 4D
Tema: Imagens
Número 564

 
HISTÓRIA 

Criado por: 4D v6.0.2

 
VER TAMBÉM 

GET PICTURE FROM LIBRARY
REMOVE PICTURE FROM LIBRARY
SET PICTURE TO LIBRARY

 
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)