Главная страница
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.014 c
1-18853
Eraser
2002-01-21 13:00
2002.02.07
Thread - To ALL HELP!!


1-18844
PEC
2002-01-22 12:25
2002.02.07
файлы !


1-18846
vitnt
2002-01-22 09:39
2002.02.07
Как сделать подсветку?


7-18995
Wizard_Ex
2001-10-26 16:10
2002.02.07
Registry.ReadBinaryData - как изменить ключ


3-18703
MEgo
2002-01-08 17:48
2002.02.07
Вопрос для реальных знатоков: BLOB -> Oracle <= 32 K?