[Sintaxis] Activar pantalla de busqueda de Windows

[Roger]

Amigos del foro
en un form tengo un cmimagen necesito cuando de click se abra la ventana de windows de busqueda de una imagen y que seleccione y se incruste en este evento.

lo tengo hecho con cmfile y un cmlist pero no le gusta a mi cliente.


similar al de la imagen

[Josber]

Pues así mismo:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 WTEX                PIC X(255) VALUE SPACES.
 01 ReturnValue             PIC S9(9) COMP-5.
 PROCEDURE       DIVISION.
     INVOKE POW-SELF "GetFileName"
            USING WTEX
                  "Seleccione Imágen ..."
                  "Imágen JPG|*.jpg|Imágen BMP|*.bmp"
                  POW-CDOPEN
            RETURNING ReturnValue
     END-INVOKE.
     
     IF ReturnValue = POW-TRUE
        MOVE WTEX      TO "ImageName" OF IMAGEN
        MOVE POW-FALSE TO "Resource"  OF IMAGEN
        INVOKE IMAGEN "Refresh"
     END-IF.
     

A mi me funciona perfectamente ...

Un saludo

[Roger]

Gracias JOSBER
Eso es lo que necesitaba una ayuda como puedo enviar solo el nombre del archivo en una variable porque la variable WTEX esta toda la ruta ejem "d:\sis-vet\fotos\cardiologia.jpg" a parte necesito solo el nombre del archivo "cardiologia.jpg"
para grabar en otra carpeta con un nombre diferente.
lo vuelvo a grabar con

CALL "CBL_COPY_FILE" USING RUTA1 NUEVO RETURNING STATUS-CODE.

a foto lo púeden seleccionar de diferentes carpetas y las rutas no tendran la misma forma. existe otra forma de grabar?? SIN TENER QUE USAR EL WINUSER.dll

[Josber]

Pues creo que no puede ser el nombre solo y la librería, la necesitas, porque es a la que "llama" el GetFileName, en cuanto a lo otro, con una simple rutina puedes hacerlo

    ENVIRONMENT     DIVISION.
     DATA            DIVISION.
     WORKING-STORAGE SECTION.
     01 WTEX.
         03  WT                 PIC X OCCURS 255.
     01  I                        PIC 999 VALUE 255.
     01  I1                       PIC 999 VALUE 0.
     01 ReturnValue           PIC S9(9) COMP-5.
     PROCEDURE       DIVISION.
 
         INITIALIZE WTEX.
 
         INVOKE POW-SELF "GetFileName"
                USING WTEX
                      "Seleccione Imágen ..."
                      "Imágen JPG|*.jpg|Imágen BMP|*.bmp"
                      POW-CDOPEN
                RETURNING ReturnValue
         END-INVOKE.
         
         IF ReturnValue = POW-TRUE
            MOVE WTEX      TO "ImageName" OF IMAGEN
            MOVE POW-FALSE TO "Resource"  OF IMAGEN
            INVOKE IMAGEN "Refresh"
         END-IF. 
 
         PERFORM VARYING I FROM 255 BY -1 
                      UNTIL WT (I) = "\" OR I = 0
                               CONTINUE
         END-PERFORM.
 
         COMPUE I1 = FUNCTION STORED-CHAR-LENGTH (WTEX).
 
         MOVE WTEX (I:I1) TO ...

Un saludo

[Roger]

se agradece lista la rutina.

Josber

*
           INVOKE POW-SELF "GetFileName"
            USING WTEX
                  "Seleccione Imágen ..."
                  "Imágen JPG|*.jpg|Imágen BMP|*.bmp"
                  POW-CDOPEN
            RETURNING ReturnValue

En estos codigo se selecciona 2 tipos de imagen jpg y bmp pero en el buscador sale separado por tipo de imagen ¿Se puede hacer que los 2 tipos se muestre junto tanto .bmp como jpg?

[Kuk]

❞ Josber *            INVOKE POW-SELF "GetFileName"             USING WTEX                   "Seleccione Imágen ..."                   "Imágen JPG|*.jpg|Imágen BMP|*.bmp"                   POW-CDOPEN             RETURNING ReturnValue En estos codigo se selecciona 2 tipos de imagen jpg y bmp pero en el buscador sale separado por tipo de imagen ¿Se puede hacer que los 2 tipos se muestre junto tanto .bmp como jpg?

Roger, no entiendo que quieres decir. En este OpenDialog se te van a mostrar todos los archivos con extension *.jpg y *.bmp, los dos! No entiendo esto de "por separado"...

[Roger]

Kuk
En el OpenDialog te muestra primero todos los archivo con terminacion .jpg y abajo hay una pestaña
donde puedes seleccionar .jpg o .bmp

Necesito que ambos se muestren un primer plano

ejemplo 000101.jpg 000102.jpg 102545.bmp 1036555.jpg 104658.bmp ......

sin necesidad de selecionar .jpg o .bmp

[Josber]

Creo que no puede ser Roger.

Un saludo.-

[Kuk]

Debe ser una movida de Windows 8 porque yo lo he hecho y creo recordar que mostraba todos (vamos tal y como lo quieres tu) en Windows XP y en Windows 7 creo que tambien. Miraré esta tarde en casa a ver...

[Josber]

Roger, a ver si es ésto lo que necesitas:

     INVOKE POW-SELF "GetFileName" 
            USING WSFILE 
                  "Por favor, Indique el nombre de la Imágen"
                  "(Archivo Imágen)|*.bmp;*.jpg;*.png;*.tif"
                  POW-CDOPEN 
            RETURNING RETORNO
     END-INVOKE.

Con ésto no te muestra un desplegable con los tipos de extensión, pero si te muestra todos los archivos que coinciden con la extensiones definidas.

Un saludo.-