ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение наличия файла
10 сообщений из 10, страница 1 из 1
Определение наличия файла
    #34939450
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
Всем привет!

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

Типа:

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

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

Это понятно, а как это средствами Фокса сделать?
...
Рейтинг: 0 / 0
14.11.2007, 17:01
| Ответить | Цитировать | Написать  
Определение наличия файла
    #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:26
| Ответить | Цитировать | Написать  
Определение наличия файла
    #34940578
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Тут еще самплес есть.
...
Рейтинг: 0 / 0
15.11.2007, 07:29
| Ответить | Цитировать | Написать  
Определение наличия файла
    #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:43
| Ответить | Цитировать | Написать  
Определение наличия файла
    #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:47
| Ответить | Цитировать | Написать  
Определение наличия файла
    #34940806
StandD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StandD
Гость
О! То что нужно. Спасибо!
...
Рейтинг: 0 / 0
15.11.2007, 09:53
| Ответить | Цитировать | Написать  
Определение наличия файла
    #34940907
Andrey Ts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey Ts
Участник
А мне всегда хватало
Код: plaintext
IF ADIR(acDir, "\\SERVER\Folder\","D")> 0

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

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

В-общем, да. В моем случае - 9-12 сек.
...
Рейтинг: 0 / 0
15.11.2007, 11:05
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определение наличия файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&tid=1588533]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 67ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 205ms
total:  361ms
созд. / загр.: 361ms
x
x
Закрыть


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