Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Замедленная работа функции FILE() / 6 сообщений из 6, страница 1 из 1
30.04.2004, 11:17
    #32504006
Gamal Paperot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замедленная работа функции FILE()
При переходе на VFP7 и VFP8 замедлилось выполнение приложений.
Причиной оказалось непонятное замедление работы функции FILE() при отрицательном результате поиска,
то есть, если поиск удачен, то задержки нет,
если НЕ удачен, то задержка весьма значительна (секунды).
Может это только у меня?
...
Рейтинг: 0 / 0
30.04.2004, 11:23
    #32504022
ноль
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замедленная работа функции FILE()
А попробуй явно указать место гле искать с путем, есть подозрение что
SET("PATH") у тебя очень длинный. Что ты от нее в этом случае хочешь, она должна все просмотреть пока не найдет.
...
Рейтинг: 0 / 0
30.04.2004, 11:28
    #32504047
Gamal Paperot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замедленная работа функции FILE()
Место указано весьма конкретно: полный путь с именем того файла, что ищется.
Или вы нaмекаете на установку SET PATH?? Она есть.
...
Рейтинг: 0 / 0
30.04.2004, 11:30
    #32504052
ноль
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замедленная работа функции FILE()
Ну и посмотри что там лежит
? SET("PATH")
...
Рейтинг: 0 / 0
30.04.2004, 11:48
    #32504116
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замедленная работа функции FILE()
OS? FAT/NTFS?
Win2k+NTFS (служба индексации отключена) - без проблем

Попробуй как будет работать через API
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
?IsFileExist('c:\autoexec.bat')
?IsFileExist('c:\autoexec.bbb')

FUNCTION IsFileExist
LPARAMETERS tcFileName as String 
LOCAL lcFileData as String 
LOCAL hFile as Integer 
LOCAL llReturn as Boolean 
DECLARE INTEGER FindClose IN kernel32 INTEGER hFindFile
DECLARE INTEGER FindFirstFile IN kernel32;
STRING lpFileName, STRING @lpFindFileData
lcFileData=SPACE( 318 )
hFile=FindFirstFile(tcFileName, @lcFileData)
IF hFile=- 1 
	llReturn=.F.
ELSE
	=FindClose(hFile)
	llReturn=.T.
ENDIF 
CLEAR DLLS 
RETURN llReturn
ENDFUNC   
...
Рейтинг: 0 / 0
30.04.2004, 13:27
    #32504443
Gamal Paperot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Замедленная работа функции FILE()
Благодарю всех за участие.
Теперь прога бегает как молодая,
правда за счет усложнения алгоритма, но чем то надо поступаться
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Замедленная работа функции FILE() / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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