Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

'I/O error 32' при работе с текстовым файлом. [D7, Win2k]


neat ©   (2005-07-15 10:29:00) 

Вроде проще некуда:

var f : TextFile;

AssignFile(f, 'TF.txt');
Append(f);
Writeln(f, QCons.FieldByName('OAO_Name_').AsString);
Flush(f);
CloseFile(f);

Выполнение останавливается на процедуре Append(f) с сообщением 'I/O error 32'. Файл существует, данные из него читаются. Что бы это значило?


Плохиш   (2005-07-15 12:38:00) [1]


> Anatoly Podgoretsky ©   (15.07.05 12:30) [7]

В оригинале про reset написано ;-)


Anatoly Podgoretsky   (2005-07-15 12:30:00) [2]

neat   (15.07.05 12:20) [4]
наткнулся(сейчас уже не помню где) на примерно следующие слова:" ... если этот файл уже был открыт, повторный вызов AssignFile(f, FileName) закрывает файл и открывает его снова ...".

Выбрось нафиг подобную книгу


isasa   (2005-07-15 12:26:00) [3]

F1 -> I/O Errors


Kolan   (2005-07-15 12:23:00) [4]

Runtime Errors в Help'е


neat   (2005-07-15 12:20:00) [5]

Всё верно, так и оказалось, но я не обратил на это внимание, потому что пока искал описание кода ошибки наткнулся(сейчас уже не помню где) на примерно следующие слова:" ... если этот файл уже был открыт, повторный вызов AssignFile(f, FileName) закрывает файл и открывает его снова ...". Спасибо всем.
И ещё, не подскажите, где найти описание кодов ошибок. Заранее благодарю.


Anatoly Podgoretsky   (2005-07-15 11:16:00) [6]

Просто он где то еще открыт на чтение/запись


PVOzerski   (2005-07-15 11:04:00) [7]

Файл, часом, во время Append не открыт из другого процесса/потока? А права на запись для него у тебя в порядке (это если NTFS). А он не с атрибутом read-only?


gydvin   (2005-07-15 10:39:00) [8]

procedure TForm1.Button1Click(Sender: TObject);
var f : TextFile;
s:string;
begin
AssignFile(f, 'd:\11111.txt');
Append(f);
s:='мама';
Writeln(f, s);

Flush(f);
CloseFile(f);

end;


все работает!!!!!!!!!!!


Наверх

Титульная страница Поиск, карта сайта Написать письмо