I/O 53

← →
Schummi (2004-05-20 08:24) [0]

Мастера! Подскажите, что за ошибка такая I/O 53? перерыл свои архивы FAQов, в делфийском хелпе тоже нету! Прикол вот в чем. У меня есть прога. Она обрабатывает файлы. типа того:

AssignFile
Reset
while not eof(f) do Read(f,st);
closefile

У меня на коме такой ошибки не возникает! А, скажем, у "клиента" возникает! Причем только если обрабатываемый файл будет не в папке с программой! Если же обр. файл будет в папке с программой, ошибки не возникает!!! Почему так???

← →
Романов Р.В. © (2004-05-20 08:27) [1]

Перед тем как работать с файлом проверяй существование файла FileExists

← →
Hunter © (2004-05-20 08:30) [2]

Что в Вашем коде написано AssignFile(Вот здесь); ?

← →
Schummi (2004-05-20 08:31) [3]

проверяю!!!

← →
Schummi (2004-05-20 08:32) [4]

AssignFile(FT,FileName);
где FT:TextFile;
а FileName - полное имя файла(+с директориями)

← →
Hunter © (2004-05-20 08:34) [5]

Перед AssignFile сделайте ShowMessage(FileName) и скажите результат.

← →
Schummi (2004-05-20 08:36) [6]

тогда ждать придется до завтра А может вы знаете, что за ошибка?

← →
Anatoly Podgoretsky © (2004-05-20 08:44) [7]

Имя неправильное, а почему ты сам в справке не хочешь посмотреть, обязательно надо чтобы кто то другой это сделал?
Потом ты наверно хочешь получить точный ответ, а информацию приводить не хочешь.

← →
Schummi (2004-05-20 08:49) [8]

> Имя неправильное

имя,простите, чего?

> а почему ты сам в справке не хочешь посмотреть

смотрел - не нашел!

← →
Hunter © (2004-05-20 08:49) [9]

Schummi (20.05.04 08:36)
> А может вы знаете, что за ошибка?

Нет, к сожалению мы не телепаты.
Но если файл текстовыый, то не Eof, а SeekEof.

← →
Hunter © (2004-05-20 08:51) [10]

> имя,простите, чего?

Ну не Ваше же имя.
Файл с именем FileName не существует.

← →
Schummi (2004-05-20 08:52) [11]

2Hunter
SeekEof - для типизированных!

← →
NAlexey © (2004-05-20 08:54) [12]

var Log : TextFile; ... {$I-} AssignFile(Log, FileName); Reset(Log); {$I+}

← →
Anatoly Podgoretsky © (2004-05-20 08:55) [13]

Schummi (20.05.04 08:49) [8]
1. FileName
2. Большими буквами написано в самом верху Operating System errors

← →
Hunter © (2004-05-20 08:55) [14]

> SeekEof - для типизированных!

А F1 нажать не судьба?

Call SeekEof to determine whether there is only whitespace between the file pointer and the end of a file. SeekEof moves the file pointer past any whitespace, leaving it positioned at the end of a file or on the next non-whitespace character, whichever comes first. If it leaves the file pointer at the end of the file, SeekEof returns True. Otherwise, it returns False.

SeekEof can only be used on open text files.

← →
Anatoly Podgoretsky © (2004-05-20 09:03) [15]

Hunter © (20.05.04 08:55) [14]
Есть сомнение, что у него отсутствует справка?, иначе не понятно зачем копировал текст из ее сюдаю

← →
Hunter © (2004-05-20 09:11) [16]

> Anatoly Podgoretsky © (20.05.04 09:03)
Есть сомнение, что у него отсутствует справка?

Есть.

← →
Schummi (2004-05-20 17:38) [17]

Удалено модератором

← →
Sandman25+1 (2004-05-20 17:52) [18]

ShowMessage(SysErrorMessage(53))

← →
serge (2004-05-20 18:08) [19]

In add"on to [18] look ih the win32.hlp there you"ll see
something like this

Numerical List of Error Codes
-8 LZERROR_UNKNOWNALG

