FoxClub Forums > Visual Foxpro, Foxpro for DOS

• Войти

Fseek глюк
danton1973 Сообщений: 143 Откуда: Пермь Дата регистрации: 10.08.2020	danton1973 26.05.22 07:25:04 При запуске программы определяю размер конфигурационного файла с помощью fseek(m.gnIniFile,0,2). При первом запуске выдаёт 0. Не закрывая отладчик, запускаю снова - получаю реальный размер файла..... Где собака порылась?

danton1973

Сообщений: 143
Откуда: Пермь
Дата регистрации: 10.08.2020

danton1973

26.05.22 07:25:04

При запуске программы определяю размер конфигурационного файла с помощью fseek(m.gnIniFile,0,2). При первом запуске выдаёт 0. Не закрывая отладчик, запускаю снова - получаю реальный размер файла.....
Где собака порылась?

Re: Fseek глюк
VeterVFP Сообщений: 413 Откуда: Москва Дата регистрации: 26.12.2006	VeterVFP 26.05.22 08:53:01 CLEAR cLogFlNm= 'c:\1\test.ini' cLogMsg= 'test msg' ? DATETIME() IF FILE(cLogFlNm, 1) rFile= FOPEN(cLogFlNm, 12) nSize =FSEEK(rFile, 0, 2) ? 'Size= '+ TRANSFORM(nSize) ELSE rFile= FCREATE(cLogFlNm) ? FPUTS(rFile, cLogMsg) ? 'New file created' ENDIF ? FCLOSE(rFile) Показывает размер нормально. А ваш код какой?

Re: Fseek глюк

VeterVFP

Сообщений: 413
Откуда: Москва
Дата регистрации: 26.12.2006

VeterVFP

26.05.22 08:53:01


CLEAR
cLogFlNm= 'c:\1\test.ini'
cLogMsg= 'test msg'

? DATETIME()
IF FILE(cLogFlNm, 1)
   rFile= FOPEN(cLogFlNm, 12)
   nSize =FSEEK(rFile, 0, 2)
   ? 'Size= '+ TRANSFORM(nSize)
ELSE
   rFile= FCREATE(cLogFlNm)
   ? FPUTS(rFile, cLogMsg)
   ? 'New file created'
ENDIF
? FCLOSE(rFile)

Показывает размер нормально. А ваш код какой?

Re: Fseek глюк
danton1973 Сообщений: 143 Откуда: Пермь Дата регистрации: 10.08.2020	danton1973 26.05.22 08:56:53 rFile= FOPEN(cLogFlNm, 12) nSize =FSEEK(rFile, 0, 2) =FSEEK(rFile, 0, 0) То же самое

Re: Fseek глюк
VeterVFP Сообщений: 413 Откуда: Москва Дата регистрации: 26.12.2006	VeterVFP 26.05.22 09:03:45 =FSEEK(rFile, 0, 2) покажет 0, если файл в этот момент открыт/заблокирован где-то. Хотя при этом и rFile вернет -1 Исправлено 1 раз(а). Последнее : VeterVFP, 26.05.22 09:04

Re: Fseek глюк
akvvohinc Сообщений: 4224 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 26.05.22 20:17:10 Цитата: rFile= FOPEN(cLogFlNm, 12) Надо проверять результат. Если файл по каким-то причинам не открылся (rFile = -1), то FSEEK() и вернёт 0 (ошибки не будет): ? FSEEK(-1, 0, 2) && 0 Если проверка покажет -1, то выясните причину с помощью FERROR(). Исправлено 2 раз(а). Последнее : akvvohinc, 26.05.22 20:21

Re: Fseek глюк

akvvohinc

Сообщений: 4224
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

26.05.22 20:17:10

Цитата:
rFile= FOPEN(cLogFlNm, 12)

Надо проверять результат.
Если файл по каким-то причинам не открылся (rFile = -1), то FSEEK() и вернёт 0 (ошибки не будет):


? FSEEK(-1, 0, 2)  && 0

Если проверка покажет -1, то выясните причину с помощью FERROR().

Исправлено 2 раз(а). Последнее : akvvohinc, 26.05.22 20:21

Re: Fseek глюк
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 27.05.22 17:00:20 ...почему не FSIZE... и более АПИшные... а зачем это все вот это вот?

