Compratir variable con un EXE de PowerCOBOL

[Recato53]

@Recato53, si no quieres que sea una DLL sino un EXE... Puedes intentar hacer un MOVE al RETURN-CODE en el EXE, y en el programa llamante recibes dicho valor en el campo RETURNING. Pruébalo y nos cuentas.

Buenas tardes.

Según me indicas puedo programar RETURN-CODE y recogerlo con RETURNING, me puedes hacer llegar un ejemplo, no consigo que esto me funciones.

Muchas gracias.
Un saludo.

[Kuk]

@Recato53, lo que puedes hacer es pasar un puntero de una variable en tu DLL que será recuperado por el EXE en la CMD-LINE.

Es decir, en tu DLL defines una variable y llamas al EXE:

 WORKING-STORAGE SECTION.
 01  EXT-INDICADOR          PIC X(2).
 
 PROCEDURE DIVISION.
     
     INVOKE POW-SELF "ExecuteSync" USING EXT-INDICADOR
     
     IF  EXT-INDICADOR = "SI"
         INVOKE POW-SELF "DisplayMessage"
          USING "¡Hay conexión!" 64
          
     ELSE
         INVOKE POW-SELF "DisplayMessage"
          USING "¡NO hay conexión!" 48
     END-IF

En tu EXE que comprueba la conexión, en la WORKING Global defines:

 01  GLB-CMD IS GLOBAL         PIC X(260).
 01  FILLER REDEFINES GLB-CMD
     05  PTR-VAR IS GLOBAL     POINTER.
     05  FILLER                PIC X(256).

Y en el evento "Opened" haces lo siguiente:

     MOVE "CommandLine" OF POW-SELF TO GLB-CMD

En el evento "Click" de tu botón que llama a la rutina de comprobación de la conexión, añades la LINKAGE SECTION y mapeas la variable de retorno. Ejemplo:

     ENVIRONMENT     DIVISION.
     DATA            DIVISION.
     WORKING-STORAGE SECTION.
     01  FUNC  PIC X(20).
     01  NUM1  PIC S9(9) COMP-5.
     01  NUM2  PIC S9(9) COMP-5.
     01  NUM3  PIC S9(9) COMP-5.
     01  RESP  PIC S9(9) COMP-5.
     
     LINKAGE SECTION.
     01  EXT-VARIABLE     PIC X(2).  *>  <== VARIABLE COMPARTIDA
     PROCEDURE       DIVISION.
              
         MOVE "mluser" TO FUNC
         
         CALL FUNC WITH STDCALL USING BY VALUE NUM1
                                      BY VALUE NUM2
                                      BY VALUE NUM3
                                      RETURNING RESP
                                      
         SET ADDRESS OF EXT-VARIABLE TO PTR-VAR
         
         IF  RESP = ZEROS
             MOVE "NO" TO EXT-VARIABLE
             
         ELSE
             MOVE "SI" TO EXT-VARIABLE
         END-IF

[Recato53]

Buenas tardes KUK.
Muchisimas gracias por tu interés. He probado la programación que me indicas y no consigo que funcione.

Creo que me he explicado mal. Te cuento otra vez mi problema.

Tengo una DLL que llama a un EXE.
El programa EXE tiene que devolver un valor y desde la DLL recogerlo.

La programación de la DLL

    WORKING-STORAGE SECTION.
    01 EXT-VARIABLE PIC X(2).
    PROCEDURE DIVISION.
    PRINCIPAL SECTION.
        INVOKE POW-SELF "ExecuteSync" USING "CONEXION.EXE" POW-SWNORMAL.
        IF EXT-VARIABLE = "SI"
           INVOKE POW-SELF "DisplayMessage" USING "¡Hay conexión!" 64
           ELSE
           INVOKE POW-SELF "DisplayMessage" USING "¡NO hay conexión!" 48
        END-IF 

La programación del programa EXE

    WORKING-STORAGE SECTION.
********************************* 
    01 CONEXION  PIC X(20). 
    01 FUNCION   PIC X(24). 
    01 RESP      PIC S9(9) COMP-5.
