Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
"Aquí no hay quién viva" cumple 15 años Kuk Espacio "Offtop" 0 8 de marzo de 2018 10:36
[Sintaxis] Problema en enviar null x"00" a impresora termica drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 10 17 de noviembre de 2017 21:37
[Sintaxis] Error MOVE "Parent" de un nodo "Root" en TreeView dmosca PowerCOBOL (ActiveX, v4 - v11) 1 23 de agosto de 2017 08:47
[Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" Kuk Cocina PowerCOBOL 20 29 de julio de 2017 23:33
Vendió una página de internet "píxel por píxel" Kuk Espacio "Offtop" 0 10 de febrero de 2017 15:29
Respuesta
 
Herramientas

  #1
Antiguo 26 de julio de 2015, 01:23
IDENTIFICATION DIVISION
Gatomalo
Novato Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
Forero desde (Registrado)abril 2015
Perú
Ubicación Panama
Última Actividad01.07.2020 18:41
PROCEDURE DIVISION
PostsPosts: 61
Ha dicho GraciasEnviado: 6
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 1
ReputaciónReputación: 6
Gatomalo is on a distinguished road
Predeterminado 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.
Gatomalo no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 26 de julio de 2015, 13:07
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad06.12.2020 01:00
PROCEDURE DIVISION
PostsPosts: 1.659
Ha dicho GraciasEnviado: 471
Ha recibido agradecimientosRecibido: 662
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 7 de noviembre de 2015, 02:03
IDENTIFICATION DIVISION
Alrolo
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Alrolo
DATA DIVISION
Forero desde (Registrado)noviembre 2015
México
Ubicación Leon, Gto. Mexico
Última Actividad23.07.2020 05:08
PROCEDURE DIVISION
PostsPosts: 1
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
Alrolo is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

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.

Última edición por Josber fecha: 7 de noviembre de 2015 a las 09:24. Razón: Etiqueta COBOL para el código
Alrolo no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Galileo (20 de diciembre de 2015), gatomalo ( 7 de noviembre de 2015), Josber ( 7 de noviembre de 2015)
  #4
Antiguo 7 de noviembre de 2015, 03:31
IDENTIFICATION DIVISION
Gatomalo
Novato Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
Forero desde (Registrado)abril 2015
Perú
Ubicación Panama
Última Actividad01.07.2020 18:41
PROCEDURE DIVISION
PostsPosts: 61
Ha dicho GraciasEnviado: 6
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 1
ReputaciónReputación: 6
Gatomalo is on a distinguished road
Predeterminado

gracias Alrolo por entender mi pregunta
pondre en practica tus codigos.
Gatomalo no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 7 de noviembre de 2015, 09:26
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad05.12.2020 19:23
PROCEDURE DIVISION
PostsPosts: 540
Ha dicho GraciasEnviado: 231
Ha recibido agradecimientosRecibido: 251
Mejores respuestasSoluiones: 35
ReputaciónReputación: 24
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Alrolo, procura utilizar el botón COBOL que hay en el editor cuando isertes código, para una mayor claridad.
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Alrolo ( 8 de noviembre de 2015)
  #6
Antiguo 1 de febrero de 2017, 19:03
IDENTIFICATION DIVISION
Recato53
Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Recato53
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Valladolid
Última Actividad23.07.2020 12:16
PROCEDURE DIVISION
PostsPosts: 77
Ha dicho GraciasEnviado: 72
Ha recibido agradecimientosRecibido: 11
Mejores respuestasSoluiones: 2
ReputaciónReputación: 6
Recato53 is on a distinguished road
Predeterminado

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 del post de Alrolo Ver Mensaje
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.
Recato53 no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 1 de febrero de 2017, 19:12
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad06.12.2020 01:00
PROCEDURE DIVISION
PostsPosts: 1.659
Ha dicho GraciasEnviado: 471
Ha recibido agradecimientosRecibido: 662
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 20 de octubre de 2020, 17:04
IDENTIFICATION DIVISION
Paulo
Novato Junior
ENVIRONMENT DIVISION
Avatar de Paulo
DATA DIVISION
Forero desde (Registrado)marzo 2018
Portugal
Ubicación Porto
Última Actividad02.12.2020 18:30
PROCEDURE DIVISION
PostsPosts: 39
Ha dicho GraciasEnviado: 15
Ha recibido agradecimientosRecibido: 6
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
Paulo is an unknown quantity at this point
Predeterminado

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
Paulo no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 23 de octubre de 2020, 11:27
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad19.11.2020 11:43
PROCEDURE DIVISION
PostsPosts: 195
Ha dicho GraciasEnviado: 40
Ha recibido agradecimientosRecibido: 74
Mejores respuestasSoluiones: 12
ReputaciónReputación: 13
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de Paulo Ver Mensaje
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?
Joseg no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 23 de octubre de 2020, 14:40
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad06.12.2020 01:00
PROCEDURE DIVISION
PostsPosts: 1.659
Ha dicho GraciasEnviado: 471
Ha recibido agradecimientosRecibido: 662
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Paulo (23 de octubre de 2020)
Respuesta

Tags
comprobar , conexion , internet , internetcheckconnectiona


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 02:41.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.