Servidor NTP para harbour 3.0

[cjp]

Josivan, não sei se entendi bem o que vc quis dizer.

Salvo engano, setdate() não resolveria o problema, pois teria que ser setada uma hora específica.

O que eu estou precisando é uma forma de verificar a hora oficial de Brasília, o que a função do Fladimir parece que faz.

Pelo que eu entendi, ela pega o texto do site www.horariodebrasilia.org para uma variável cPagina. Daí trabalha essa variável para fornecer a data e a hora. Acho que é bem isso que eu quero.

O único problema é que, aparentemente, ela está pegando (ou o site está fornecendo) a data e a hora erradas. Pelo menos nos testes que fiz, ela sempre fornece a data de 08/02/13.

Alguém teria uma solução pra isso?

[Toledo]

Pelo menos nos testes que fiz, ela sempre fornece a data de 08/02/13.

Bom, no teste que eu fiz aqui também retorna a data 08/02/2013.

Então, basta seguir o mesmo exemplo do código do Fladimir e usar um outro site para poder pegar a data e hora.

Vejo o exemplo que está em anexo.

Abraços,

[Nascimento]

eu penssei que na sua funçao vc ia alertar o cliente pra ajustar a data e hora
dai dei aquela opiniao de vc ajustar automaticamente entendeu

é oque eu preciso pra completar a funçao ntp feita pelos amigos aqui

preciso de uma que ping um host e que retorne .t. ou .f. como explicado na pagina anterior

[Toledo]

preciso de uma que ping um host e que retorne .t. ou .f.

Este "ping" é só para saber se no computador existe uma conexão com a internet?

Abraços,

[cjp]

Agora sim, funcionou, Toledo.

Muito obrigado a todos.

[Nascimento]

sim amigo toledo pra ver se tem conexao com a internet

eu precisaria que pinga-se um host ou dns e retorna-se .t. (caso com internet)
e .f. caso ( não tivesse internet )

o próposito é o seguinte:

caso tenha internet aciona a funçao ntp

e ja atualiza automaticamente data e hora do computador (essa funçao eu ja acrescentei na funçao ntp)

caso nao tenha exibe uma mensagem a funçao seria mais ou menos como coloquei na outra pagina mais pra relembrar:

Vdns:= '8.8.8.8' // dns do google como exemplo

if ping(vdns) // ping é o nome da funçao sugerida
executantp() // execulta a funçao do ntp ja feita pelos nobres amigos daqui
else
alert(' Verifique a Conexão com a Internet')
endif

A funçao ping ou seja o nome Ping é so sugerido por mim como exemplo

o que ela faz pega a variavel Vdns e checa o respectivo dns ou host se encontar retorna a .t. se nao encontrar o host ou dns retorna a .f.

espero que o amigo tenha entendido

[Toledo]

sim amigo toledo pra ver se tem conexao com a internet

Josivan, então veja esta função:

Código: Selecionar todos

**********************************************
* Compilar: hbmk2 demo.prg -lhbmisc
**********************************************
Func Main()
Cls
SetMode(25,80)
If IsConnected()
 alert("Conexao com Internet disponivel")
Else
 alert("Sem Conexao com Internet")
Endif
Return Nil

Function IsConnected()
local nFlags := 0, lRet := .f.
if CallDll32( "InternetGetConnectedState", "WININET.DLL", @nFlags, 0 ) == 1
  lRet := .t.
endif
RETURN lRet

Abraços,

[Nascimento]

vou explicar melhor pra voce entender com 2 imagens certo
Nesta primeira imagem eu fiz o seguinte retirei o cabo de telefone do modem adsl ficando sem internet mais com ip (gerado pelo dhcp do modem)
veja que quando dou o comando ping 8.8.8.8 da falha
enquanto a funçao pingar que é a que voce postou diz que tem internet disponivel (obs: coloquei como comentario o cls para melhor visualizaçao)

