Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

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

Автор: posdnyaa 25.3.2008, 13:41

Здравствуйте Я работаю с компонентом от 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; Проблема вот в чем. Работать с новым файлом невозможно пока процесс его создания и заполнения не закончится. Это естественно. А как узнать что файл готов к каким либо действиям с ним, т.е. как узнать что его создание завершено? Спасибо

Автор: dumb 25.3.2008, 14:22

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)