| Автор | Сообщение |
|
|
| |
Пост N: 3479
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.08.13 10:59. Заголовок: GETNTPDATE у кого то работает ?
function Main()
? GetNtpDate( "31.28.161.71" ) // ntp2.time.in.ua
// возвращает 0
return nil
#pragma BEGINDUMP
#include <hbapi.h>
#include <winsock.h>
#define MAXLEN 1024
HB_FUNC( GETNTPDATE )
{
char * hostname = ( char * ) hb_parc( 1 );
int portno = 123; // NTP is port 123
int i; // misc var i
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
struct protoent * proto; //
struct sockaddr_in server_addr;
int s; // socket
int tmit; // the time -- This is a time_t sort of
WSADATA wsa;
WSAStartup( 0x101, &wsa );
proto = getprotobyname( "udp" );
s = socket( PF_INET, SOCK_DGRAM, proto->p_proto );
memset( &server_addr, 0, sizeof( server_addr ) );
server_addr.sin_family = AF_INET;
server_addr.sin_addr.s_addr = inet_addr( hostname );
server_addr.sin_port = htons( portno );
i = sendto( s, msg, sizeof( msg ), 0, ( struct sockaddr * ) &server_addr, sizeof( server_addr ) );
hb_retnl( WSAGetLastError() );
}
#pragma ENDDUMP
Исходник взял тут |
 |
  
