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

Вниз

Ничего не пойму   Найти похожие ветки 

 
als ©   (2003-04-28 15:52) [0]

Уважаемые, извините чайника, но никак не могу я разобраться с ProgressBar. Запускаю из дельфи с помощью CreateProcess батник, затем с помошью Waitforsingleobject жду окончания процесса. Хотелось бы чтоб ProgressBar показывал состояние процесса, т.е. сколько осталось сколько прошло, вообщем как движется процесс :-)
Мне бы примерчик использования такого.

А вообще задача в том, чтоб по сети архивировать файлы на сервере. В сетке 24 компа будет (сеть будет изолированная), у каждого диск открыт по паролю (там windows 95 будет) а с сервера (там w2k Pro) с помошью формы архивировать определённые файлы, для каждого компа в свой каталог. Может кто нибудь по другому посоветует. Решил проста батником, батник цепляет сетевым диском диск компа, затем раром архивирует, и отключает сетевой диск.
Но при использовании рара могут возникнуть ошибки (сеть не доступна и т.д.) , то как это отловить в Дельфи?
Примерчик бы , а дальше я б разобрался :-)

Пишите лучше в мыло.


 
Style ©   (2003-04-28 16:13) [1]

Хех.. :) Откудаж Винда знает чего тама в Батнике :)

Ну можно сделать так. через каждую строчку в батнике пиши
@echo n > proc где n -> прогресс твоего ProgressBar


@echo 1 > proc
net connect....
rar..
@echo 2 > proc
net connect....
rar..
@echo 3 > proc
net connect....
@echo 4 > proc
net connect....

@del proc


А в программе вместо Waitforsingleobject
var
hProcess: THandle;
ExitCode: dword;
str: TStringList;

str := TStringList.Create;
try
repeat
Application.ProcessMessages;

if(FileExists("proc")) then
begin
str.Clear;
str.LoadFromFile("proc");
ProgressBar.Progress := StrToInt(str.Strings[0]);
end;

until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
finally
str.Free;
end;

Ну незнаю в общем идея должна быть понятна...






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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
3-46598
me2
2003-04-23 16:12
2003.05.15
IBDataSet и внесение изменений


3-46563
Anton.
2003-04-23 09:18
2003.05.15
Смена даты после оракловой ошибки


3-46590
_MAXi_
2003-04-23 12:18
2003.05.15
Посылка данных на Oracle


14-46926
Дмитрий К.К.
2003-04-25 07:54
2003.05.15
Именинники 25 апреля


1-46836
damx
2003-05-03 00:08
2003.05.15
Чтение и дописывание