Форум: "Потрепаться";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Вниз

как определить- закончена перекачка файла или нет?   Найти похожие ветки 

← →
panov   (2002-03-13 09:56) [30]

>Suntechnic ©
Еще хочу заметить, что Вы привели код, который не работает.
После этого, Вы утверждаете, что задача не решается.

У меня задача решена.

Так вызывается функция:

HandleChange :=
FindFirstChangeNotification(
PChar(FPath),
False,
FILE_NOTIFY_CHANGE_LAST_WRITE);

Так записывается файл:

for i := 0 to 100000 do
begin
FileWrite(FileHandle,Buf,1024);
Application.ProcessMessages;
end;

---

Страницы: 1 2 вся ветка

Форум: "Потрепаться";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c