Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

удаление файлов [D7, Win2k]

Timka © (2002-12-26 18:49:00)
это, конечно,от- ещё вопросик, но ...
Прошу подсказать:
- здесь удаление файла работает,

procedure TForm1.Button2Click(Sender: TObject);
begin
DeleteFile(Edit1.Text);
end;

а в большой процедуре с текстом следующего содержания нет.
(в обоих случаях передаётся одинаковая строка, ессно :( )

if (flag=false) then
begin
NewFileName := Edit3.Text+"uns\"+ ListBox1.Items.Strings[i] +"s.htm";
//------------------------------------
OldFile := TFileStream.Create(OldFileName, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
Msg := Format("

TTCustomDelphiMaster (2002-12-27 22:31:00) [1]
Тогда используй GetLastError, чтобы определить почему не удалился файл.

Timka (2002-12-27 20:46:00) [2]
А) я администратор этой машины и мои логины здесь ТОЛЬКО с администраторскими правами.
В) у меня каталог файлов. получив методами Дельфи список из каталога, я, загружаю текст в Мемо, и сразу уничтожаю файловый поток
OldFile := TFileStream.Create(OldFileName, fmOpenRead or fmShareDenyWrite);
try
NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);
try
NewFile.CopyFrom(OldFile, OldFile.Size);
finally
FreeAndNil(NewFile);
end;
finally
FreeAndNil(OldFile);
end;
по идее - список файлов у меня хранится(и берётся) из ТList, файлы закрыты... раз потоки уничтожаются сразу, анализирую текст в мемо, т.е. напрямую они совсем не завязаны. перекачивается около 200 файлов... не могут же они быть все открыты. Или я что-то не понимаю в работе TFileStream ?

TTCustomDelphiMaster (2002-12-26 20:45:00) [3]
Невозможно удалить потому что он открыт какой-то программой или нет прав на удаление в NT

Timka (2002-12-26 20:43:00) [4]
в смысле, неясно, почему в этом варианте нельзя удалить.

Timka (2002-12-26 20:09:00) [5]
к сожалению - есть. и их много.
открываю и сразу закрываю с помощью TFileStream,
впрочем, тут всё видно...

TTCustomDelphiMaster (2002-12-26 19:44:00) [6]
Одно из двух или файл не возможно удалить или он не существует.

Наверх

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