Копирование файлов с визуализацией

← →
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, и не мучаться.

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

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

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

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