Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как по IP адресу определить текущее время сервера / 14 сообщений из 14, страница 1 из 1
09.06.2006, 23:29
    #33784622
rashidnuk
rashidnuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Ребята ! Кто может подсказать как используя IP адрес определить текущее время сервера ? Знаю что есть функция синхронизации времени в Windows, но как ее использовать ? Мне-бы иногда нажав на кнопку узнавать точное время сервера с известным мне IP адресом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2006, 06:59
    #33784774
piva
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Не знаю как по IP но в винде только одна функция для этого
Код: plaintext
1.
2.
3.
4.
NET_API_STATUS 
NetRemoteTOD (
    LPTSTR UncServerName,	
    LPBYTE * BufferPtr	
   );
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2006, 09:52
    #33784807
Aleksey-K
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Для сетей 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, 14:17
    #33784938
Alexey-M
Alexey-M
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Как вариант, вот так:
Код: 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:20
    #33784940
Alexey-M
Alexey-M
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Только я что-то не понял, почему при загрузке на сервер моему файлу вместо vfpNetLib.FLL присвоили vfpNetLib.txt. Если будете пробовать, то расширение смените.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.06.2006, 14:24
    #33784941
Alexey-M
Alexey-M
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Еще раз.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2006, 21:39
    #33785685
rashidnuk
rashidnuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
За советы спасибо ! Будем пробовать, а почему не открывается архивный файл ? Уже не первый раз сталкиваюсь с такой проблемой, чем зазипован ? Обычно Total Commander был способен открыть любой zip файл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2006, 22:30
    #33785709
Alexey-M
Alexey-M
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Попробовал. Открывается. Упаковывал Windows Commander 5.11.
Могу на почту сбросить, если есть проблемы с открытием.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2006, 08:49
    #33785844
rashidnuk
rashidnuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Alexey-MПопробовал. Открывается. Упаковывал Windows Commander 5.11.
Могу на почту сбросить, если есть проблемы с открытием.
Будь добр, пожалуйста на rashidnuk@mail.ru скинь пожалуйста, хотя я скачал и незипованый файл, но не уверен, правильный-ли файл получился.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2006, 09:06
    #33785850
rashidnuk
rashidnuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Чудеса какие-то, я пользуюсь Opera ввиду его явного превосходства на браузером Windows, им и скачивал, но не открывалось, но скачав Download masterом открылся, хотя ранее без проблем все скачивалось и открывалось и при помощи Opera.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.06.2006, 07:59
    #33786661
rashidnuk
rashidnuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
К сожалению 9 Foxpro и 6 Foxpro имеющиеся в моем распоряжении говорят, что библиотека 'invalid' , хотя файл раскрылся нормально, она по моему от 8 версии. Предыдущие варианты считывают часы и минуты, а мне надо секунды тоже. Жаль.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.06.2006, 10:12
    #33786789
piva
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
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, 15:11
    #33787824
rashidnuk
rashidnuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Спасибо piva за обстоятельный ответ ! Будем пробовать. Вроде это то что нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.06.2006, 22:29
    #33788911
rashidnuk
rashidnuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как по IP адресу определить текущее время сервера
Все что нужно и даже больше ! Большое спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как по IP адресу определить текущее время сервера / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 427ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1591407]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 140ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 199ms
total:  427ms
x
x
Закрыть


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