Коллеги, задолбал меня "глюк", проявляется случайным образом.

* cPath = пусто
* cFileName = полный путь к файлу

nFHandle = FOPEN(cPath+cFileName)
IF nFHandle<0
RETURN -1
ENDIF

а здесь уже nFHandle=0

Файл ни в фоксе, ни в параллельных задачах не держится, т.е. открываю только я сам. Если поставить точку останова на строку открытия и пройти по шагам, то файл открывается успешно!!! nFHandle > 40. А при выполнении блоком дает 0. Я уже не знаю откуда ноги растут.
Есть какие мысли?

Блоком - я имел ввиду работу в ходе работы программы.

Структура программы линейная, ни классов, ни обьектов, примерно такая:

* функция обработки файла
...
PRIVATE nFHandle
...
nFHandle = FOPEN(cPath+cFileName)
IF nFHandle<0
RETURN -1
ENDIF
...
IF CheckFile()<0
...
ENDIF
...



FUNC CheckFile
* nFHandle никак не обьявляется, т.е. видна из вызывающей функции
...
а здесь из-за 0-го хэндла FSEEK не отрабатывает как должен
...
RETURN 1


Точку останова ставлю на команду открытия, далее по шагам - хэндл нормальный, точку ставлю на след.строку "IF nFHandle<0", хэндл=0

sergej_57Если надо работать с файлами на низком уровне, то чтобы было меньше геммороя - смотри в сторону функции FILETOSTR и STRTOFILE.
Файл перевел в переменную, обрабатываешь как обыкновенную переменную с использованием многочисленных строковых функций и массивов, а закончив обработку опять пишешь на диск обработанный файл.
Есть опытные данные, по работе на файлах больших обьемов: скорость обработки файла на низком уровне в РАЗЫ БЫСТРЕЕ работы с переменной.
Причем пробовали различные варианты. Поэтому прошу не предлагать использование др.путей, я о них думал, в моем случае интересует конкретный вопрос, почему хэндл нулевой, а не как в документации?

Коллега, может я плохо обьясняю, но я уже несколько раз сказал,
что после строки "nFHandle = FOPEN(cPath+cFileName)"
уже в следующей строке nFHandle=0
о вызове каких-то там функций или другого кода после ENDIF речь не идет

как еще сказать?
nFHandle = FOPEN(cPath+cFileName)
IF nFHandle<0 && вот здесь уже nFHandle=0, если работает программа, если по шагам, то nFHandle>0
RETURN -1
ENDIF

кстати в открытой таблице в текущей области нет полей с именем "nFHandle" тоже

ну вот картинка мож поможет

вариант по шагам

VFP 8.0 (08.00.0000.2521)

91 variables defined, 1045 bytes used
16293 variables available

RAM 512Mb

config.nt я думаю здесь не при чем, там files=200 поставил (но это ж для ДОС)
для VFP ограничение "Maximum # of open files" - "System limit", его и не порулишь пожалуй.

Больше всего меня убивает разное поведение программы, работающей непрерывно и по шагам >:

Andrey Ts, Crispy вы не внимательно смотрели сообщения, я уже говорил, что файл никем не держится, если файл держать, то FOPEN возвращает как и положено -1.

Processor is Pentium
Select area: 12, Table in Use: C:\TEMP\KB1C01BA.TMP (Readonly) Alias: SQLRESULT
Code page: 1251
Lock(s): Exclusive USE

Currently Selected Table:
Select area: 9, Table in Use: D:\CNT-KS\CKS-TMP\C_SYNDBF.DBF Alias: C_SYNDBF
Code page: 1251
Lock(s): Exclusive USE

Select area: 6, Table in Use: D:\CNT-KS\CKS-TMP\C_RQ2.DBF Alias: C_RQ2
Code page: 1251
Lock(s): Exclusive USE

Select area: 3, Table in Use: D:\CNT-KS\CKS-TMP\C_RQ1.DBF Alias: C_RQ1
Code page: 1251
Lock(s): Exclusive USE

Select area: 4, Table in Use: C:\TEMP\KB1C014R.TMP Alias: C_24_1JC0ZNN65
Code page: 1251
Lock(s): Exclusive USE

Select area: 8, Table in Use: D:\CNT-KS\CKS-TMP\C_24_BUFFER_1JC0ZNDB6.DBF Alias: C_24_BUFFER_1JC0ZNDB6
Code page: 1251
Memo file: D:\CNT-KS\CKS-TMP\C_24_BUFFER_1JC0ZNDB6.FPT
Lock(s): Exclusive USE

Select area: 7, Table in Use: D:\CNT-KS\CKS-TMP\C_24_F_C_1JC0ZNDB5.DBF Alias: C_24_F_C_1JC0ZNDB5
Code page: 1251
Memo file: D:\CNT-KS\CKS-TMP\C_24_F_C_1JC0ZNDB5.FPT
Lock(s): Exclusive USE

Select area: 5, Table in Use: D:\CNT-KS\CKS-TMP\C_24_G_D_1JC0ZNDB4.DBF Alias: C_24_G_D_1JC0ZNDB4
Code page: 1251
Master index file: D:\CNT-KS\CKS-TMP\C_24_G_D_1JC0ZNDB4.IDX Key: SORT Collate: Machine
Memo file: D:\CNT-KS\CKS-TMP\C_24_G_D_1JC0ZNDB4.FPT
Lock(s): Exclusive USE

