Página 5 de 6
Servidor NTP para harbour 3.0
Enviado: 14 Fev 2014 15:56
por 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?
Servidor NTP para harbour 3.0
Enviado: 14 Fev 2014 18:03
por Toledo
cjp escreveu: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,
Servidor NTP para harbour 3.0
Enviado: 14 Fev 2014 19:04
por 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
Servidor NTP para harbour 3.0
Enviado: 14 Fev 2014 19:10
por Toledo
Josivan Nascimento escreveu: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,
Servidor NTP para harbour 3.0
Enviado: 14 Fev 2014 21:07
por cjp
Agora sim, funcionou, Toledo.
Muito obrigado a todos.
Servidor NTP para harbour 3.0
Enviado: 15 Fev 2014 22:38
por 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
Servidor NTP para harbour 3.0
Enviado: 15 Fev 2014 23:20
por Toledo
Josivan Nascimento escreveu: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,
Servidor NTP para harbour 3.0
Enviado: 16 Fev 2014 00:33
por 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
Servidor NTP para harbour 3.0
Enviado: 16 Fev 2014 08:58
por Toledo
Josivan, fiz algumas alterações no código da minha mensagem anterior, faça um teste e veja se agora funciona:
Abraços,
Servidor NTP para harbour 3.0
Enviado: 17 Fev 2014 20:41
por marcos.gurupi
Toledo o exemplo acima funciona somente com harbour ?
Servidor NTP para harbour 3.0
Enviado: 17 Fev 2014 20:59
por 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
Servidor NTP para harbour 3.0
Enviado: 17 Fev 2014 21:37
por Toledo
Josivan, copie novamente o código na minha mensagem anterior, coloquei em um arquivo em anexo.
marcos.gurupi escreveu: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,
Servidor NTP para harbour 3.0
Enviado: 18 Fev 2014 18:14
por 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?
Servidor NTP para harbour 3.0
Enviado: 03 Mar 2014 00:51
por cjp
Caros colegas,
Por favor, alguém teria uma luz para me dar com este erro?
Servidor NTP para harbour 3.0
Enviado: 03 Abr 2014 21:11
por 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