VPF::Сохранение файла на IdFtpDerver - Форум программистов

posdnyaa

Дата 25.3.2008, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 18.12.2007

Репутация: нет
Всего: нет

Здравствуйте
Я работаю с компонентом от Indy IdFTPServer. При обработке события StoreFile для сохранения файла используется такой код (взятый из примера):

Код


procedure TForm1.IdFTPServer1StoreFile(ASender: TIdFTPServerContext;
  const AFileName: string; AAppend: Boolean; var VStream: TStream);
begin
  if not Aappend then
   VStream := TFileStream.Create(ReplaceChars(AppDir+AFileName),fmCreate)
  else
   VStream := TFileStream.Create(ReplaceChars(AppDir+AFileName),fmOpenWrite);
end;

Проблема вот в чем. Работать с новым файлом невозможно пока процесс его создания и заполнения не закончится. Это естественно. А как узнать что файл готов к каким либо действиям с ним, т.е. как узнать что его создание завершено?
Спасибо

Это сообщение отредактировал(а) posdnyaa - 25.3.2008, 13:45

dumb

Дата 25.3.2008, 14:22 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 5
Всего: 158

отнаследуйся от TFileStream и в деструкторе поймаешь момент окончания работы с файлом.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »