[PowerCOBOL] CALL de cualquier DLL sin *.LIB ni "LoadLibrary"

[Kuk]

Amigos, he descubierto esto para el PowerCOBOL v3 y funciona en la version 9 tambien!!!

Cuando queremos llamar una DLL y no tenemos la LIB, simplemente hay que:

1. Crear un fichero de texto y llamarlo COBOL85.CBR
2. Dentro escribir el nombre del Form desde el que se va a llamar y .ENTRY
3. Nombres de las funciones = los nombres de las DLL-s correspondientes

Por ejemplo:

[MainForm.Entry]
FtpConnect=FTP.dll
FtpDisconnect=FTP.dll
LogIn=Protocol.dll
InvalidateRect=User32.dll

En el código debemos llamar estas funciones en dinámico, es decir por variable:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  FUNC  PIC X(20).
 01  hWnd  PIC S9(9) COMP-5.
 PROCEDURE       DIVISION.
     
     MOVE "hwnd" OF POW-SELF TO hWnd
     MOVE "InvalidateRect" TO FUNC
     
     CALL FUNC WITH STDCALL USING BY VALUE hWnd
                                  BY VALUE 0
                                  BY VALUE 1
          

¡¡¡Listo!!!

[Hrmcobol]

Genial Kuk, voy a probarlo y te cuento.

Resulta que yo puse en el buscador del foro el texto "DLL" y no me trajo ningún tema,
supongo que estaré buscando mal.

[Josber]

❞ Resulta que yo puse en el buscador del foro el texto "DLL" y no me trajo ningún tema, supongo que estaré buscando mal.

Las búsquedas en el foro, han de tener más de 3 carácteres, de lo contrario no funcionan bien, porque el buscador las "toma" como palabras de uso frecuente, (por ejemplo tipo a los artículos el la los las, etc.

Un saludo.-

[Hrmcobol]

Estimado Kuk, no doy "pieconbola" la dll se llama MLUSER32.DLL y debo hacer un call a: "mluser" que tiene 5 parámetros numéricos.
Si no te molesta podrías mandarme el código y el cobol85.cbr, ya que no tengo experiencia en este tipo de llamadas.
Saludos

[Kuk]

Hrmcobol, en tu COBOL85.CBR, al final del fichero debe añadir (cambiando MainForm por el nombre del Form que va a llamar la DLL):

[MainForm.Entry]
mluser=MLUSER32.DLL

En el Form que llama la DLL pones:

 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  NUM4  PIC S9(9) COMP-5.
 PROCEDURE       DIVISION.
          
     MOVE "mluser" TO FUNC
     
     CALL FUNC WITH STDCALL USING BY VALUE NUM1
                                  BY VALUE NUM2
                                  BY VALUE NUM3
                                  BY VALUE NUM4

Debes poner MLUSER32.DLL en el mismo directorio que tu programa PowerCOBOL.

Si no te sale aún, dime más concretamente qué es exactamente lo que no logras hacer

[Hrmcobol]

Amigo Kuk, te adjunto la DLL La LIB, quiero hacer un call a "mluser", te adjunto un VB por si tu puedes abriro, este vb funciona correctamente, podras mirlo un poco
Saludos

[Kuk]

Hrmcobol, me pillas más liado que nunca amigo... Voy a mirar si puedo mirarlo la semana que viene, antes no creo que pueda...

[Hrmcobol]

Estimado kuk, resolví a medias el tema de la DLL, ya puedo acceder a la misma, el problema era el de siempre, uno mira y no ve, tenia mal escrito los parámetros.
Gracias como siempre.
Los Mantengo al tanto a medida que resuelva todo

[Hrmcobol]

PROBLEMA RESUELTO !! !! !!!

GRACIAS KUK POR EL POST !!!

[Kuk]

❞ resolví a medias el tema

Dinos la resolución completa, por si alguien tiene el mismo problema.