TOTVSTEC

Árvore de páginas

Converte uma imagem do tipo BMP (Bitmap) para JPG (Joint Photographic Group).

Sintaxe

BmpToJpg ( < cFileOld>, < cFileNew> ) --> nRet

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cFileOld

caractere

Indica o caminho, respeitando o diretório do Application Server, e o nome do arquivo, com extensão BMP (Bitmap), de origem.

X


cFileNew

caractere

Indica o caminho, respeitando o diretório do Application Server, e o nome do arquivo, com extensão JPG (Joint Photographic Group), de destino.

X


nTimeOut

Logico

Se atribuido .T. o caminho e nome do arquivo informado: cFileOld, e cFileNew será convertido para letras minúsculas. For padrão o valor é .F.



Retorno

Nome

Tipo

Descrição

cRet

caractere

  • Retorna 0, se o arquivo for salvo com sucesso; caso contrário, retornará -1.

Formato do BMP

Até a versão 20.3.1.x do Appserver, só são aceitos imagens do tipo bmp de 8 BPP (256 cores), e suporte parcial a 16 BPP, não sendo possível converter arquivos BMP de 24 BPP e 32 BPP.

A partir da versão 20.3.2.x  do Appserver, arquivos BMP de 24 BPP também são suportados, desde que estejam no formato BITMAPV3INFOHEADER.


Veja também

Exemplos

Exemplo 1
User Function Exemplo()
  local cFile := AdjPath( "\exemplo.bmp", .T.)
  local ret

  if Resource2File ("exemplo.bmp", cFile ) = .F.
    conout("não foi possivel resgatar o arquivo do RPO")
  else
    ret := BmpToJpg(cFile,"\Image.JPG")

    if ret <> 0
      conout("ocorreu um erro na conversão")
    endif
  endif

  FErase( cFile, , .F. )
  FErase( "\Image.JPG", , .F. )

Return

Abrangência

TOTVS Application Server 131227






  • Sem rótulos