Select area: 1, Table in Use: C:\TEMP\KB1C000E.TMP Alias: SYS_EDIT_OBJ
Code page: 1251
Lock(s): Exclusive USE

Class libraries: E:\APP_PUB\ALIB\ALIB.VCX ALIAS ALIB, E:\APP_PUB\ALIB\_UI.VCX ALIAS _UI, E:\APP_PUB\ALIB\_BASE.VCX ALIAS _BASE, E:\VBUH\ADE\_AUX\DN.VCX ALIAS DN

User-opened files:
C:\TEMP\1\TEST_KVIT.VP3 Handle= 0 Pos= 0 Read=Yes Write= No


File search path: D:\CNT-KS\CKS-TMP\NEW_WORK;E:\VBUH;E:\APP_PUB\COMM;E:\VBUH\COMM;E:\VBUH\EOD;E:\VBUH\EOD\CONVERTERS;E:\VBUH\ADE;E:\VBUH\ADE\_AUX;E:\APP_PUB\ADMIN;E:\VBUH\INP_DOC;E:\APP_PUB\ADM;E:\APP_PUB\ARH\;E:\APP_PUB\ALIB\;E:\VBUH\RED_SPR\;E:\APP_PUB\OBJ_EDIT\;E:\VB...
Default directory: D:\CNT-KS\CKS-TMP
Print file/device:
Work area = 9
Margin = 0
Decimals = 2
Memowidth = 50
Typeahead = 20
Blocksize = 64
Reprocess = 0
Refresh = 0,5 SECONDS
DDE Timeout = 2000
DDE Safety = on

Code page: 1251
Collating sequence: Machine
Compiler code page: 1251
Date format: German
Macro Hot Key =
UDF parameters are passed by: VALUE
Textmerge Options
Delimiters: Left = << Right = >>
Show

Alternate - off Confirm - off Fullpath - on Print - off
ANSI - off Console - off Heading - on Readborder - off
Asserts - off Cursor - on Help - on Safety - off
Bell - off Deleted - on Intensity - on Space - on
Blink - on Device - scrn Lock - off Status Bar - on
Brstatus - off Echo - on Logerrors - on Sysmenus - on
Carry - off Escape - on Mouse - on Talk - off
Century - on Exact - on Multilocks - off Textmerge - off
Clear - on Exclusive - on Near - off Title - off
Color - on Fields - off Null - off Unique - off
Compatible - off Fixed - off Optimize - on




Declared DLLs:
aux1 e:\app_pub\dll\budget.dll
CharToOem C:\WINDOWS\system32\USER32.dll
CreateDirectory C:\WINDOWS\system32\kernel32.dll
DeleteFile C:\WINDOWS\system32\kernel32.dll
GetActiveWindow C:\WINDOWS\system32\USER32.dll
GetCurrentProcess C:\WINDOWS\system32\kernel32.dll
GetDC C:\WINDOWS\system32\USER32.dll
GetDesktopWindow C:\WINDOWS\system32\USER32.dll
GetDeviceCaps C:\WINDOWS\system32\GDI32.dll
GetLastError C:\WINDOWS\system32\kernel32.dll
GetShortPathName C:\WINDOWS\system32\kernel32.dll
LockWindowUpdate C:\WINDOWS\system32\USER32.dll
OemToChar C:\WINDOWS\system32\USER32.dll
RemoveDirectory C:\WINDOWS\system32\kernel32.dll
WaitForSingleObject C:\WINDOWS\system32\kernel32.dll

Меня nFHandle=0 устраивает, не устраивает то, что файловые операции с таким значением работают криво. В частности чтение файла при таком значении возможно только последовательно, а FSEEK зараза не работает...
Из-за это у меня проблеммы и возникли.

SP1 не ставил, но к сожалению такие же глюки были и на 6.0, правда крайне редко (

Дело не в путях, ведь проходя FOPEN по шагам хэндл нормальный получается на том же файле.

Кажись решил проблему, перед FOPEN был блок IF...ENDIF, поставил между ними блок команд работы с DBF (выбор области и индексация по полю), который был ниже FOPEN и пока работает успешно и без отладчика :/
...
cStr = FindVersion(cVersion,'pp')
IF !EMPTY(cStr)
=j_sys_report(cStr,,,[RED])
RETURN -1
ENDIF
SELECT c_j_sformat && перенес снизу
INDEX ON ver TAG ver && перенес снизу
nFHandle = FOPEN(cPath+cFileName)
IF nFHandle<0
=FCLOSE(nFHandle)
RETURN -1
ENDIF
...

вобщем непонятки какие-то, файловых операций выше не было, там все на уровне select-ов, чего-то фокс не успевает сделать до файловых операций на низком уровне, причем паузы (inkey(1), например) тоже не помогали :(
всем спасибо

Я его на картинке не показал, а так в 4-ом сообщении многоточием обозначил
И все равно на голове FOPEN сидит IF..ENDIF, уж должно было все работать как положено...