Вниз
Скачать: 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.02 c
1-1100277025
heady
2004-11-12 19:30
2004.11.28
строка с разделителями


1-1100563093
dolphin
2004-11-16 02:58
2004.11.28
как с string добыть ansichar


1-1100436459
Polycom
2004-11-14 15:47
2004.11.28
Код ASCII


3-1098990128
Vova
2004-10-28 23:02
2004.11.28
Query1.FieldCount всегда возвращает одно значение


1-1100660988
Bechard
2004-11-17 06:09
2004.11.28
RTL update 2 for Delphi 6 Ent




   Наверх