Página 1 de 2 1 2 ÚltimoÚltimo
Resultados 1 al 10 de 12

Tema: Enviar aviso "Sin conexion a internet"

  1. #1
      Junior
    G

    Registrado
    abril de 2015
    Ubicación
    Panama
    Mensajes
    61
    Última visita
    01.07.2020

    Agradecimientos
     
    Recibidos
    2
    Enviados
    6

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    8

    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.

    0 Not allowed!

  2. #2
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    37
    Mensajes
    2,088
    Última visita
    Ayer a las 15:47

    Agradecimientos
     
    Recibidos
    908
    Enviados
    784

    Citaciones y menciones
     
    Mentioned
    40 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    12 Post(s)
    Poder de Reputación
    10

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

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  3. #3
      Acabo de llegar...
    A

    Registrado
    noviembre de 2015
    Ubicación
    Leon, Gto. Mexico
    Mensajes
    1
    Última visita
    21.10.2021

    Agradecimientos
     
    Recibidos
    3
    Enviados
    1

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado
    1 members found this post helpful.

    yo realizo lo siguiente:

    COBOL Código:
    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.

    0 Not allowed!
    Última edición por Josber; 07.11.2015 a las 10:24 Razón: Etiqueta COBOL para el código

  4. #4
      Junior
    G

    Registrado
    abril de 2015
    Ubicación
    Panama
    Mensajes
    61
    Última visita
    01.07.2020

    Agradecimientos
     
    Recibidos
    2
    Enviados
    6

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    8

    Predeterminado

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

    0 Not allowed!

  5. #5
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Ubicación
    Alicante
    Mensajes
    694
    Última visita
    Hoy a las 18:43

    Agradecimientos
     
    Recibidos
    385
    Enviados
    314

    Citaciones y menciones
     
    Mentioned
    33 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    6 Post(s)
    Poder de Reputación
    35
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

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

    0 Not allowed!

  6. #6
      Junior
    R

    Registrado
    febrero de 2015
    Ubicación
    Valladolid
    Mensajes
    77
    Última visita
    14.07.2022

    Agradecimientos
     
    Recibidos
    11
    Enviados
    72

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    8

    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 Iniciado por Alrolo Ver Mensaje
    yo realizo lo siguiente:

    COBOL Código:
    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.

    0 Not allowed!

  7. #7
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    37
    Mensajes
    2,088
    Última visita
    Ayer a las 15:47

    Agradecimientos
     
    Recibidos
    908
    Enviados
    784

    Citaciones y menciones
     
    Mentioned
    40 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    12 Post(s)
    Poder de Reputación
    10

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  8. #8
      Junior
    P

    Registrado
    marzo de 2018
    Ubicación
    Porto
    Mensajes
    64
    Última visita
    22.11.2022

    Agradecimientos
     
    Recibidos
    21
    Enviados
    22

    Citaciones y menciones
     
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    6

    Predeterminado

    Ola a todos,

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

    Alguem pode ajudar ?

    Gracias
    Saludos

    0 Not allowed!

  9. #9
      Senior
    Avatar de Joseg

    Registrado
    abril de 2015
    Mensajes
    288
    Última visita
    01.12.2022

    Agradecimientos
     
    Recibidos
    129
    Enviados
    73

    Citaciones y menciones
     
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Activista del Foro / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    Cita Iniciado por Paulo Ver Mensaje
    Ola a todos,

    usei o exemplo acima, e coloquei no COBOL85.CBR a entrada
    CODE Código:
    1. [MainForm.Entry]
    2. InternetCheckConnectionA=WININET.DLL
    No entanto ao compilar, o programa PPJ, da um erro:
    CODE Código:
    1. MainForm.obj : error LNK2001: unresolved external symbol _INTERNETCHECKCONNECTIONA@12
    2. 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?

    0 Not allowed!

  10. #10
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    37
    Mensajes
    2,088
    Última visita
    Ayer a las 15:47

    Agradecimientos
     
    Recibidos
    908
    Enviados
    784

    Citaciones y menciones
     
    Mentioned
    40 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    12 Post(s)
    Poder de Reputación
    10

    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.

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

Página 1 de 2 1 2 ÚltimoÚltimo

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. "Aquí no hay quién viva" cumple 15 años
    Por Kuk en el foro Espacio "Offtop"
    Respuestas: 0
    Último Mensaje: 08.03.2018, 11:36
  2. [Sintaxis] Problema en enviar null x"00" a impresora termica
    Por drvedia1981 en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 10
    Último Mensaje: 17.11.2017, 22:37
  3. [Sintaxis] Error MOVE "Parent" de un nodo "Root" en TreeView
    Por dmosca en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 23.08.2017, 09:47
  4. [Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary"
    Por Kuk en el foro Cocina PowerCOBOL
    Respuestas: 20
    Último Mensaje: 30.07.2017, 00:33
  5. Vendió una página de internet "píxel por píxel"
    Por Kuk en el foro Espacio "Offtop"
    Respuestas: 0
    Último Mensaje: 10.02.2017, 16:29

Etiquetas para este Tema

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •