Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение наличия файла / 10 сообщений из 10, страница 1 из 1
14.11.2007, 16:47
    #34939450
StandD
StandD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
Всем привет!

Вот такой вопрос.
При входе в программу на локальном компьютере делается проверка наличия файла на каком-то сервере и, в случае его нахождения, этот файл копируется.

Типа:

fil="\\server3\file.mdb"
if file("&fil")=.t.
copy file .....
.....

Все хорошо, когда комп-server3 включен. Но если он выключен - процесс затягивается на несколько минут. Можно ли процесс поиска файла ускорить? Может, перед поиском конкретного файла можно как-то просто проверить, включен ли данный сервер?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2007, 16:59
    #34939504
PaulWist
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
ping meserver
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2007, 17:01
    #34939521
StandD
StandD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
PaulWistping meserver

Это понятно, а как это средствами Фокса сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2007, 07:26
    #34940571
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
Не по теме, вот это:
Код: plaintext
if file("&fil")=.t.
можно писать так:
Код: plaintext
if file(fil)

StandD PaulWistping meserver

Это понятно, а как это средствами Фокса сделать?
В простейшем случае так:
Код: plaintext
1.
run ping server3 -n  1  > ping.txt
Затем открываешь ping.txt и парсишь его
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2007, 07:29
    #34940578
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
Тут еще самплес есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2007, 09:43
    #34940775
StandD
StandD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
Dima T
В простейшем случае так:
run ping server3 -n 1 > ping.txt
Затем открываешь ping.txt и парсишь его

В-общем, помогло, спасибо. Есть, правда,осадочек в виде ДОС-окна. Причем при включенном сервере оно появляется на 1 секунду, при выключенном - на 2-3. Плюс ДОС-кодировка. Но это, в общем, пустяки.
Ну а потом, как я понимаю, filetostr(ping.txt) и если есть фраза "не обнаружен", то ....
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2007, 09:47
    #34940786
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
StandDЕсть, правда,осадочек в виде ДОС-окна. ...

Окно можно спрятать.
Тут я исходник класса давал. Подходит в т.ч. для запуска без окна. В простейшем случае использовать так:
Код: plaintext
1.
2.
3.
4.
loWEx = NewObject('waitexec')
loWEx.lHide = .T. && запрещаем создание окна
if loWEx.Execute('ping server3 -n 1 > ping.txt') && Запускаем ping
   loWEx.WaitStop() && Дожидаемся завершения работы
endif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2007, 09:53
    #34940806
StandD
StandD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
О! То что нужно. Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2007, 10:24
    #34940907
Andrey Ts
Andrey Ts
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
А мне всегда хватало
Код: plaintext
IF ADIR(acDir, "\\SERVER\Folder\","D")> 0

Работает намного быстрее file()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2007, 11:05
    #34941132
StandD
StandD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение наличия файла
Andrey TsА мне всегда хватало
Код: plaintext
IF ADIR(acDir, "\\SERVER\Folder\","D")> 0

Работает намного быстрее file()

В-общем, да. В моем случае - 9-12 сек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение наличия файла / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 320ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1588533]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 183ms
total:  320ms
x
x
Закрыть


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