Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.07;
Скачать: CL | DM;

Вниз

Как подцепить в процедуру копирования файла ProgressBar...   Найти похожие ветки 

 
Reals ©   (2002-01-21 19:53) [0]

Здравствуйте!
Имееться процедура для копирования файла из файла-ресурса:

procedure CreateFileFromResource(ResourceName, FileName: String);
var
ResourceStream: TStream;
FileStream: TStream;
begin
ResourceStream := TResourceStream.Create(hInstance, ResourceName, RT_RCDATA);
try
FileStream := TFileStream.Create(FileName, fmCreate or fmShareDenyWrite);
try
FileStream.CopyFrom(ResourceStream, 0);
finally
FileStream.Free;
end;
finally
ResourceStream.Free;
end;
end;


Процедура запускаеться для каждого копируемого файла отдельно.
Подскажите пожалуйста, как можно вставить индикатор прогрессбара, чтобы было видно сколько скопировалось.
Очень надо.

P.S. Может кто подскажет другой лучший вариант, как скопировать файлы, конечно же с использованием ProgressBar`a.

Заранее благодарен.


 
~Sergius~~~   (2002-01-21 21:26) [1]

Обычно как делается? А делается так.
Заголовок процедуры пишется таким образом (применимо к вашему случаю):

procedure CreateFileFromResource(ResourceName, FileName: String; PB: TProgressBar);

Внутри процедуры высчитываются проценты (или что там), и дается PB.Value=XXX. Т.е., в процедуру передается ссылка на твой прогресс бар.
НО! В данном случае -- это всего лишь общие рассуждения, поскольку, чтобы знать проценты, нужно самому копировать файл, а не использовать функции, которые делают это за тебя.

Выходит, нужно написать свою процедурку копирования через BlockRead/BlockWrite - очень просто делается.



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

Текущий архив: 2002.02.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-18868
SemFLY
2002-01-23 03:32
2002.02.07
Подскажите, где Delphi 6 скачать ?


1-18796
Tadeush
2002-01-24 14:57
2002.02.07
Формы


1-18919
Lipskiy
2002-01-22 00:32
2002.02.07
Проблема с компонентой TTreeView и с указателями в частности.


1-18879
KIR
2002-01-22 12:04
2002.02.07
Раскраска строк грида в нестандартные цвета?


14-18982
smuggler
2001-12-19 13:23
2002.02.07
Вирус!