Servidor NTP para harbour 3.0

[cjp]

Caro Abel,

Desculpe, mas eu não entendi o teu exemplo.

Vc poderia me explicar melhor?

[Nascimento]

tambem nao entendi rsrs

[cjp]

Galera, dá uma mão aí, por favor, ainda está dando erro!!!

[bencz]

Falta o negocio de ping ?

Código: Selecionar todos

// Não me recordo de onde encontrei isso....

function PINGS( URL ) 
   local Hosts 
   local wRet := .T. 
   
   InetInit() 
   if empty(URL) 
      URL := "www.google.com" 
   endif 
   
   Hosts := InetGetHosts( URL ) 
   IF Hosts = nil .or. len(Hosts) = 0 
      wRet := .F. 
   endif 
   
   InetCleanup() 
Return wRet 

[cjp]

Bencz, eu não entendi. Esta função era pra mim? Ela tem ligação com o problema que eu estou tendo aqui?

O meu problema é que, em algumas máquinas que estou rodando, está dando este erro:

Código: Selecionar todos

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

Nesta linha (e às vezes também em outras):

Código: Selecionar todos

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

Todas as máquinas estão com Windows 7 e ligadas em rede.

[bencz]

Eu fiz uma leitura por cima do tópico, e vi este seu comentario:

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 )

...

Por que motivo você está utilizando um navegador para atualizar a hora ?

[cjp]

Acho que esse comentário citado não foi meu.

Eu queria apenas conferir se a máquina do usuário está de acordo com a hora oficial. Tem outro jeito de fazer isso?

O mais estranho é que funciona em algumas máquinas e não em outras.