Re: Fseek глюк
akvvohinc Сообщений: 4224 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 27.05.22 17:52:44 of63 почему не FSIZE... и более АПИшные... а зачем это все вот это вот? Судя потому, что файл открывается в режиме Read/Write, то ТС требуется не только узнать размер, но и писать в этот файл. К тому же FSIZE() для получения размера файла требуется играть с настройкой SET COMPATIBLE, что не слишком удобно. Я бы пользовался обычным ADIR(): = ADIR(arr,filename) ?arr[1,2]

Re: Fseek глюк

akvvohinc

Сообщений: 4224
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

27.05.22 17:52:44

of63
почему не FSIZE... и более АПИшные... а зачем это все вот это вот?

Судя потому, что файл открывается в режиме Read/Write, то ТС требуется не только узнать размер, но и писать в этот файл.

К тому же FSIZE() для получения размера файла требуется играть с настройкой SET COMPATIBLE, что не слишком удобно.

Я бы пользовался обычным ADIR():

= ADIR(arr,filename)
?arr[1,2]

Re: Fseek глюк
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 27.05.22 18:02:18 VeterVFP =FSEEK(rFile, 0, 2) покажет 0, если файл в этот момент открыт/заблокирован где-то. Хотя при этом и rFile вернет -1 бред Все сводится к АПИ винды Исправлено 1 раз(а). Последнее : of63, 27.05.22 18:04

Re: Fseek глюк
VeterVFP Сообщений: 413 Откуда: Москва Дата регистрации: 26.12.2006	VeterVFP 30.05.22 10:19:56 of63 VeterVFP =FSEEK(rFile, 0, 2) покажет 0, если файл в этот момент открыт/заблокирован где-то. Хотя при этом и rFile вернет -1 бред Все сводится к АПИ винды Если взять, например, файл архива и открыть его архиватором (то он будет заблокирован). После этого rFile= FOPEN(cLogFlNm, 12) вернет -1, а FSEEK вернет 0. И что тут бред?

Re: Fseek глюк

VeterVFP

Сообщений: 413
Откуда: Москва
Дата регистрации: 26.12.2006

VeterVFP

30.05.22 10:19:56

of63
VeterVFP
=FSEEK(rFile, 0, 2)
покажет 0, если файл в этот момент открыт/заблокирован где-то.
Хотя при этом и rFile вернет -1

бред

Все сводится к АПИ винды

Если взять, например, файл архива и открыть его архиватором (то он будет заблокирован).
После этого rFile= FOPEN(cLogFlNm, 12) вернет -1, а FSEEK вернет 0.
И что тут бред?

Re: Fseek глюк
akvvohinc Сообщений: 4224 Откуда: Москва Дата регистрации: 11.11.2008	akvvohinc 30.05.22 17:43:10 Цитата: Если взять, например, файл архива и открыть его архиватором (то он будет заблокирован). После этого rFile= FOPEN(cLogFlNm, 12) вернет -1, а FSEEK вернет 0. Если сделать именно то, что вы описали, то файл архива заблокирован не будет. Более того, при открытом, допустим, в winrar архиве с помощью FWRITE() можно записывать в этот файл, если открыть его и на запись. И наоборот, если в VFP открыть файл архива на запись, то архиватор его не откроет, а если только на чтение - откроет. Не будет проблемы также, если этот файл открывать на чтение в нескольких экземплярах VFP или других программ. Другое дело, если файл где-то уже открыт на запись... Тогда FOPEN() "не сработает". В общем, дело не в собственно открытом файле, а в режиме его открытия.

Re: Fseek глюк

akvvohinc

Сообщений: 4224
Откуда: Москва
Дата регистрации: 11.11.2008

akvvohinc

30.05.22 17:43:10

Цитата:
Если взять, например, файл архива и открыть его архиватором (то он будет заблокирован).
После этого rFile= FOPEN(cLogFlNm, 12) вернет -1, а FSEEK вернет 0.

Если сделать именно то, что вы описали, то файл архива заблокирован не будет.
Более того, при открытом, допустим, в winrar архиве с помощью FWRITE() можно записывать в этот файл, если открыть его и на запись.

И наоборот, если в VFP открыть файл архива на запись, то архиватор его не откроет, а если только на чтение - откроет.

