Servidor NTP para harbour 3.0

[Nascimento]

Amigo fladimir tambem testei a funçao postada por vc nao obtive exito

[fladimir]

Qual a mensagem de erro?

Recapitulando vc usa Harbour ou xHarbour?

pelo q entendi vc usa o BCC correto?

como vc esta fazendo pra compilar? (poste o comando)

[]´s

[Nascimento]

uso o harbour 3.o com o bcc

a funçao do amigo toledo é a que eu preciso so que ta compilando mais ta dando erro na execuçao

e quando tento compilar meu sistema com o MingW retorna muitos erros no qual nao sei nem por onde resolver ja que sou iniciante no mundo harbour :%

se quizer eu posto os erros que da quando tento compilar com o MingW

[asimoes]

Para resolver o warning é só remover o unsigned

Código: Selecionar todos

  //unsigned char msg[ 48 ] = { 010, 0, 0, 0, 0, 0, 0, 0, 0 };   // the packet we send
   //unsigned long buf[ MAXLEN ]; // the buffer we get back
   char msg[ 48 ] = { 010, 0, 0, 0, 0, 0, 0, 0, 0 };   // the packet we send
   long buf[ MAXLEN ]; // the buffer we get back

[Nascimento]

amigo o erro ainda persiste veja ai o que acontece so quando aperto ctrl+break ai sim aparece o prompt


C:\hb30\Fontes\NTP>hbmk2 demo.prg -lhbct
Harbour 3.0.0 (Rev. 16951)
Copyright (c) 1999-2011, http://harbour-project.org/
Compiling 'demo.prg'...
Lines 91, Functions/Procedures 2
Generating C source output to 'C:\Users\ADMCAS~1\AppData\Local\Temp\hbmk_k1vpld.
C:\Users\ADMCAS~1\AppData\Local\Temp\hbmk_k1vpld.dir\demo.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland

C:\hb30\Fontes\NTP>demo

Data: 21/12/2013
Hora: 17:27:36
Unrecoverable error 6005: Exception error:

Exception Code:C0000005
Exception Address:004811AA
EAX:00360004 EBX:003BD8A8 ECX:00360000 EDX:00360000
ESI:00499078 EDI:0048C0D2 EBP:0012FED4
CS:EIP:001B:004811AA SS:ESP0012FED0
DS:0023 ES:0023 FS:003B GS:0000
Flags:00010206
CS:EIP: 83 4C 10 04 02 8B 08 83 E1 FC 3B 0D 90 4C 49 00
SS:ESP: 015420A0 0012FEE0 00481114 003BD8A8 0012FEEC 00480A15 003BD8A8 0012FF24 00488F12 003BD8A8 00000002 0048C0FC 00488A2B 00000000 0048C13C 00000000

C stack:
EIP: EBP: Frame: OldEBP, RetAddr, Params...
004811AA 0012FED4 0012FEE0 00481114 003BD8A8
00481114 0012FEE0 0012FEEC 00480A15 003BD8A8
00480A15 0012FEEC 0012FF24 00488F12 003BD8A8 00000002 0048C0FC 00488A2B 00000000 0048C13C 00000000 00499070
00488F12 0012FF24 0012FF48 00488A7A 0049906C 00000001 00000000 0048C13C 00000000 00487CE4 7FFD9000
00488A7A 0012FF48 0012FF5C 00487D3C 00000000 00000000 00000000
00487D3C 0012FF5C 0012FF80 00488C73 00000000 00000000 00000000 7FFD9000 00000000 0012FFC4 004825A0
00488C73 0012FF80 0012FF94 00000000 0048C13C 76B9ED5C 7FFD9000
00000000 0012FF94 0012FFD4 77B637EB 7FFD9000 730CC724 00000000 00000000 7FFD9000 00000000 00000000 00000000
77B637EB 0012FFD4 0012FFEC 77B637BE 00401000 7FFD9000 00000000 00000000


Modules:
0x00400000 0x000A7000 C:\hb30\Fontes\NTP\demo.exe
0x77B00000 0x0013C000 C:\Windows\SYSTEM32\ntdll.dll
0x6F180000 0x0003F000 C:\Program Files\AVAST Software\Avast\snxhk.dll
0x76B50000 0x000D4000 C:\Windows\system32\KERNEL32.dll
0x75E20000 0x0004B000 C:\Windows\system32\KERNELBASE.dll
0x76920000 0x000C9000 C:\Windows\system32\USER32.DLL
0x76200000 0x0004E000 C:\Windows\system32\GDI32.dll
0x76250000 0x0000A000 C:\Windows\system32\LPK.dll
0x75E70000 0x0009D000 C:\Windows\system32\USP10.dll
0x77C80000 0x000AC000 C:\Windows\system32\msvcrt.dll
0x761C0000 0x00035000 C:\Windows\system32\WS2_32.DLL
0x76560000 0x000A2000 C:\Windows\system32\RPCRT4.dll
0x761B0000 0x00006000 C:\Windows\system32\NSI.dll
0x76540000 0x0001F000 C:\Windows\system32\IMM32.DLL
0x75F10000 0x000CC000 C:\Windows\system32\MSCTF.dll
0x75540000 0x0003C000 C:\Windows\system32\mswsock.dll

