[Sintaxis] Arrastrar y soltar archivos (Drag and Drop)

[Kuk]

@Paulo, se te habrá olvidado añadir la librería shell32.lib en tu proyecto, va dentro del ZIP

Veo que has puesto la directiva ALPHAL(WORD) porque el nombre de la función aparece en Camel-Case, pero sin la librería no va a compilar porque no sabe dónde está la función.

Si has añadido la librería y te sigue dando error, tienes que hacer REBUILD ALL para recompilarlo todo y funcionará.

[Paulo]

❞ @Paulo, se te habrá olvidado añadir la librería shell32.lib en tu proyecto, va dentro del ZIP Veo que has puesto la directiva ALPHAL(WORD) porque el nombre de la función aparece en Camel-Case, pero sin la librería no va a compilar porque no sabe dónde está la función. Si has añadido la librería y te sigue dando error, tienes que hacer REBUILD ALL para recompilarlo todo y funcionará.

Hola Kuk

Adicionei a livraria shell32.lib, fiz o rebuild all, mas o erro continua...

[Kuk]

@Paulo, es que la función DragAcceptFiles no es así, sólo lleva 2 parámetros, y tú le has añadido un parámetro demás y es por eso que no compila, debe ser así:

     call "DragAcceptFiles" with stdcall using by value wsHwnd
                                               by value pow-true

Y tú tienes 2 veces el pow-true:

    call "DragAcceptFiles" with stdcall using by value wsHwnd
                                              by value pow-true
                                              by value pow-true.
                                                      

[Paulo]

Gracias Kuk,
Tanto verifiquei a rotina e não vi esse erro.

[Kuk]

@Paulo, de nada compañero, ya nos cuentas y si puedes enséñanos cómo te ha quedado

[fastpho]

Hola , estoy implementado Arrastrar y soltar archivos (Drag and Drop) sin procedure-pointer
obteniendo la direccion de la funcion , la consulta cual seria la mejor forma de atrapar el nombre del archivo arrastrado , lo estoy haciendo con un cmtimer
pero no se si es la forma correcta

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  wsHwnd         pic s9(9) comp-5.
 01  newWndProc     pic s9(9) comp-5.
 01  OldWndProc     external pic s9(9) comp-5.
 01  GWLP-WNDPROC   pic s9(9) comp-5 value -4. 
 01  hModule        pic s9(9) comp-5.
 
 PROCEDURE       DIVISION.       
    
                                                      
                                                      
                                                      
     move "hwnd" of pow-self to wsHwnd. 
     move wsHwnd to  "Text" OF CmText1        
 
     call "GetModuleHandleA" with stdcall using by value 0 returning hModule
*    DISPLAY "hModule: " , hModule.          
     call "GetProcAddress" with stdcall using by value hModule 
                                              by content "_ProcDragFile@16" & X"00"
                                              returning newWndProc.
     

y la imagen con

 01 EXP-FILE-NAME              PIC X(250) GLOBAL EXTERNAL. *> Retorno del Procedimiento     
     *cmtimer*
     IF EXP-FILE-NAME NOT = SPACES THEN 
*         display "Fichero TIMER: " EXP-FILE-NAME        
          MOVE EXP-FILE-NAME TO "ImageName" OF CmImage1
      END-IF.   

Saludos ....

[Kuk]

@fastpho, no sé si he entendido bien tu pregunta, pero en este caso hacemos algo parecido a lo de buscar y traer enfrente un programa. Es decir que le pasamos una función como parámetro, la cual se ejecuta cuando ocurra el evento correspondiente. Con lo cual, no necesitas un Timer, puedes hacer lo que necesitas en la propia función "MyWndProc" que se ejecuta, como decía, automáticamente cuando ocurra el evento.

[fastpho]

@Kuk , no me explicado bien , desde el ProcDragFile.cbl obtengo el archivo arrastrado
con la funcion DragQueryFileA :

          IF  MSG = WM_DROPFILES
             call "DragQueryFileA" with stdcall using by value WPARAM
                                                      by value 0
                                                      by reference dropFileName
                                                      by reference fileSize
                
                    
                      string dropFileName  
                          delimited by x"00" into EXP-FILE-NAME
                      end-string
 