Не будет проблемы также, если этот файл открывать на чтение в нескольких экземплярах VFP или других программ.
Другое дело, если файл где-то уже открыт на запись... Тогда FOPEN() "не сработает".

В общем, дело не в собственно открытом файле, а в режиме его открытия.

Re: Fseek глюк
VeterVFP Сообщений: 413 Откуда: Москва Дата регистрации: 26.12.2006	VeterVFP 31.05.22 12:54:47 akvvohinc В общем, дело не в собственно открытом файле, а в режиме его открытия. Согласен про режим. Я тестировал на 7zip - с ним была именно описанная мной ситуация. Возможно, он (оболочка менеджера 7zip) открывает его сразу в режиме записи.

Re: Fseek глюк

VeterVFP

Сообщений: 413
Откуда: Москва
Дата регистрации: 26.12.2006

VeterVFP

31.05.22 12:54:47

akvvohinc
В общем, дело не в собственно открытом файле, а в режиме его открытия.

Согласен про режим. Я тестировал на 7zip - с ним была именно описанная мной ситуация. Возможно, он (оболочка менеджера 7zip) открывает его сразу в режиме записи.

Re: Fseek глюк
of63 Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 31.05.22 19:55:59 of63 VeterVFP =FSEEK(rFile, 0, 2) покажет 0, если файл в этот момент открыт/заблокирован где-то. Хотя при этом и rFile вернет -1 бред Все сводится к АПИ винды Имел ввиду, что пользоваться FSEEK для определения доступности файла - это невозможно без операции открытия файла FOPEN (в каком-то режиме доступа), и на этапе открытия все определится - можно пользоваться файлом в этом режиме или нет... Может, я не понял проблы... Доб. () глюков, кстати, прибавилось, после перехода на 10ку. Не могу понять их, хотя, в силу "возраста" много с чем ковырялся. Просто тупо делаю "костыли" (типа, многократного запроса к АПИ/функции_фокс, было недавно, после покупки накопителя нового. С сетью что-то связано, бывает). На "диске Це" проблем, которые помню, не встречал вроде... Исправлено 1 раз(а). Последнее : of63, 31.05.22 20:07

Re: Fseek глюк

of63

Сообщений: 25256
Откуда: Н.Новгород
Дата регистрации: 13.02.2008

of63

31.05.22 19:55:59

of63
VeterVFP
=FSEEK(rFile, 0, 2)
покажет 0, если файл в этот момент открыт/заблокирован где-то.
Хотя при этом и rFile вернет -1

бред

Все сводится к АПИ винды

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

Доб. () глюков, кстати, прибавилось, после перехода на 10ку. Не могу понять их, хотя, в силу "возраста" много с чем ковырялся. Просто тупо делаю "костыли" (типа, многократного запроса к АПИ/функции_фокс, было недавно, после покупки накопителя нового. С сетью что-то связано, бывает). На "диске Це" проблем, которые помню, не встречал вроде...

Исправлено 1 раз(а). Последнее : of63, 31.05.22 20:07

Re: Fseek глюк
Taran Автор Сообщений: 13625 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 31.05.22 20:07:53 of63 ....Может, я не понял проблы... Проблы не понял никто danton1973 При запуске программы ....с помощью fseek(m.gnIniFile,0,2). При первом запуске выдаёт 0. Не закрывая отладчик, запускаю снова - получаю реальный размер файла..... Где собака порылась? (ни в коем случае не для обиды ТС, а скорее наоборот). Размер файла или что другое - не важно. Вопрос то можно развернуть шире. Нет же зациклились на размере файла.

Re: Fseek глюк

Taran
Автор

Сообщений: 13625
Откуда: Красноярск
Дата регистрации: 16.01.2008

Taran

31.05.22 20:07:53

of63
....Может, я не понял проблы...

Проблы не понял никто

danton1973
При запуске программы ....с помощью fseek(m.gnIniFile,0,2). При первом запуске выдаёт 0. Не закрывая отладчик, запускаю снова - получаю реальный размер файла.....
Где собака порылась?

(ни в коем случае не для обиды ТС, а скорее наоборот).

Размер файла или что другое - не важно. Вопрос то можно развернуть шире.
Нет же зациклились на размере файла.

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 26 Владимир Максимов Joys (Гостей: 24)