sem conexao a internet

apos feito esse teste recoloquei o cabo de telefone no modem adsl conectando novamente com a internet veja a diferença

veja que agora o comando ping 8.8.8.8 nao da falha ( no caso ele encontra o dns do google )
e a funçao pingar diz que tem internet

com conexao a internet

fiz outro teste mais acho que nao precisa printar so da sem conexão em 2 motivos

1 se nao tiver ip setado na placa de rede ou ip invalido

2 se o cabo de rede ou placa wifi estiver desativada

[Toledo]

Josivan, fiz algumas alterações no código da minha mensagem anterior, faça um teste e veja se agora funciona:

Abraços,

[marcos.gurupi]

Toledo o exemplo acima funciona somente com harbour ?

[Nascimento]

amigo toledo deu os seguintes erros na compilaçao

C:\Testes>hbmk2 pingar.prg
Harbour 3.2.0dev (r1312060952)
Copyright (c) 1999-2013, http://harbour-project.org/
Compiling 'pingar.prg'...
Lines 166, Functions/Procedures 3
Generating C source output to 'C:\Users\Adm_Casa\AppData\Local\Temp\hbmk_8uy24s.
dir\pingar.c'... Done.
C:\Users\Adm_Casa\AppData\Local\Temp\hbmk_8uy24s.dir\pingar.c:
Warning W8060 pingar.prg 135: Possibly incorrect assignment in function HB_DynaC
all
Warning W8004 pingar.prg 152: 'ap' is assigned a value that is never used in fun
ction HB_DynaCall
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland

Obs : eu uso o habour e bcc5.82

gera o pingar.exe mais trava ao execultar

[Toledo]

Josivan, copie novamente o código na minha mensagem anterior, coloquei em um arquivo em anexo.

Toledo o exemplo acima funciona somente com harbour ?

Marcos, não tenho certeza se pode funcionar com xHarbour, mas o códigos de todas as funções estão no exemplo que passei, então é só questão de tentar compilar. Copie novamente o código na minha mensagem anterior e faça um teste.

Abraços,

[cjp]

Toledo e demais colegas,

Estou enfrentando problemas com esta função. No meu computador ela está funcionando perfeitamente. Mas nos computadores de alguns usuários ela está dando o seguinte erro:

Código: Selecionar todos

Error WINOLE/1007  Argument error: NAVIGATE (DOS Error -2147023170)

A linha apontada para este erro é a que está assim:

Código: Selecionar todos

   oOle:Navigate("http://www.timeanddate.com/worldclock/fullscreen.html?n=45")

Eventualmente o erro muda para este:

Código: Selecionar todos

Error WINOLE/1009  No exported method: READYSTATE (DOS Error -2147023170)

E daí a linha apontada para este erro é esta:

Código: Selecionar todos

   WHILE oOle:ReadyState() != 4  // Aguarda página ser carregada, mesmo q não seja visualizado no Navegador (opão Visible := F ou T)

Alguém saberia me dizer a causa do erro?

[cjp]

Caros colegas,

Por favor, alguém teria uma luz para me dar com este erro?

[Abel]

ola, pessoal, eu faço assim

Código: Selecionar todos

// TESTE 001
   cUrl:="http://www.google.com.br/"
   oHttp:= TipClientHttp():new(TURL():new( cUrl ))
   oHttp:nConnTimeout := 1500 // 4segs 
// QDO E O MODEM DEMORA 12 SEGS NO TIMEOUT e nao respeita o
// timeout
   //
   rN_SEC1=SECONDS()
   rN_SEC2=rN_SEC1
   //
   IF oHttp:Open(cUrl)
      rN_SEC2=SECONDS()  // SE DEMORAR PARA CHEGAR AQUI NAO TEM
      IF (rN_SEC2-rN_SEC1) > 10 // 10 SEGUNDOS                 
          rL_PARATESTE=.T.
      ENDIF
   ENDIF

Abel