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:
- Crear un fichero de texto y llamarlo COBOL85.CBR
- Dentro escribir el nombre del Form desde el que se va a llamar y .ENTRY
- Nombres de las funciones = los nombres de las DLL-s correspondientes
Por ejemplo:
Código:
[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:
Código COBOL:
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!!!
