Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

Retorna o tipo de imagem ( BMP ou JPG ) a partir de um path informado por parâmetro.

Sintaxe

RetImgType( < cPath > )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cPath	caractere	Indica o path completo da imagem.	X

Retorno

Nome	Tipo	Descrição
nRet	numérico	Tipo da imagem, onde: 1 = Bitmap e 2 = JPG

Observações

Caso seja especificado um path sem a unidade de disco, o mesmo será considerado no ambiente do servidor, a partir do RootPath do ambiente (caso o path comece com \ ou /), ou a partir do StartPath do ambiente (caso o path não seja iniciado com \ ou /).
Quando um path absoluto é especificado (com unidade de disco preenchida), a função será executada na estação em que o SmartClient está em execução.
O caminho de cPath será convertido para letra minúscula. A partir da build 7.00.121227A, o caminho não será convertido para letra minúscula para Logix.

Exemplos

user function Exemplo ()
  Local cFile := "C:\totvs\bin\smartclient\totvs.jpg"
  Local nImgType := RetImgType( cFile )
  if nImgType == 1 // BMP
    conout("Arquivo BMP")
  elseif nImgType == 2 // JPG
    conout("Arquivo JPG")
  else
    conout("Arquivo nao encontrado ou nao identificado!")
  endif
Return

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10