Cargar Foto en Consulta en Plex 6.1

Obsydian, Cool:Plex, Advantage Plex, AllFusion Plex...

Moderadores: Jorge Ubeda, pacopicon

Cargar Foto en Consulta en Plex 6.1

Notapor Rolin33 » Mar Abr 24, 2012 12:15 am

Tenemos un nuevo caso que se ha presentado en la versión Plex 6.1, esta sucediendo lo siguiente:
Una imagen de tipo JPG que se mostraba correctamente en Plex 5.0 se esta mostrando distorsionada en Plex 6.1, esta foto se carga desde una consulta mediante un source code, espero puedan indicarme que hacer.

Saludos
Rolando Flores.
Rolin33
 
Mensajes: 109
Registrado: Lun Ene 03, 2011 10:14 pm
Ubicación: Peru

sistema operativo y activex

Notapor Jorge Ubeda » Mié Abr 25, 2012 8:45 am

Rolando,
hacen falta dos datos: sistema operativo en que estan ahora (versión de Windows), y nombre del activex (que de eso se tratará, seguramente), o dll.
El source code también puede ser necesario, pero eso sería tarea vuestra, particularmente si un cambio de versión implicara también un cambio de código.
Jorge Ubeda
Site Admin
 
Mensajes: 229
Registrado: Mié Oct 26, 2005 6:00 pm
Ubicación: Valencia

Notapor Rolin33 » Mié Abr 25, 2012 3:49 pm

Hola Jorge nuestra versión de Windows es XP SP3, el código para mostrar la foto es el siguiente:
Set Base<ImageFile DEF> = Keys<Codigo Trabajador RH> CONCAT <ImageFile DEF.JPG>
Cast Local<Nombre Archivo>, Base<ImageFile DEF>
API Call Source code: APPDEF/Valida si existe file PC
If Local<*Boolean> != <*Boolean.*True>
Set Base<ImageFile DEF> = Keys<Codigo Trabajador RH>
CONCAT<ImageFile DEF.BMP>
Cast Local<Nombre Archivo>, Base<ImageFile DEF>
API Call Source code: APPDEF/Valida si existe file PC
If Local<*Boolean> != <*Boolean.*True>
Set Base<ImageFile DEF> = <ActiveXControl DEF.Image1>
CONCAT <ImageFile DEF.BMP>
API Call Source code: APPDEF/Muestra una Imagen
Set Base<PanelState> = <PanelState.Show>
Set Base<ActiveXControl DEF> = <ActiveXControl DEF.Image1>
API Call Source code: ACTIVE/SetActiveXVisibility

El código del source code APPDEF/Muestra una Imagen es el siguiente:
On Error Resume Next
Image1.Picture = LoadPicture(&(1:))

El código del source code ACTIVE/SetActiveXVisibility es el siguiente:
{
CWnd *pWnd = ObPanelAPI::GetControlCWndByName( &(1:) );
ASSERT(pWnd);
if (pWnd)
pWnd -> ShowWindow(&(2:));
}

El campo activex que utiliza es el siguiente:
ActiveXControl is a VaryCharacter

Saludos
Rolando Flores.
Rolin33
 
Mensajes: 109
Registrado: Lun Ene 03, 2011 10:14 pm
Ubicación: Peru

más información

Notapor Jorge Ubeda » Mié Abr 25, 2012 8:16 pm

En primer lugar, tratándose de XP, no debería haber problemas genéricos con activeX. Por lo que entiendo del código, el campo Base<ImageFile DEF> se pasa al API que lo mostraría. No resulta claro qué problema se produce; si se distorsiona la imágen, ¿cómo lo hace? ¿cambia la relación entre altura y ancho? ¿cambia la definición de colores? ¿existen mensajes antes o después de ejecutar el API?. Un punto importante es la calidad de imagen que es capaz de manejar el API. Revisa qué calidad tienen tus casos, y prueba con otras menores. ¿Tiene ayuda tu control? ¿es posible trabajar con sus métodos y propiedades? ¿tiene alguna propiedad definida ya con anterioridad? ¿el nombre de archivo pasado es el que se espera? ¿el código que me muestras se ejecutó antes correctamente? ¿se han producido cambios a ese código?.
Veo que el script tiene indicado on error resume next. Prueba quitar la sentencia para ver qué mensajes se producen, si acaso alguno existe. Pudiera ser que en realidad se esté ejecutando bien, pero no sea capaz de manejar el material que le pasas.
Jorge Ubeda
Site Admin
 
Mensajes: 229
Registrado: Mié Oct 26, 2005 6:00 pm
Ubicación: Valencia

algo más

Notapor Jorge Ubeda » Mié Abr 25, 2012 8:31 pm