*********************************   
    01 GLB-CMD IS GLOBAL         PIC X(260).
    01 VALOR REDEFINES GLB-CMD GLOBAL.
       05  PTR-VAR POINTER.
       05  PIC X(256). 
    LINKAGE SECTION.
    01 EXT-VARIABLE PIC X(2).   
    PROCEDURE DIVISION.
    PRINCIPAL SECTION.
        MOVE "CommandLine" OF POW-SELF TO GLB-CMD
        MOVE "InternetCheckConnectionA" TO FUNCION
        MOVE "http://www.google.es" TO CONEXION
        
        CALL FUNCION WITH STDCALL USING
              by reference CONEXION
              by value 1
              by value 0
              returning RESP
        END-CALL
        
        SET ADDRESS OF EXT-VARIABLE TO PTR-VAR
        
        IF RESP = ZEROS
           MOVE "NO" TO EXT-VARIABLE
           ELSE
           MOVE "SI" TO EXT-VARIABLE
        END-IF.

Cuando ejecuto el programa da un error.

[Kuk]

@Recato53, pruebalo así:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.    
 01  EXT-VARIABLE    PIC X(2).
 01  WS-PROGRAMA. 
     05  WS-NOMBRE   PIC X(13) VALUE "CONEXION.EXE ".
     05  WS-PTR      POINTER.
    
 PROCEDURE DIVISION.
         
     MOVE FUNCTION ADDR(EXT-VARIABLE) TO WS-PTR 
        
     INVOKE POW-SELF "ExecuteSync" USING WS-PROGRAMA POW-SWNORMAL.
   
     IF  EXT-VARIABLE = "SI"
         INVOKE POW-SELF "DisplayMessage" USING "¡Hay conexión!" 64
  
     ELSE
         INVOKE POW-SELF "DisplayMessage" USING "¡NO hay conexión!" 48
     END-IF   

[Recato53]

Buenos días.

Sique sin funcionar estos programas.
Donde se produce el ERROR es en código del programa.EXE, hay algo que no esta correctamente programado y no encuentro lo que es.

Muchas gracias

Un saludo.

[Kuk]

@Recato53, ahora que lo pienso es normal... Estamos compartiendo memoria en 2 procesos diferentes, y esto no es posible. Para ello hay que reservar de la memoria compartida (shared memory) que es independiente y se controla por el SO.

Si sigues queriendo hacerlo así puedo mirar cómo se hace, habrá que llamar unas API-s de Windows. Pero en realidad, me sigue pareciendo lo más fácil

1. sea crear un fichero CONEXION.COB e importarlo en cada módulo (EXE/DLL) del proyecto donde lo necesites, luego hacer un CALL vulgar y corriente.
2. sea dejarlo todo igual salvo que en vez de un EXE que sea una DLL que se abrirá con CallForm o OpenForm.

[Recato53]

Me gustaría que se pudiera hacer como inicialmente me comentaste.

Ahora lo tengo resuelto con un archivo Temp.

En el programa EXE creo un archivo Temp con los valores que me interesan.
En la DLL abro el archivo Temp y leo los valores.

Es una solución un poco rudimentaria, pero funciona.

Un saludo.

[Kuk]

@Recato53, aquí tienes lo que necesitas, lo he comprobado y funciona. En realidad es un ejemplo de cómo compartir memoria entre 2 procesos.

