Скачать: CL | DM;

Копирование файлов с визуализацией   Найти похожие ветки 

← →
TSoftman   (2004-11-16 20:04) [0]

Как отображать процесс копирования множества файлов...
Копирование происходит с помощью цикла...
но визульные изменения не происходят...

---

← →
begin...end ©   (2004-11-16 20:08) [1]

> TSoftman   (16.11.04 20:04)


> но визульные изменения не происходят...

Визуальные изменения чего должны происходить?

---

← →
novice_man ©   (2004-11-16 20:36) [2]

TSoftman  (16.11.04 20:04)

Как отображать процесс копирования множества файлов...
Копирование происходит с помощью цикла...
но визульные изменения не происходят...


Наверное визуальное изменение цикла.

---

← →
novice_man ©   (2004-11-16 20:43) [3]

>>TSoftman  (16.11.04 20:04)
Как происходит копирование, кусочек кода, если можно.

---

← →
novice_man ©   (2004-11-16 20:46) [4]

Один из вариантов:  

 AssignFile(FromF, Source);
 reset(FromF);
 AssignFile(ToF, Destination);
 rewrite(ToF);
 FileLength := FileSize(FromF);
 with Progressbar1 do
 begin
   Min := 0;
   Max := FileLength;
   while FileLength > 0 do
   begin
     BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
     FileLength := FileLength - NumRead;
     BlockWrite(ToF, Buffer[0], NumRead);
     Position := Position + NumRead;
   end;
   CloseFile(FromF);
   CloseFile(ToF);

---

← →
begin...end ©   (2004-11-16 20:49) [5]

Другой из вариатов: SHFileOperation с FOF_SIMPLEPROGRESS, и не мучаться.

---

← →
novice_man ©   (2004-11-16 20:52) [6]

>>begin...end ©  (16.11.04 20:49) [5]

Другой из вариатов: SHFileOperation с FOF_SIMPLEPROGRESS, и не мучаться.
тоже хорошо, как говорится, пути разработчика неисповедимы, было бы желание. Только вот разработчика (TSoftman) не видно ;-)

---

← →
novice_man ©   (2004-11-16 20:54) [7]

Что то они сегодня прячутся от информации. Видимо боятся учиться. :))

---

← →
Fay ©   (2004-11-16 21:36) [8]

2 novice_man ©   (16.11.04 20:54) [7]
Видимо, траблы с визуализацией 8)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c