ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как по IP адресу определить текущее время сервера
14 сообщений из 14, страница 1 из 1
Как по IP адресу определить текущее время сервера
    #33784622
rashidnuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rashidnuk
Гость
Ребята ! Кто может подсказать как используя IP адрес определить текущее время сервера ? Знаю что есть функция синхронизации времени в Windows, но как ее использовать ? Мне-бы иногда нажав на кнопку узнавать точное время сервера с известным мне IP адресом.
...
Рейтинг: 0 / 0
09.06.2006, 23:29
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33784774
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Не знаю как по IP но в винде только одна функция для этого
Код: plaintext
1.
2.
3.
4.
NET_API_STATUS 
NetRemoteTOD (
    LPTSTR UncServerName,	
    LPBYTE * BufferPtr	
   );
...
Рейтинг: 0 / 0
10.06.2006, 06:59
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33784807
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
Для сетей Microsoft можно использовать "дедовский" способ:
1. Запускаешь через RUN команду NET TIME \\127.0.0.1 >C:\TIME.TXT
2. Копируешь файл в переменную FILETOSTR("C:\TIME.TXT")
3. "Вынимаешь" из переменной дату и время из текста типа:

Код: plaintext
1.
2.
Current time at \\ 127 . 0 . 0 . 1  is  6 / 10 / 2006   9 : 44  AM

The command completed successfully.

С уважением, Алексей
P.S. Вместо 127.0.0.1, разумеется, надо подставить требуемый IP адрес
...
Рейтинг: 0 / 0
10.06.2006, 09:52
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33784938
Alexey-M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey-M
Участник
Как вариант, вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
#Define ERR_BADPRM '0' && Параметр не String
#Define ERR_EXEC    '1' && Ошибка запроса

Set Library To D:\vfpNetLib.fll
Local lcNameServera as String,;
      lcRetDataTime as String
lcNameServer = 'NameServer' && Или адрес
? GetTimeFromRemoteServer(@lcNameServer)
Set Library To
...
Рейтинг: 0 / 0
10.06.2006, 14:17
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33784940
Alexey-M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey-M
Участник
Только я что-то не понял, почему при загрузке на сервер моему файлу вместо vfpNetLib.FLL присвоили vfpNetLib.txt. Если будете пробовать, то расширение смените.
...
Рейтинг: 0 / 0
10.06.2006, 14:20
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33784941
Alexey-M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey-M
Участник
Еще раз.
...
Рейтинг: 0 / 0
10.06.2006, 14:24
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33785685
rashidnuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rashidnuk
Гость
За советы спасибо ! Будем пробовать, а почему не открывается архивный файл ? Уже не первый раз сталкиваюсь с такой проблемой, чем зазипован ? Обычно Total Commander был способен открыть любой zip файл.
...
Рейтинг: 0 / 0
11.06.2006, 21:39
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33785709
Alexey-M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey-M
Участник
Попробовал. Открывается. Упаковывал Windows Commander 5.11.
Могу на почту сбросить, если есть проблемы с открытием.
...
Рейтинг: 0 / 0
11.06.2006, 22:30
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33785844
rashidnuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rashidnuk
Гость
Alexey-MПопробовал. Открывается. Упаковывал Windows Commander 5.11.
Могу на почту сбросить, если есть проблемы с открытием.
Будь добр, пожалуйста на rashidnuk@mail.ru скинь пожалуйста, хотя я скачал и незипованый файл, но не уверен, правильный-ли файл получился.
...
Рейтинг: 0 / 0
12.06.2006, 08:49
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33785850
rashidnuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rashidnuk
Гость
Чудеса какие-то, я пользуюсь Opera ввиду его явного превосходства на браузером Windows, им и скачивал, но не открывалось, но скачав Download masterом открылся, хотя ранее без проблем все скачивалось и открывалось и при помощи Opera.
...
Рейтинг: 0 / 0
12.06.2006, 09:06
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33786661
rashidnuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rashidnuk
Гость
К сожалению 9 Foxpro и 6 Foxpro имеющиеся в моем распоряжении говорят, что библиотека 'invalid' , хотя файл раскрылся нормально, она по моему от 8 версии. Предыдущие варианты считывают часы и минуты, а мне надо секунды тоже. Жаль.
...
Рейтинг: 0 / 0
13.06.2006, 07:59
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33786789
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
C IP адесом тоже прокатывает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
local o
o=RemoteTOD("192.168.0.6")

with o
	? .Hour, .Minute, .Second, .Day, .Month, .Year
endwith

*********
* VPF9
* Передается имя сервера - RemoteTOD("\\SERVER")
* или можно передавать IP адрес RemoteTOD("192.168.0.6")
* возвращает объект со свойствами
*
*********
Procedure RemoteTOD
Lparameters lcServerName
If Empty(lcServerName)
	lcServerName= 0 
Else
	lcServerName=Strconv(lcServerName, 5 )+Chr( 0 )
EndIf

Local loRemoteTime
loRemoteTime=Create("empty")

Declare integer NetRemoteTOD in netapi32.dll ;
	string UncServerName ;
	,integer @ buffer

Declare integer NetApiBufferFree in netapi32.dll integer


Local lnBufferPointer, lcLocalBuffer
lnBufferPointer= 0 

If NetRemoteTOD(lcServerName, @lnBufferPointer)# 0 
	Return loRemoteTime
EndIf 

lcLocalBuffer=Sys( 2600 ,lnBufferPointer, 48 )
NetApiBufferFree(lnBufferPointer)

AddProperty(loRemoteTime,"Elapsed"	,CToBin(Substr(lcLocalBuffer, 1 , 4 ),'4RS'))
AddProperty(loRemoteTime,"MSecs"	,CToBin(Substr(lcLocalBuffer, 5 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Hour"		,CToBin(Substr(lcLocalBuffer, 9 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Minute"	,CToBin(Substr(lcLocalBuffer, 13 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Second"	,CToBin(Substr(lcLocalBuffer, 17 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Hundred"	,CToBin(Substr(lcLocalBuffer, 21 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Timezone"	,CToBin(Substr(lcLocalBuffer, 25 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Interval"	,CToBin(Substr(lcLocalBuffer, 29 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Day"		,CToBin(Substr(lcLocalBuffer, 33 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Month"	,CToBin(Substr(lcLocalBuffer, 37 , 4 ),'4RS'))
AddProperty(loRemoteTime,"Year"		,CToBin(Substr(lcLocalBuffer, 41 , 4 ),'4RS'))
AddProperty(loRemoteTime,"WeekDay"	,CToBin(Substr(lcLocalBuffer, 45 , 4 ),'4RS'))

Return loRemoteTime
...
Рейтинг: 0 / 0
13.06.2006, 10:12
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33787824
rashidnuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rashidnuk
Гость
Спасибо piva за обстоятельный ответ ! Будем пробовать. Вроде это то что нужно.
...
Рейтинг: 0 / 0
13.06.2006, 15:11
| Ответить | Цитировать | Написать  
Как по IP адресу определить текущее время сервера
    #33788911
rashidnuk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rashidnuk
Гость
Все что нужно и даже больше ! Большое спасибо.
...
Рейтинг: 0 / 0
13.06.2006, 22:29
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как по IP адресу определить текущее время сервера
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33785709&tid=1591407]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 405ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 206ms
total:  703ms
созд. / загр.: 703ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]