*                    display "Fichero: " EXP-FILE-NAME        
*                    display "fileSize: " fileSize *> SIEMPRE ZEROS        
          END-IF.

en la variable dropFileName tengo el nombre del archivo
ahora como le paso ese dato al formulario que tiene en este caso un control
cmImage , la unica forma que encontre es metiendo un control timer en el formulario,
en la variable que se llama EXP-FILE-NAME que esta declarada como External Global en el
formulario y en el ProcDragFile.cbl como External

Luego en el timer tengo :

      IF EXP-FILE-NAME NOT = SPACES THEN 
          *> display "Fichero TIMER: " EXP-FILE-NAME        
          MOVE EXP-FILE-NAME TO "ImageName" OF CmImage1
      END-IF.

Esta implementacion me esta funcionando , pero tengo el timer consumiendo cpu



Saludos...

[Kuk]

@fastpho, ah vale, ya lo entiendo.

Pues mira, tengo una solución que no vas a entender pero funciona (en mi caso por lo menos).

En "Opened" de tu Form pones esto:

 WORKING-STORAGE SECTION.  
 01  nCMIMAGE1 IS EXTERNAL PIC S9(9) COMP-5.
 ...
 PROCEDURE       DIVISION.
     ...
     move CmImage1 to nCMIMAGE1

En "MyWndProc" añades esto en la Working:

 *>-------------------
 01 POW-0000 PIC S9(18) COMP-5.
 01 POW-0001 PIC S9(9) COMP-5.
 01 POW-0002 PIC S9(9) COMP-5.
 01 POW-0003 PIC S9(9) COMP-5.
 01 POW-0004 PIC S9(9) COMP-5.
 01 POW-0005 PIC S9(9) COMP-5.
 01 POW-0006 PIC X(8192).
 01 POW-0007 PIC S9(9) COMP-5.
 
 01 nCMIMAGE1 IS EXTERNAL PIC S9(9) COMP-5.

Y en la procedure, en el IF MSG = WM_DROPFILES le añades este código, no intentes entenderlo, simplemente pégalo tal cual:

     ...
     IF  MSG = WM_DROPFILES
         call "DragQueryFileA" with stdcall using by value WPARAM
                                                  by value 0
                                                  by reference dropFileName
                                                  by reference fileSize
         
         *> display "Fichero: " dropFileName 
         *>-------------
         MOVE 117440513 TO POW-0000
         MOVE 4 TO POW-0001
         MOVE 0 TO POW-0002
         MOVE 0 TO POW-0003
         MOVE 0 TO POW-0004
         MOVE 1 TO POW-0005
         MOVE dropFileName TO POW-0006
         MOVE 33636360 TO POW-0007
         CALL "XPOW_INVOKE_BY_ID_2" USING VALUE nCMIMAGE1 REFERENCE POW-0000
         VALUE POW-0001 POW-0002 POW-0003 POW-0004 POW-0005 POW-0007
         REFERENCE POW-0006 END-CALL
         *>-------------                                               
     END-IF
     ...

Rebuild ALL y ejecuta, a ver si funciona. Si no funciona, dime qué error te da.

[fastpho]

@Kuk me anduvo perfecto lo unico que añadi fueron los valores de :

 
 01 POW-0000 PIC S9(18) COMP-5.
 01 POW-0001 PIC S9(9) COMP-5.
 01 POW-0002 PIC S9(9) COMP-5.
 01 POW-0003 PIC S9(9) COMP-5.
 01 POW-0004 PIC S9(9) COMP-5.
 01 POW-0005 PIC S9(9) COMP-5.
 01 POW-0006 PIC X(8192).
 01 POW-0007 PIC S9(9) COMP-5.
 01 POW-0008 PIC S9(4) COMP-5. 

Muchas Gracias

Saludos ...