Descrição
| Retorna o tipo da imagem informada por parâmetro. Para isso, essa função abre o arquivo e verifica se o formato é BMP – Bitmap ou JPG – Joint Photographic Group. |
Sintaxe
| RetImgType( <cImgPath> ) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cImgPath | Caracter | Indica o diretório da imagem para identificar o tipo | X |
Retorno
| Retorno | Tipo | Descrição |
| nRet | Numérico |
Retorna o tipo da imagem. Sendo: 1= Bitmap e 2=JPG |
Exemplo
#INCLUDE "TOTVS.CH"
User Function RetImgType()
Local nImgType := RetImgType( '\05.-curso-mvc-1030x781.jpg' )
If nImgType == 1
MsgInfo('Arquivo BMP', 'UniversoADVPL')
ElseIf nImgType == 2
MsgInfo('Arquivo JPG', 'UniversoADVPL')
Endif
Return( Nil )
Resultado
Informações adicionais
|
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