Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Reducir tamaño de imagen (https://www.cobolforo.es/showthread.php?t=132)

Roger 9 de mayo de 2015 01:05

Reducir tamaño de imagen
 
Amigos de Foro

Siguiendo con la busqueda de la imagen
Código COBOL:
  1.  INVOKE POW-SELF "GetFileName"
  2.             USING WSFILE
  3.                   "Por favor, Indique el nombre de la Imágen"
  4.                   "(Archivo Imágen)|*.bmp;*.jpg;*.png;*.tif"
  5.                   POW-CDOPEN
  6.             RETURNING RETORNO
  7.      END-INVOKE.

Es posible reducir el tamaño de 3 megas a 800 kb de la misma forma como se haria con el PAINT
he visto otros sistemas que hacen lo que deseo.

tengo un sistema con imagenes y es muy lento la carga cuando las imagenes es mas de 2 megas.

Roger 14 de mayo de 2015 19:48

1 Archivos Adjunto(s)
Amigos del foro
Buscando en la red encontre esto para redimencionar las imagenes ZlibTool.ocx
haber si pueden ayudarme con la sintaxis.

Rapinto 15 de mayo de 2015 00:43

Roger,

O ocx que tens, acho que só transforma a imagem num ZIP.
Por exemplo, as imagens em JPG já estão comprimidas duma forma idêntica ao ZIP (Normalmente pouco diminui ao tamanho). O .BMP sempre comprime mais qualquer coisa.

Claro que podes comprimir a imagem em RUN-TIME e guardá-la. Ao abrir o programa podes descomprimir e apresentar a imagem.
Isto parece-me que, em termos de tempo, demora o mesmo carregar os 2 Mega ou descomprimir e apresentar a imagem com os mesmos 2 megas. Alias, até me parece pior (tem mais o tempo de descompressão).

A única forma para diminuir o tamanho de uma imagem, para ser apresentada num PictureBox, é utilizando um programa de desenho, fora da aplicação, e diminuir á resolução da imagem. Claro que também perde qualidade, mas .... Eu utilizo o Corel PaintShop Photo Pro X3 mas é pago.
Tem uma forma automática de redimensionar as imagens todas numa pasta (em linha de comando MSDOS).

De qualquer modo, se precisares de ajuda com esse ocx, diz-me, que eu faço um pequeno exemplo.

Saludos,
Rui

Joseg 15 de mayo de 2015 12:41

Existem varios utilitarios que correm via "command line" opensource que faz isso.
Eu uso este: ImageMagick: Convert, Edit, Or Compose Bitmap Images
A integração com Powercobol pode ser via COM.

outro
Image Resizer for Windows - Download Image Resizer 3 Preview 3

outro com muitas possibilidades por linha de comandos:
XnView Software · XnConvert


JoseManuel

Roger 15 de mayo de 2015 15:36

Rui y Jose Manuel
Probare con ImageMAgick parece buena alternativa ya les comento.


La franja horaria es GMT +2. Ahora son las 07:31.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.