Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

BmpToJpg

...

...

...

BmpToJpg

Converte

...

uma

...

imagem

...

do

...

tipo

...

BMP

...

(Bitmap)

...

para

...

JPG

...

(Joint

...

Photographic

...

Group).

Sintaxe

Bloco de código
collapsefalse
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
titleFormato 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

Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
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,"
\TREPORT
\Image.
BMP","\TREPORT
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