Перейти к содержанию
СофтФорум - всё о компьютерах и не только

Delphi как узнать что файл...


Рекомендуемые сообщения

Здравствуйте программеры

у меня такой вопрос: программа по таймеру сканирует каталог

на наличие новых файлов которые туда закидывает 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 первой строкой записывается

.

.. второй строкой ?

вопрос как можно узнать что файл уже записан или загружен полностью,

какие атрибуты должны у него быть ?

Ссылка на комментарий
Поделиться на другие сайты

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;
Ссылка на комментарий
Поделиться на другие сайты

Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...