Histórico da Página

import.css=/download/attachments/3279126062824/newLayouttecnologia.css

...

...

Função: BmpToJpg

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.

Aviso
title 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

• RetImgType

Exemplos

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