En el programa llamante hacemos:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION. 
 01  hMapFile    BINARY-LONG.
 01  ADR         POINTER.
 01  nADR REDEFINES ADR 
                 PIC S9(9) COMP-5.
 01  LastError   PIC S9(9) COMP-5.
  
 LINKAGE SECTION.
 01  InternetRC  PIC S9(4) COMP-5.
 
 PROCEDURE       DIVISION.
     
     *> CREAMOS LA MEMORIA
     CALL "CreateFileMappingA" WITH STDCALL USING BY VALUE -1  *> INVALID_HANDLE_VALUE
                                                  BY VALUE 0   *> NULL
                                                  BY VALUE 4   *> PAGE_READWRITE
                                                  BY VALUE 0   
                                                  BY VALUE 4 *> TAMAÑO MEMORIA EN BYTES
                                                  BY CONTENT "VarComp" & X"00" *> NOMBRE DE LA MEMORIA
                                                  RETURNING hMapFile
     
     *> COMPROBAMOS LA REFERENCIA
     IF  hMapFile = ZEROS
         INVOKE POW-SELF "DisplayMessage" 
          USING "Error creando Memoria Compartida" 16
          
         EXIT PROGRAM
     END-IF
     
     *> OBTENEMOS EL PUNTERO
     CALL "MapViewOfFile" WITH STDCALL USING BY VALUE hMapFile
                                             BY VALUE H"0F001F" *> FILE_MAP_ALL_ACCESS
                                             BY VALUE 0
                                             BY VALUE 0
                                             BY VALUE 4 *> TAMAÑO MEMORIA EN BYTES
                                             RETURNING ADR
     
     
     *> SI NO HEMOS OBTENIDO EL PUNTERO, MIRAMOS POR QUE
     IF  ADR = NULL
         CALL "GetLastError" WITH STDCALL RETURNING LastError
         
         INVOKE POW-SELF "DisplayMessage" 
          USING "Error creando Memoria Compartida" LastError 16
          
         CALL "CloseHandle" WITH STDCALL USING BY VALUE hMapFile
     
     ELSE
         *> SI TENEMOS EL PUNTERO, MAPEAMOS A LA VARIABLE
         SET ADDRESS OF InternetRC TO ADR
     END-IF
          
     MOVE POW-FALSE TO "Enabled" OF CmCommand1
     
     INVOKE POW-SELF "ExecuteSync" USING "INTERNET.EXE"
     
     MOVE POW-TRUE TO "Enabled" OF CmCommand1
     
     IF  InternetRC = 1
         INVOKE POW-SELF "DisplayMessage" 
          USING "¡Hay conexión a Internet!" 64
          
     ELSE
         INVOKE POW-SELF "DisplayMessage" 
          USING "NO hay conexión a Internet..." 48
     END-IF          
 
     *> ELIMINAMOS LA MEMORIA CREADA
     CALL "CloseHandle" WITH STDCALL USING BY VALUE hMapFile
          

En el programa llamado hacemos:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION. 
 01  hMapFile    BINARY-LONG.
 01  ADR         POINTER.
 01  nADR REDEFINES ADR 
                 PIC S9(9) COMP-5.   
 01  LastError   PIC S9(9) COMP-5.               
 
 01 CONEXION     PIC X(30).
 01 ST-INTERNET  PIC S9(9) COMP-5.
 01 FUNC         PIC X(24).    
 
 LINKAGE SECTION.
 01  InternetRC  PIC S9(4) COMP-5.
 PROCEDURE       DIVISION.
          
     MOVE "http://www.google.es" & X"00" TO CONEXION
    
     MOVE "InternetCheckConnectionA" TO FUNC
 
     CALL FUNC WITH STDCALL USING
              by reference CONEXION
              by value 1
              by value 0
              returning ST-INTERNET     
     END-CALL                 
     
     *> ACCEDEMOS A LA MEMORIA CREADA
     CALL "OpenFileMappingA" WITH STDCALL USING BY VALUE H"0F001F" *> FILE_MAP_ALL_ACCESS
                                                BY VALUE 0
                                                BY CONTENT "VarComp" & X"00" *> NOMBRE DE LA MEMORIA
                                                RETURNING hMapFile
                                                   
     IF  hMapFile = ZEROS
         INVOKE POW-SELF "DisplayMessage" 
          USING "Error accediendo a la Memoria Compartida" 16
          
         EXIT PROGRAM
     END-IF
     
     *> OBTENEMOS EL PUNTERO    
     CALL "MapViewOfFile" WITH STDCALL USING BY VALUE hMapFile
                                             BY VALUE H"0F001F" *> FILE_MAP_ALL_ACCESS
                                             BY VALUE 0
                                             BY VALUE 0
                                             BY VALUE 4
                                             RETURNING ADR
                                                
     IF  ADR = NULL
         CALL "GetLastError" WITH STDCALL RETURNING LastError
         
         INVOKE POW-SELF "DisplayMessage" 
          USING "Error obteniendo puntero de Memoria Compartida" LastError 16        
     
     ELSE
         SET ADDRESS OF InternetRC TO ADR
         
         MOVE ST-INTERNET TO InternetRC         
     END-IF

Incluyo el proyecto por si a caso

[Recato53]

El archivo .rar, se descarga con una extensión que no se puede descomprimir.

[Kuk]

@Recato53, a mi me funciona... De todos modos, simplemente renombralo en INTERNET.rar a mano.