[Duda] Enviar aviso "Sin conexion a internet"

[Gatomalo]

tengo un programa que hace consultas via internet, pero cuando esta sin conexion
me envie un mensaje avisando que esta sin servicio.

[Kuk]

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...

yo realizo lo siguiente:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
*Usa WININET.LIB 
*recuerda usar ALPHAL(WORD) 
 
 
 01 WInternet_St  pic s9(9) comp-5.
 01 whttp         pic x(21) value "http://www.google.com".
 
 PROCEDURE       DIVISION.
     call "InternetCheckConnectionA" with stdcall linkage using 
                 by reference whttp *>
                 by value 1
                 by value 0
      returning WInternet_St  *>
      if WInternet_St equal to zero
                INVOKE POW-SELF "Alarm"   USING    POW-MBEXCLAMATION
                move "No existe conexion a internet" to "Caption" of LabMsg
      end-if
      exit program.

[Gatomalo]

gracias Alrolo por entender mi pregunta
pondre en practica tus codigos.

[Josber]

Alrolo, procura utilizar el botón COBOL que hay en el editor cuando isertes código, para una mayor claridad.

[Recato53]

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

❞ yo realizo lo siguiente:  ENVIRONMENT     DIVISION.  DATA            DIVISION.  WORKING-STORAGE SECTION. *Usa WININET.LIB *recuerda usar ALPHAL(WORD)      01 WInternet_St  pic s9(9) comp-5.  01 whttp         pic x(21) value "http://www.google.com".    PROCEDURE       DIVISION.      call "InternetCheckConnectionA" with stdcall linkage using                  by reference whttp *>                  by value 1                  by value 0       returning WInternet_St  *>       if WInternet_St equal to zero                 INVOKE POW-SELF "Alarm"   USING    POW-MBEXCLAMATION                 move "No existe conexion a internet" to "Caption" of LabMsg       end-if       exit program.

[Kuk]

Recato53, echa un vistazo aquí: [Aporte] CALL de cualquier DLL sin *.LIB ni - COBOL Foro

[Paulo]

Ola a todos,

usei o exemplo acima, e coloquei no COBOL85.CBR a entrada

[MainForm.Entry]
InternetCheckConnectionA=WININET.DLL

No entanto ao compilar, o programa PPJ, da um erro:

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]

❞ Ola a todos, usei o exemplo acima, e coloquei no COBOL85.CBR a entrada [MainForm.Entry] InternetCheckConnectionA=WININET.DLL No entanto ao compilar, o programa PPJ, da um erro: 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]

@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.