No has dicho qué activex es el que usas. Si acaso no estas seguro, es posible verlo entrando al activex. Con el botón derecho es posible seleccionar metodos, propiedades, ayuda, testeo, etc. Activar alguna de estas opciones presenta una hoja de propiedades que tiene un tab "General". En ese tab es posible ver el nombre del activex, su dll/ocx, y su ubicación en la máquina.
Jorge Ubeda
Site Admin
 
Mensajes: 229
Registrado: Mié Oct 26, 2005 6:00 pm
Ubicación: Valencia

Notapor Rolin33 » Vie Abr 27, 2012 5:39 pm

Hola Jorge estoy utilizando el ActiveX Microsoft Forms 2.0 Image.
Utilizo un source code VBScript para mostrar la imagen con el siguiente codigo:
On Error Resume Next
Image1.Picture = LoadPicture(&(1:))

Pienso que podría solucionarse si reemplazo el comando de VB LoadPicture por otro que ademas de mostrar la imagen me la redimensione de acuerdo a mi panel, creo que existe. Crees que asi se solucionaría???, conoces ese comando de VB???

Saludos
Rolando Flores.
Rolin33
 
Mensajes: 109
Registrado: Lun Ene 03, 2011 10:14 pm
Ubicación: Peru

siguiendo...

Notapor Jorge Ubeda » Vie Abr 27, 2012 8:42 pm

No conozco la sentencia, pero puede ser. A primera vista, *no veo otras*:
http://msdn.microsoft.com/en-us/library ... 85%29.aspx
Conociendo de qué activex se trata, hay más información de importancia en MSDN.
Su redistribución (complicada):http://support.microsoft.com/kb/224305
Este artículo menciona la propiedad *Stretch* para acomodar la imagen: http://msdn.microsoft.com/en-us/library ... 60%29.aspx ;
http://msdn.microsoft.com/en-us/library ... 60%29.aspx
En esta página está la lista de propiedades, métodos y eventos que soporta el activex: http://msdn.microsoft.com/en-us/library ... 60%29.aspx

Este artículo muestra casos con otros controles:
http://social.msdn.microsoft.com/Forums ... 5177e0b89/
Jorge Ubeda
Site Admin
 
Mensajes: 229
Registrado: Mié Oct 26, 2005 6:00 pm
Ubicación: Valencia

Versión de Windows

Notapor Jorge Ubeda » Mié May 02, 2012 10:55 am

Hola Rolando,
supongo que habrás podido resolver tu problema, dado que no has vuelto a preguntar. Por mi parte, sí tengo una pregunta para tí: este activex te está funcionando en Windows 7? Aquí en algún caso no lo hace, y quisiera poder comparar resultados.
Jorge
Jorge Ubeda
Site Admin
 
Mensajes: 229
Registrado: Mié Oct 26, 2005 6:00 pm
Ubicación: Valencia

Notapor Rolin33 » Vie May 04, 2012 12:48 am

Hola Jorge muchas gracias por tu información la estoy revisando para ver si encuentró la solución, como solución temporal encontre un software (FSResizerSetup26.exe) que se baja gratis de internet y te cambia las dimensiones de las imagenes, lo use con las mias asignandole las dimensiones con las cuales se ve bien la foto y funciono correctamente, lo bueno de este software es que puedes trabajar varias imagenes al mismo tiempo y rápido. Tengo entendido que mi cliente tiene maquinas con Windows 7 y le funciona correctamente.
Cualquier pregunta que tengas me la puedes hacer.

Saludos
Rolando Flores.
Rolin33
 
Mensajes: 109
Registrado: Lun Ene 03, 2011 10:14 pm
Ubicación: Peru

propiedades

Notapor Jorge Ubeda » Vie May 04, 2012 7:58 am

Aunque no lo miré personalmente, te recomiendo revisar las propiedades y métodos del activex. Probablemente tengas alguna que se ajuste a tu necesidad
Jorge Ubeda
Site Admin
 
Mensajes: 229
Registrado: Mié Oct 26, 2005 6:00 pm
Ubicación: Valencia

Notapor MªJose de Juan » Vie May 04, 2012 11:18 am

Hola Rolando,
soy compañera de Jorge Ubeda, y hemos conseguido arreglar el tema de redimensionar la imagen.
Utiliza esto en tu source code:

On Error Resume Next

Image1.Picture = LoadPicture(&(1:))
Image1.PictureSizeMode = 1

Saludos
MªJose
MªJose de Juan
 
Mensajes: 1
Registrado: Vie May 04, 2012 11:13 am

Notapor Rolin33 » Vie May 04, 2012 5:44 pm

Hola MªJose cambie mi source code como me indicaste y salió correctamente la foto, ya se lo envie a mi cliente y lo ve bien tambien.
Muchas gracias por su ayuda.

Saludos a la distancia
Rolando Flores.
Rolin33
 
Mensajes: 109
Registrado: Lun Ene 03, 2011 10:14 pm
Ubicación: Peru


Volver a Plex

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados

cron