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

  #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


Herramientas

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 14:41.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.