Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   Fujitsu COBOL (https://www.cobolforo.es/forumdisplay.php?f=77)
-   -   [Sintaxis] Dll puerto serie (https://www.cobolforo.es/showthread.php?t=878)

drvedia1981 28 de julio de 2018 02:09
Dll puerto serie
 
Hola tengo para probar una dll de manejo de puertos serie baje la .dll y .lib alguin me ayuda a pasar el ejemplo en C a power cobol v7 muchas gracias Saludos

Codigo en C ejemplo de la dll

Código CPP:
  1. void *comPort = ComPortCreate();
  2.     
  3.     SetDeviceName(comPort, (PChar)L"COM2");
  4.     SetBaudRate(comPort, br9600);
  5.     SetDataBits(comPort, db8);
  6.     SetStopBits(comPort, sb1);
  7.     SetParity(comPort, paNone);
  8.     Open(comPort);
  9.  
  10.     WriteAnsiString(comPort, "Hello!\n");
  11.  
  12.     Sleep(3000);
  13.  
  14.     while (InputCount(comPort) > 0)
  15.         putchar(ReadAnsiChar(comPort));
  16.  
  17.     Close(comPort);
  18.     ComPortDestroy(comPort);
  19.     return 0;
  20. }

Kuk 28 de julio de 2018 22:50
drvedia1981, aquí tienes el ejemplo del primer CALL:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  PTR-comPort                         POINTER.
  3.  01  PTR-comPort-N REDEFINES PTR-comPort PIC S9(9) COMP-5.
  4.  
  5.  PROCEDURE DIVISION.
  6.  
  7.      CALL "SetDeviceName" WITH STDCALL USING BY REFERENCE PTR-comPort-N
  8.                                              BY CONTENT "COM2"
  9.      
  10.      
No te olvides de mapear las funciones en COBOL85.CBR: [Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" - COBOL Foro

drvedia1981 30 de julio de 2018 16:33
Hola kuk si tengo el .lib tambien tengo que declarar en el cobol85.cbr ? gracias Saludos.

Kuk 30 de julio de 2018 20:31
drvedia1981, no si tienes una LIB no es necesario.

Entonces lo que querías era un ejemplo de cómo llamar las funciones de esa DLL. El ejemplo que te puse es el que necesitas.

Lo único, no líes con los BY VALUE, BY REFERENCE y BY CONTENT.

drvedia1981 31 de julio de 2018 00:53
Hola Kuk gracias por la respuesta puse como me dijiste en la primer respuesta con solo el .dll y los datos en COBOL85 y la dll en el mismo directorio.
Código:
[MainForm.Entry]
SetDeviceName=ComPort.dll
Copie tu ejemplo y cuando compila aparece este error que podra ser ? Saludos.

Código:
MainForm.obj : error LNK2001: unresolved external symbol _SETDEVICENAME@8
C:\serie232\Debug\Main.exe : fatal error LNK1120: 1 unresolved externals

Kuk 31 de julio de 2018 07:57
drvedia1981, como pone en el ejemplo, tienes que hacer CALL dinámico. Es decir, meter el nombre de la función en una varibale.

Código COBOL:
  1.      MOVE "InvalidateRect" TO FUNC
  2.      
  3.      CALL FUNC WITH STDCALL USING ...


La franja horaria es GMT +2. Ahora son las 21:10.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.