^C
C:\hb30\Fontes\NTP>

[asimoes]

Olá,

Utiliza esta versão do harbour

http://sourceforge.net/projects/harbour ... e/download

Cria uma bat para compilar:

ex. ap.bat

@echo off
rem informe o path da instalação do harbour
set path=d:\hb32\bin
hbmk2 demo.prg -lhbct
if exist demo.exe demo.exe
pause

[Nascimento]

assimoes compilou certinho mais ai tem outro problema o meu fonte nao compila com o mingw da um monte de erros ja com o bcc compila redondinho

essa funçao ntp eu queria se possivel que ela compilasse e funcionasse pelo bcc ,caso nao tenha possibilidade posto os erros que da na tentativa de compilaçao do meu fonte pra uma possivel analise

[asimoes]

Josivan,

Eu compilei com Borland 5.8.2, gerou e executou certinho sem erros.



Veja se a sua versão é a 5.5

Att

[asimoes]

Josivan

Eu tenho uma má notícia compilado com mingw a função retorna a hora certa, com bcc a função retorna com 1 hora de diferença para menos.
Pelo menos aconteceu aqui comigo.

[Nascimento]

talvez por conta do fuso amigo esse negocio de horario de verão mais isso pode ser contornado com uma funçao , caso seja esse o problema so criar uma funçao que marque os meses de horario de verão
ela funcionando é o que me interessa porque esse sistema que estou fazendo inicialmente em modo console ele precisa ter o horario exato e que seja evitado manipulaçao por pessoas mal intencionadas

asimoes estou baixando o bcc que vc compilou , muito obrigado a todos que estao me ajudando


att: josivan nascimento

[Itamar M. Lins Jr.]

Ola!
Com Harbour 3.2 é fácil.

Código: Selecionar todos

/* Copyright 2013 Viktor Szakats (vszakats.net/harbour) */

#require "hbmisc"

PROCEDURE Main()

   LOCAL tTime

   Set( _SET_DATEFORMAT, "yyyy-mm-dd" )

   ?? "UTC   time:", tTime := hb_ntp_GetTimeUTC( "0.europe.pool.ntp.org" )
   ?
   ?? "Local time:", tTime + hb_UTCOffset() / 86400
   ?

   RETURN

Saudações,
Itamar M. Lins Jr.

[asimoes]

Olá Itamar,

Primeiramente, Feliz Natal para você e família.

Sobre a função hb_ntp_GetTimeUTC, não encontrei na pasta de fontes do harbour, qual seria esse release ?
Eu fiz uma atualização recente, inclusive pela versão noturna e não localizei referências sobre a função.

[]´s

[Itamar M. Lins Jr.]

Fork do Viktor:
https://github.com/vszakats/harbour-core

Com total sincronização com o harbour oficial.

Ia me esquecendo: Feliz Natal a todos e um prospero ano novo!

Saudações,
Itamar M. Lins Jr.

[asimoes]

Itamar,

Você pode me explicar essa versão do Viktor?
Você mencionou que a versão é sincronizada com a do harbour oficial
Estou entendendo que o Viktor tá fazendo a sua própria versão do harbour com algo a mais é isso?

Bom, baixei esta versão do harbour (fork) ok.
Tentei compilar da mesma forma que eu compilo a versão oficial, não estou conseguindo.

Tem alguma versão "nightly" ?

[]´s

[Itamar M. Lins Jr.]

Aqui compila normal.
Tenho a oficial e a do Viktor, a do Viktor tem mais correções.
Minhas variáveis são essas:
Path para mingw, C:\TDM-GCC-32\bin;

HB_INSTALL_PREFIX=c:\HB32
HB_TIP_OPENSSL=yes
HB_WITH_CURL=C:\curl-7.22.0-devel-mingw32\include
HB_WITH_FIREBIRD=C:\Program Files\Firebird\Firebird_2_5\include
HB_WITH_OPENSSL=C:\OpenSSL-Win32\include
HB_WITH_QT=C:\QT\Qt5.0.2\5.0.2\mingw47_32\include\

Mandei um email p/ o grupo e ele respondeu:

This is one of the 200+ patches committed into my fork on GitHub.
It's up to anyone interested to retrofit them to mainstream.

[ Disclaimers apply. This fork:
- has more limited testing / peer review
- with a matching, more conservative patching approach
- contains (thus far) every patch from mainstream (sometimes with fixes)
- has dropped HB_LEGACY_LEVEL4 compatibility
- comes with limited public support ]

--Viktor

Saudações,
Itamar M. Lins Jr.