|
|
Ответов - 10
[только новые]
|
|
|
|
| Администратор
|
Пост N: 2964
Зарегистрирован: 23.05.05
|
|
Отправлено: 28.08.13 11:11. Заголовок: Dima пишет: // возв..
Dima пишет: hb_retnl( WSAGetLastError() ); возвращает код последней ошибки, а он наверное и есть 0 Что написано, то и возвращает |
|
|
|
|
| |
Пост N: 3480
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.08.13 11:12. Заголовок: Pasha В С я не силе..
Pasha
В С я не силен.
А что нужно что бы функция вернула время (дату) ?
|
|
|
|
|
| Администратор
|
Пост N: 2965
Зарегистрирован: 23.05.05
|
|
Отправлено: 28.08.13 11:25. Заголовок: А я не силен в этих ..
А я не силен в этих структурах и вызовах socket функций. Там посылается запрос sendto, а еще как-то надо получить ответ.
Может подождать, пока сам Антонио допилит ? Он же написал, что still on development
|
|
|
|
|
| |
Пост N: 3481
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.08.13 11:33. Заголовок: Понял , спасибо...
Понял , спасибо.
|
|
|
|
|
| |
Пост N: 3482
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.08.13 12:58. Заголовок: Да ты был прав , доп..
Да ты был прав , допилил он ;) Правда прога теперь падает с жуткой месагой а у него судя по скрину работает. Скрытый текст
Unrecoverable error 6005: Exception error:
Exception Code:C0000005 12:5
Exception Address:00487E1A
EAX:00D40B54 EBX:00D4BCB0 ECX:00D40B50 EDX:01A816A8
ESI:004A01B0 EDI:004930CC EBP:0012FF0C
CS:EIP:001B:00487E1A SS:ESP:0023:0012FF08
DS:0023 ES:0023 FS:003B GS:0000
Flags:00010202
CS:EIP: F6 02 01 74 2A 8B 0A 83 E1 FC 83 C1 04 01 08 3B
SS:ESP: 00DA20A0 0012FF18 00487DB8 00D4BCB0 0012FF24 004876B9 00D4BCB0 0012FF5C 0048FB0E 00D4BCB0 00000002 004930F6
0048F627 00000000 00493138 00000000
C stack:
EIP: EBP: Frame: OldEBP, RetAddr, Params...
00487E1A 0012FF0C 0012FF18 00487DB8 00D4BCB0
00487DB8 0012FF18 0012FF24 004876B9 00D4BCB0
004876B9 0012FF24 0012FF5C 0048FB0E 00D4BCB0 00000002 004930F6 0048F627 00000000 00493138 00000000 004A01A8
0048FB0E 0012FF5C 0012FF80 0048F676 004A01A4 00000001 00000000 00493138 00000000 0048E8E0 7FFD9000
0048F676 0012FF80 0012FF94 0048E938 00000000 00000000 00000000
0048E938 0012FF94 0012FFB8 0048F86F 00000000 00000000 00000000 7FFD9000 7FFD9000 0012FFE0 00489244
0048F86F 0012FFB8 0012FFF0 00000000 00493138 7C816FD7 00000000 00000000 7FFD9000 805502FA 0012FFC8 85CCC020
Modules:
0x00400000 0x000AF000 C:\1\boris\dd\6\t.exe
0x7C900000 0x000B0000 C:\WINDOWS\system32\ntdll.dll
0x7C800000 0x000F5000 C:\WINDOWS\system32\kernel32.dll
0x7E410000 0x00090000 C:\WINDOWS\system32\USER32.DLL
0x77F10000 0x00048000 C:\WINDOWS\system32\GDI32.dll
0x71AB0000 0x00017000 C:\WINDOWS\system32\WS2_32.DLL
0x77C10000 0x00058000 C:\WINDOWS\system32\msvcrt.dll
0x71AA0000 0x00008000 C:\WINDOWS\system32\WS2HELP.dll
0x77DD0000 0x0009B000 C:\WINDOWS\system32\ADVAPI32.dll
0x77E70000 0x00091000 C:\WINDOWS\system32\RPCRT4.dll
0x76390000 0x0001D000 C:\WINDOWS\system32\IMM32.DLL
0x10000000 0x0004D000 C:\WINDOWS\system32\guard32.dll
0x77C00000 0x00008000 C:\WINDOWS\system32\VERSION.dll
0x4FFE0000 0x00008000 C:\WINDOWS\system32\fltlib.dll
0x71A50000 0x0003F000 C:\WINDOWS\system32\mswsock.dll
|
|
|
|
|
|
| постоянный участник
|
Пост N: 119
Зарегистрирован: 29.05.10
|
|
Отправлено: 28.08.13 13:10. Заголовок: У меня оаботает..
У меня работает
|
|
|
|
|
| |
Пост N: 3483
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.08.13 13:11. Заголовок: ММК FW ? ..
ММК
FW ?
|
|
|
|
|
| постоянный участник
|
Пост N: 120
Зарегистрирован: 29.05.10
|
|
Отправлено: 28.08.13 13:33. Заголовок: да..
да
|
|
|
|
|
| |
Пост N: 3484
Зарегистрирован: 17.05.05
|
|
Отправлено: 28.08.13 13:36. Заголовок: Пересобрал под MINGW..
Пересобрал под Harbour_MINGW , работает однако. В связке Harbour_BCC55 - падало ММК пишет: У тебя веротяно BCC582 или выше и поэтому тож работает Вообщем код рабочий Скрытый текст
Proc Main
? GetNtpDate( "31.28.161.71" )
return nil
#pragma BEGINDUMP
#include <hbapi.h>
#include <winsock.h>
#include <time.h>
#define MAXLEN 1024
HB_FUNC( GETNTPDATE )
{
char * hostname = ( char * ) hb_parc( 1 );
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
struct sockaddr_in server_addr;
int s; // socket
WSADATA wsa;
struct timeval timeout;
fd_set fds;
time_t tmit;
WSAStartup( 0x101, &wsa );
s = socket( PF_INET, SOCK_DGRAM, getprotobyname( "udp" )->p_proto );
memset( &server_addr, 0, sizeof( server_addr ) );
server_addr.sin_family = AF_INET;
server_addr.sin_addr.s_addr = inet_addr( hostname );
server_addr.sin_port = htons( 123 ); // ntp port
sendto( s, msg, sizeof( msg ), 0, ( struct sockaddr * ) &server_addr, sizeof( server_addr ) );
FD_ZERO( &fds );
FD_SET( s, &fds );
timeout.tv_sec = 10;
timeout.tv_usec = 0;
if( select( 0, &fds, NULL, NULL, &timeout ) )
{
recv( s, ( void * ) buf, sizeof( buf ), 0 );
tmit = ntohl( buf[ 10 ] );
tmit-= 2208988800U;
}
else
MessageBox( 0, "can't read from NTP server", "ok", 0 );
WSACleanup();
hb_retc( ctime( &tmit ) );
}
#pragma ENDDUMP
|
|
|
|
|
|
| постоянный участник
|
Пост N: 121
Зарегистрирован: 29.05.10
|
|
Отправлено: 28.08.13 14:43. Заголовок: BCC582 и хХарбор..
BCC582 и хХарбор
|
|
|
|
- участник сейчас на форуме
- участник вне форума