Buenos días.
Quiero comprobar si existe conexión a internet.
He probado todo las opciones que he encontrado en el Foro, algo estoy programando mal.
Intento usar COBOL85.CBR y desde el programa de PowerCobol llamo a la función. Pero responde con u mensaje de ERROR.
Citación del post de
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):
Código:
[MainForm.Entry]
mluser=MLUSER32.DLL
En el Form que llama la DLL pones:
Código COBOL:
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 
|
Adjunto ejemplo del programa.