Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с ProgressBar ом!!!

Almias © (2002-12-05 15:14:00)
Вот пытаюсь в фун-ю вставить ProgressBar , но так как надо он не работает!ПРОСВЕТИТЕ меня пожалуйста!!!
Вот код:

function TForm1.GetInetFile(const URL, FN: String): boolean;
const BufferSize = 1024;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
ProgressBAr1.Position:=0;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
try
hURL := InternetOpenURL(hSession,PChar(URL),nil,0,0,0);
try
AssignFile(f, FN);
Rewrite(f,1);
repeat
ProgressBAr1.Position:=ProgressBAr1.Position+1;
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);

Application.ProcessMessages();
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;

ЗАРАНЕЕ СПАСИБО!!!

Anatoly Podgoretsky (2002-12-05 16:25:00) [1]
_Nicola_ (05.12.02 15:19)
Из всего выше сказаного, только установка MAx обязательна

Almias © (05.12.02 16:01)
Это тоже неверно, правильнее Application.ProcessMessages

Almias (2002-12-05 16:10:00) [2]
Огромное спасибо,щас буду пробывать!!!!

Song (2002-12-05 16:08:00) [3]
Скорей всего в TProgressBar.Max надо занести длину файла. В увеличивать прогресс надо не на 1, а на BufferLen

Almias (2002-12-05 16:01:00) [4]
Спасибо что откликнулись! Закавыка была в том, что в процесе закачки ProgressBAr не изменялся. Я поставил ProgressBAr1.Update; и вроде получилось...
_Nicola_ отдельное спасибо за ProgressBAr1.StepIt !!!
И насчет Max и Step: как в моём случае правильно расчитать их?
Заранее Спасибо!!!

_Nicola_ (2002-12-05 15:19:00) [5]
Во-первых: из вопроса совсем не ясно, что надо.
Во-вторых у ProgressBar есть свойства Max и Step. Для корректной работы надо их устанавливать.
И в третьих вместо ProgressBAr1.Position := ProgressBAr1.Position + 1; можно писать ProgressBAr1.StepIt.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »