Clipper On Line • Ver Tópico - Tem Internet ?

Tem Internet ?

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Tem Internet ?

Mensagempor Itamar M. Lins Jr. » 21 Fev 2018 14:59

Ola!
Function Main
SETMODE(25,80)
        Alert(IIF(TemInternet(),"Conectado","Não Conectado"))
return NIL       

    FUNCTION TemInternet( nTimeout )
       LOCAL aAddr := hb_socketResolveINetAddr( "www.google.com", 80 )       
       RETURN  !Empty( aAddr ) .and. hb_socketConnect( pSocket := hb_socketOpen(), aAddr, hb_defaultValue( nTimeout, 2000 ) ) .and. hb_socketClose( pSocket )


Harbour puro sem as presepadas do windows.
Peguei no forum do xHarbour, e modifiquei para fechar a conexão.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Tem Internet ?

Mensagempor JoséQuintas » 21 Fev 2018 17:49

Não entendi porque xHarbour...

Peguei do fórum do Harbour há muito tempo, e uso isto:

FUNCTION IsInternet( cUrl, nPort )

   LOCAL lOk := .F. , aAddr

   hb_Default( @cUrl, "www.google.com" )
   hb_Default( @nPort, 80 )
   aAddr := hb_socketResolveINetAddr( cUrl, nPort )
   IF ! Empty( aAddr )
      lOk := hb_socketConnect( hb_socketOpen(), aAddr, 2000 )
   ENDIF

   RETURN lOk
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Tem Internet ?

Mensagempor JoséQuintas » 21 Fev 2018 17:52

José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Tem Internet ?

Mensagempor Itamar M. Lins Jr. » 22 Fev 2018 09:36

Ola!
Pois é o povo! copiando e colando as coisas dos outros sem dar os devidos créditos.
Então faltou do hb_SocketClose(), tem outro exemplo sem ser esse do Przmek que ele coloca o close, só fiz acrescentar.
Abriu a conexão tem que fechar.
Sabe como é o povo do xHarbour... só copiando as coisas do Harbour 3.2 e 3.4, de 2 em dois meses rsrsrs, para dizer que aquilo lá não tá abandonado.
Alias, eu não achei documentos ensinando como usar essas funções "socket" apenas alguns exemplos do Przmek.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Tem Internet ?

Mensagempor JoséQuintas » 22 Fev 2018 09:42

Eu acho que a conexão parada acaba morrendo sozinha.
Aliás, some variável e some tudo.... rs
Uso isso no meu servidor pra testar se tem internet.... é 24 horas rodando faz tempo.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Tem Internet ?

Mensagempor Nascimento » 22 Fev 2018 14:40

isso é ótimo eu tinha uma , mais não estava muito boa as vezes dava erro, vou testar essa!
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 18 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro