Ali Опубликовано 2 декабря, 2004 Жалоба Поделиться Опубликовано 2 декабря, 2004 Здравствуйте программеры у меня такой вопрос: программа по таймеру сканирует каталог на наличие новых файлов которые туда закидывает FTP сервер и если файл найден обработать его, как узнать что файл в каталог записан полностью ? как вариант пытался сделать так var sr:TSearchRec; begin if FindFirst(Edit1.Text+'\'+Edit2.Text,not faReadOnly,sr)=0 then begin ListBox1.Items.Add(sr.Name); while FindNext(sr)=0 do ListBox1.Items.Add(sr.Name); end; FindClose(sr); но faReadOnly не работает в win2000 , а также в listBox первой строкой записывается . .. второй строкой ? вопрос как можно узнать что файл уже записан или загружен полностью, какие атрибуты должны у него быть ? Ссылка на комментарий Поделиться на другие сайты Поделиться
Сергей Плоткин Опубликовано 3 декабря, 2004 Жалоба Поделиться Опубликовано 3 декабря, 2004 function NormalFile(const Origin: string): boolean;var F: TFileStream;begin try F := TFileStream.Create(Origin, fmOpenReadWrite or fmShareExclusive); try Result := true; finally F.Free; end; except Result := false; end;end; Ссылка на комментарий Поделиться на другие сайты Поделиться
Ali Опубликовано 5 декабря, 2004 Автор Жалоба Поделиться Опубликовано 5 декабря, 2004 Ok Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения