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

[Alrolo]

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 (http://cobolforo.es/showthread.php?t=216)

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

[Paulo]

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?

Sim, é isso mesmo.

---------- Post añadido : 15:56 ---------- Post anterior : 15:49 ----------

Já procurei, mas não encontro a WININET.LIB
Alguém me pode enviar ?
Gracias

[Joseg]

Sim, é isso mesmo.

---------- Post añadido : 15:56 ---------- Post anterior : 15:49 ----------

Já procurei, mas não encontro a WININET.LIB
Alguém me pode enviar ?
Gracias

Procuraste no disco todo? Normalmente bem com o sistema operativo.
Mas existe aqui uma cópia:
Windows/wininet.lib at master · HostsTools/Windows · GitHub (https://github.com/HostsTools/Windows/blob/master/wininet.lib)

Se não der mando por e-mail.