Cobol Foro - [Componente] Reto

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Componente] Reto (https://www.cobolforo.es/showthread.php?t=1268)

@KUK, pues no tengo narices.
lo que he notado es que el retorno me suma 4 cada vez que le doy al botón donde he puesto el código.
Pero no consigo lo que yo quiero :(

@Nitzer, Esta bien que te un valor distinto el retorno de la funcion te paso un ejemplo

Código COBOL:

 
     MOVE SPACES TO mPath.
     MOVE "Text" OF CmText1 TO  mPath.
     CALL "FindFirstChangeNotificationA" WITH STDCALL USING BY CONTENT mPath
                                                            BY VALUE POW-FALSE
                                                            BY VALUE FILE_OR_DETODO *>(127) ES LA SUMA DE LOS FILTROS QUE QUIERO CHEQUEAR
                                                            RETURNING Handle.
      DISPLAY "Handle" , Handle.
       if Handle not = INVALID_HANDLE_VALUE then *>INVALID_HANDLE_VALUE = -1
          MOVE POW-TRUE TO "Active" OF CmTimer1 *> ACTIVO EL TIMER PARA MIRAR EL DIRECTORIO
          
       end-if.

luego tenes que llamar a la funcion de espera esto lo estas haciendo ?

Código COBOL:

    MOVE ZEROS TO retorno-Watch.
 
     CALL "WaitForSingleObject" WITH STDCALL USING 
                               BY VALUE Handle
                               BY VALUE Intervalo
                               RETURNING retorno-Watch
 
     IF retorno-Watch NOT = ZEROS
        DISPLAY "retorno-Watch 1 :" , retorno-Watch
     END-IF.

Una vez satisfecha la espera, la aplicación puede responder a esta condición y continuar monitoreando el directorio llamando a la función FindNextChangeNotification y la función de espera correspondiente. Cuando el identificador ya no es necesario, se puede cerrar mediante la función FindCloseChangeNotification .

Gracias a todos, pero al final voy a tirar por el método mas sencillo y sin lios :))).

Al abrir cada formulario le hago un 'CBL_CHECK_FILE_EXIST2' y guardo sus valores iniciales.
Luego coloco un timer cada 5 minutos que lo vuelva a hacer y compare con el valor inicial, si es diferente ya se que se ha modificado la DLL y le informo al usuario que se actualice :)

Lo que no se es si puedo saber desde un formulario en que DLL se encuentra, no he encontrado información al respecto, no se si existe esa posibilidad, aunque tampoco he podido encontrar como el form sabe como se llama, es decir no he encontrado una propiedad como Name del formulario.

Cita:

Citación del post de Nitzer (Mensaje 6500)

Al abrir cada formulario le hago un 'CBL_CHECK_FILE_EXIST2'

Joe, se nota que llevo tiempo sin tocarlo. Ni me acordaba de que efectivamente esa rutina te devuelve información sobre el fichero.

Cita:

Citación del post de Nitzer (Mensaje 6500)

Lo que no se es si puedo saber desde un formulario en que DLL se encuentra

Habrá que investigar las propiedades ocultas del Form. Sé que en el binario el nombre del Form sigue existiendo. Y también me acuerdo que a diferencia del resto de controles, el Form reside en un fichero DLL y no OCX. Pero no me acuerdo en cuál.

Te voy a pasar una herramienta muy útil que te va a encantar, sobre todo el "Generate" :cerv:

Interesante herramienta kuk :) Ya podían haber hecho la pantalla algo mas grande :)))

A ver si encontramos donde están las propiedades ocultas del form, que seguro que las tiene. Gracias por el aporte.

@Nitzer, pincha en View luego en Generate y mira el contenido, ya verás ;)

Cita:

Citación del post de Kuk (Mensaje 6505)

@Nitzer, pincha en View luego en Generate y mira el contenido, ya verás ;)

SI :) lo hice, es interesante, pero no debo desviarme, que como me meta con estas "cosillas" pierdo el norte :) y ganas no me faltan.
Siempre digo que aprovechamos del Netcobol solo una pequeña parte.

@Nitzer , Me quede con las ganas con tu reto , para monitorear tu carpeta, y meti algunas lineas para ver que se puede hacer y me avisa cualquier cambio que produzca en la carpeta que se esta monitoreando, al borrar modificar o crear cualquier archivo , no logre todavia cual archivo
Saludos