×
Linguagem de Programação ADVPL
Perguntas Funcion BmpToJpg
- luis10075
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 98
- Obrigados Recebidos: 1
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #18975
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Funcion BmpToJpg
Luis bom dia, do que se trata esta função, nunca vi rsrs
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
10 anos 11 meses atrás #18978
por kanaamlrr
Respondido por kanaamlrr no tópico Funcion BmpToJpg
BmpToJpg ( < cFileOld>, < cFileNew> ) --> nRet
Segue exemplo:
Abraço!
Segue exemplo:
nRet := BmpToJpg("\TREPORT\Image.BMP","\TREPORT\Image.JPG")
If nRet == -1
//falhou
Else
//sucesso
EndIf
Abraço!
Por favor Acessar ou Registrar para participar da conversa.
- luis10075
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 98
- Obrigados Recebidos: 1
- luis10075
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 98
- Obrigados Recebidos: 1
10 anos 11 meses atrás #18991
por luis10075
Respondido por luis10075 no tópico Funcion BmpToJpg
Muchas gracias Kanaam, lo intente pero algo no esta funcionando
Me genera el archivo jpg pero sin dato, es decir "0 bytes"
En mi directorio dentro de "Protheus_Data/System" queda como sigue:
\Imagen.JPG
0 Bytes
No es posible abrir la imagen, genera un error, ¿¿será necesario algún Include??
Este es mi codigo:
cArchivo := imagen
BmpToJpg("\SYSTEM\qrcodes\" + cArchivo + ".bmp","\SYSTEM\qrcodes\" + cArchivo + ".jpg",.T.)
Me genera el archivo jpg pero sin dato, es decir "0 bytes"
En mi directorio dentro de "Protheus_Data/System" queda como sigue:
\Imagen.JPG
0 Bytes
No es posible abrir la imagen, genera un error, ¿¿será necesario algún Include??
Este es mi codigo:
cArchivo := imagen
BmpToJpg("\SYSTEM\qrcodes\" + cArchivo + ".bmp","\SYSTEM\qrcodes\" + cArchivo + ".jpg",.T.)
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
Tempo para a criação da página:0.128 segundos