-7 LZERROR_BADVALUE
-6 LZERROR_GLOBLOCK
-5 LZERROR_GLOBALLOC
-4 LZERROR_WRITE
-3 LZERROR_READ
-2 LZERROR_BADOUTHANDLE
-1 LZERROR_BADINHANDLE
0L NO_ERROR
0L ERROR_SUCCESS
1L ERROR_INVALID_FUNCTION
2L ERROR_FILE_NOT_FOUND
3L ERROR_PATH_NOT_FOUND
4L ERROR_TOO_MANY_OPEN_FILES
5L ERROR_ACCESS_DENIED
6L ERROR_INVALID_HANDLE
7L ERROR_ARENA_TRASHED
8L ERROR_NOT_ENOUGH_MEMORY

9L ERROR_INVALID_BLOCK
10L ERROR_BAD_ENVIRONMENT
11L ERROR_BAD_FORMAT
12L ERROR_INVALID_ACCESS
13L ERROR_INVALID_DATA
14L ERROR_OUTOFMEMORY
15L ERROR_INVALID_DRIVE
16L ERROR_CURRENT_DIRECTORY
17L ERROR_NOT_SAME_DEVICE
18L ERROR_NO_MORE_FILES
19L ERROR_WRITE_PROTECT
20L ERROR_BAD_UNIT
21L ERROR_NOT_READY
22L ERROR_BAD_COMMAND
23L ERROR_CRC
24L ERROR_BAD_LENGTH
25L ERROR_SEEK
26L ERROR_NOT_DOS_DISK
27L ERROR_SECTOR_NOT_FOUND
28L ERROR_OUT_OF_PAPER
29L ERROR_WRITE_FAULT
30L ERROR_READ_FAULT
31L ERROR_GEN_FAILURE
32L ERROR_SHARING_VIOLATION
33L ERROR_LOCK_VIOLATION
34L ERROR_WRONG_DISK
36L ERROR_SHARING_BUFFER_EXCEEDED
38L ERROR_HANDLE_EOF
39L ERROR_HANDLE_DISK_FULL
50L ERROR_NOT_SUPPORTED
51L ERROR_REM_NOT_LIST
52L ERROR_DUP_NAME
53L ERROR_BAD_NETPATH
54L ERROR_NETWORK_BUSY
55L ERROR_DEV_NOT_EXIST
56L ERROR_TOO_MANY_CMDS
57L ERROR_ADAP_HDW_ERR
58L ERROR_BAD_NET_RESP
59L ERROR_UNEXP_NET_ERR
60L ERROR_BAD_REM_ADAP
61L ERROR_PRINTQ_FULL
62L ERROR_NO_SPOOL_SPACE
63L ERROR_PRINT_CANCELLED
64L ERROR_NETNAME_DELETED
65L ERROR_NETWORK_ACCESS_DENIED
66L ERROR_BAD_DEV_TYPE
67L ERROR_BAD_NET_NAME
68L ERROR_TOO_MANY_NAMES
69L ERROR_TOO_MANY_SESS
70L ERROR_SHARING_PAUSED
71L ERROR_REQ_NOT_ACCEP

← →
Schummi (2004-05-22 13:42) [20]

Прсто это у меня выглядело как-то так:

AssignFile(f,fp+fn);

когда я изменил:

st:=fp+fn;
AssignFile(f,st);

Все заработало!!!

Не надо обманывать, введение промежуточно переменной сути не меняет.

Мистика.

← →
Schummi (2004-05-22 15:54) [24]

> Anatoly Podgoretsky © (22.05.04 13:49) [21]
> Не надо обманывать, введение промежуточно переменной сути
> не меняет.

Зачем мне обманывать?

Ну ладно, тогда не обманываешьЮ, а нас за идиотов считаешь, не понимающих ничего в элементарном программировании. Других выводов быть не может. Так что сам выбирай один из вариантов.

← →
Schummi (2004-05-24 08:26) [26]

> Anatoly Podgoretsky © (22.05.04 15:56) [25]
> Ну ладно, тогда не обманываешьЮ, а нас за идиотов считаешь,
> не понимающих ничего в элементарном программировании. Других
> выводов быть не может. Так что сам выбирай один из вариантов.

Что-то слишком нервный Вы. Я ещё потестирую немного. Посмотрю.

Всё очень просто - надо вернуть
AssignFile(f,fp+fn);
И посмотреть - будут ли глюки.

I/O 53 Найти похожие ветки