Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Herramienta] Icono con Imagen jmeza PowerFORM 5 23 de abril de 2018 18:50
[Duda] Insertar imagen GIF Javierfrancog PowerCOBOL (ActiveX, v4 - v11) 1 4 de diciembre de 2017 17:03
[Duda] Reducir tamaño campo Gatomalo RM/COBOL 4 24 de noviembre de 2017 04:30
[Duda] Tamaño de campo Josber PowerFORM 2 16 de diciembre de 2015 19:47
[Duda] Tamaño de pantalla Roger PowerCOBOL (ActiveX, v4 - v11) 4 12 de julio de 2015 23:51

Respuesta
 
Herramientas

  #1
Antiguo 9 de mayo de 2015, 01:05
Roger
Forero Activo
Última Actividad 04.02.2021 13:03
Posts Posts: 236
Likes enviados Enviados: 26
Likes recibidos Recibidos: 60
Predeterminado Reducir tamaño de imagen
0 Inactivo Inactivo

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 is offline   Responder Con Cita
  #2
Antiguo 14 de mayo de 2015, 19:48
Roger
Forero Activo
Última Actividad 04.02.2021 13:03
Posts Posts: 236
Likes enviados Enviados: 26
Likes recibidos Recibidos: 60

Amigos del foro
Buscando en la red encontre esto para redimencionar las imagenes ZlibTool.ocx
haber si pueden ayudarme con la sintaxis.
Archivos Adjuntos
Tipo de Archivo: zip zipocx.zip (32,1 KB)Descargas: 202
Roger is offline   Responder Con Cita
  #3
Antiguo 15 de mayo de 2015, 00:43
Rapinto
Gran amigo del Foro
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: ¡Gracias! Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por ayudar mucho a los foreros Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por saber demasiado! 
Última Actividad 29.01.2018 20:23
Posts Posts: 240
Likes enviados Enviados: 19
Likes recibidos Recibidos: 224

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
Rapinto is offline   Responder Con Cita
  #4
Antiguo 15 de mayo de 2015, 12:41
Joseg
El Foro es mi casa
Activista del Foro: Activista del Foro - Issue reason: Por participación activa Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras en varias ocasiones 
Última Actividad 17.09.2026 18:23
Posts Posts: 401
Likes enviados Enviados: 130
Likes recibidos Recibidos: 179

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
Joseg is offline   Responder Con Cita
  #5
Antiguo 15 de mayo de 2015, 15:36
Roger
Forero Activo
Última Actividad 04.02.2021 13:03
Posts Posts: 236
Likes enviados Enviados: 26
Likes recibidos Recibidos: 60

Rui y Jose Manuel
Probare con ImageMAgick parece buena alternativa ya les comento.
Roger is offline   Responder Con Cita
Respuesta



Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 13:46.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.