Cobol Foro
Página 1 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Duda] Enviar aviso "Sin conexion a internet" (https://www.cobolforo.es/showthread.php?t=195)

Gatomalo 26 de julio de 2015 01:23
Enviar aviso "Sin conexion a internet"
 
tengo un programa que hace consultas via internet, pero cuando esta sin conexion
me envie un mensaje avisando que esta sin servicio.

Kuk 26 de julio de 2015 13:07
gatomalo, es una pregunta? Si es así, concretala un poco más, porque no sabes cómo hacerlo, tendrás que decir qué tipo de conexión usas, qué componente etc...

7 de noviembre de 2015 02:03
yo realizo lo siguiente:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4. *Usa WININET.LIB 
  5. *recuerda usar ALPHAL(WORD) 
  6.  
  7.  
  8.  01 WInternet_St  pic s9(9) comp-5.
  9.  01 whttp         pic x(21) value "http://www.google.com".
  10.  
  11.  PROCEDURE       DIVISION.
  12.      call "InternetCheckConnectionA" with stdcall linkage using 
  13.                  by reference whttp *>
  14.                  by value 1
  15.                  by value 0
  16.       returning WInternet_St  *>
  17.       if WInternet_St equal to zero
  18.                 INVOKE POW-SELF "Alarm"   USING    POW-MBEXCLAMATION
  19.                 move "No existe conexion a internet" to "Caption" of LabMsg
  20.       end-if
  21.       exit program.

Gatomalo 7 de noviembre de 2015 03:31
gracias Alrolo por entender mi pregunta
pondre en practica tus codigos.

Josber 7 de noviembre de 2015 09:26
Alrolo, procura utilizar el botón COBOL que hay en el editor cuando isertes código, para una mayor claridad.

Recato53 1 de febrero de 2017 19:03
Buenas tardes.

Puedes enviar un ejemplo en POWERCOBOL, no consigo hacer funcionar este ejemplo.
La librería WININET.LIB donde la puedo localizar.

se puede programar solo con librerías de POWERCOBOL.

Muchas gracias

Cita:
Citación del post de Alrolo (Mensaje 1199)
yo realizo lo siguiente:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4. *Usa WININET.LIB 
  5. *recuerda usar ALPHAL(WORD) 
  6.  
  7.  
  8.  01 WInternet_St  pic s9(9) comp-5.
  9.  01 whttp         pic x(21) value "http://www.google.com".
  10.  
  11.  PROCEDURE       DIVISION.
  12.      call "InternetCheckConnectionA" with stdcall linkage using 
  13.                  by reference whttp *>
  14.                  by value 1
  15.                  by value 0
  16.       returning WInternet_St  *>
  17.       if WInternet_St equal to zero
  18.                 INVOKE POW-SELF "Alarm"   USING    POW-MBEXCLAMATION
  19.                 move "No existe conexion a internet" to "Caption" of LabMsg
  20.       end-if
  21.       exit program.

Kuk 1 de febrero de 2017 19:12
Recato53, echa un vistazo aquí: [Aporte] CALL de cualquier DLL sin *.LIB ni - COBOL Foro

Paulo 20 de octubre de 2020 17:04
Ola a todos,

usei o exemplo acima, e coloquei no COBOL85.CBR a entrada
Código:
[MainForm.Entry]
InternetCheckConnectionA=WININET.DLL
No entanto ao compilar, o programa PPJ, da um erro:
Código:
MainForm.obj : error LNK2001: unresolved external symbol _INTERNETCHECKCONNECTIONA@12
D:\2RPS_3_SRC\_TESTES\Main.exe : fatal error LNK1120: 1 unresolved externals
Alguem pode ajudar ?

Gracias
Saludos

Joseg 23 de octubre de 2020 11:27
Cita:
Citación del post de Paulo (Mensaje 6185)
Ola a todos,

usei o exemplo acima, e coloquei no COBOL85.CBR a entrada
Código:
[MainForm.Entry]
InternetCheckConnectionA=WININET.DLL
No entanto ao compilar, o programa PPJ, da um erro:
Código:
MainForm.obj : error LNK2001: unresolved external symbol _INTERNETCHECKCONNECTIONA@12
D:\2RPS_3_SRC\_TESTES\Main.exe : fatal error LNK1120: 1 unresolved externals
Alguem pode ajudar ?

Gracias
Saludos

A minha sugestão é copiar a libraria "WININET.LIB" para o projeto.
Não é necessário instanciar as funções no COBOL85.CBR, dá para fazer um CALL direto.
Qual era a necessidade? verificar uma conexão de Internet?

Kuk 23 de octubre de 2020 14:40
@Paulo, _INTERNETCHECKCONNECTIONA@12 está todo en mayúsculas. Esto quiere decir que no tienes la directiva ALPHAL(WORD) añadida en el proyecto.
Añádela y vuelve a compilar.


La franja horaria es GMT +2. Ahora son las 00:11.
Página 1 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

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