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