| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование файлов с визуализацией [D7, WinXP]
TSoftman © (2004-11-16 20:04:00)Как отображать процесс копирования множества файлов...
Копирование происходит с помощью цикла...
но визульные изменения не происходят...
Fay (2004-11-16 21:36:00) [1]2 novice_man © (16.11.04 20:54) [7]
Видимо, траблы с визуализацией 8)
novice_man (2004-11-16 20:54:00) [2]Что то они сегодня прячутся от информации. Видимо боятся учиться. :))
novice_man (2004-11-16 20:52:00) [3]>>begin...end © (16.11.04 20:49) [5]
Другой из вариатов: SHFileOperation с FOF_SIMPLEPROGRESS, и не мучаться.
тоже хорошо, как говорится, пути разработчика неисповедимы, было бы желание. Только вот разработчика ( TSoftman) не видно ;-)
begin...end (2004-11-16 20:49:00) [4]Другой из вариатов: SHFileOperation с FOF_SIMPLEPROGRESS, и не мучаться.
novice_man (2004-11-16 20:46:00) [5]Один из вариантов:
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);
novice_man (2004-11-16 20:43:00) [6]>>TSoftman (16.11.04 20:04)
Как происходит копирование, кусочек кода, если можно.
novice_man (2004-11-16 20:36:00) [7]
TSoftman (16.11.04 20:04)
Как отображать процесс копирования множества файлов...
Копирование происходит с помощью цикла...
но визульные изменения не происходят...
Наверное визуальное изменение цикла.
begin...end (2004-11-16 20:08:00) [8]
> TSoftman (16.11.04 20:04)
> но визульные изменения не происходят...
Визуальные изменения чего должны происходить?
| |
