Cabeçalho

RetImgType [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 26/04/2025 Diversos

Postagem

Descrição

RetImgType [AS] - 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
retimgtype_-_resultado_01