TIdHTTP в отдельном потоке и прогресс бар на основной форме

@primerb · Регистрация: 11.04.2015

Студворк — интернет-сервис помощи студентам

У меня есть TIdHTTP (upd) в отдельном потоке и надо отобразить хот загрузки файла на основной форме. Все бы хорошо, но значение AWorkCountMax всегда равно нулю((( Скачиваю так:

C++
1
Form1->upd->Get(...);

Кто нить что нить знает(?

@Dinkin · 17.12.2015, 00:53

В событии idHTTP->onWorkBegin есть переменная AWorkCountMax - это размер файла,
ставь его на Progressbar1->Max.
И в событии OnWork ставь Progressbar1->position=AWorkCount т.е. то, что скачано

@volvo · 17.12.2015, 01:09

primerb, сюда ходи: IdFTP & ProgressBar бар стоит на нуле! (и сюда: ProgressBar и Mail Agent) , чтобы уберечься от ошибок

@primerb · 17.12.2015, 17:36 **[ТС]**

Сделал так:

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::updWorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax)
{
    TMemoryStream *au = new TMemoryStream;
    try {
        IdMessage1->SaveToStream(au);
        aubar->Max = au->Size;
    }
    __finally {
        FreeAndNil(au);
    }
}

не пашет. просто виснет и ничего не качает

если так:

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::updWorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax)
{
    TMemoryStream *au = new TMemoryStream;
    try {
        IdMessage1->SaveToStream(au);
        aubar->Max = au->Size;
    }
    __finally {
        //FreeAndNil(au);
    }
}

то качает - но размер всегда - 42. я так понимаю это размер первого скачаного файла...

пробовал так:

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::updWorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax)
{
    TMemoryStream *au = new TMemoryStream;
    try {
        IdMessage1->SaveToStream(au);
        aubar->Max = au->Size;
    }
    __finally {
        delete(au);
    }
}

тоже ничего(((

@Dinkin · 17.12.2015, 17:43

ой какой кошмар = (. Вам же volvo, скинул ссылки, а ВЫ чудите и выше я так же показал как определять размер файла. Зачем вы создаете в событиях TMemoryStream ?

Все что надо

раз

C++
1
2
3
4
void __fastcall TForm1::updWorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax)
{
        aubar->Max =AWorkCountMax;
}

два ( в другом событии)

C++
1
2
3
4
5
6
void __fastcall TForm1::updWork(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCount)
 
{
aubar->Position=AWorkCount
}
//---------------------------------------------------------------------------

@primerb · 17.12.2015, 20:17 **[ТС]**

ты нормальный? я в первом посте написал... ОН В ПОТОКЕ ПОЭТОМУ AWorkCountMax ВСЕГДА РАВЕН НУЛЮ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ты думаешь я бы писал сюда если бы все было так просто???????????

Добавлено через 36 секунд
из ссылки volvo

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.IdSMTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
   ProgressBar1.Position := AWorkCount;
   Application.ProcessMessages;
end;
 
procedure TForm1.IdSMTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Int64);
var
   s : TMemoryStream;
begin
   // AWorkCountMax постоянно = 0, поэтому получим размер другим способом
   s := TMemoryStream.Create;
   try
      IdMessage1.SaveToStream(s);
      ProgressBar1.Min := 0;
      ProgressBar1.Max := s.Size;
      ProgressBar1.Position := 0;
   finally
      FreeAndNil(s);
   end;
   Application.ProcessMessages;
end;
 
procedure TForm1.IdSMTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
   ProgressBar1.Position := ProgressBar1.Max;
   Application.ProcessMessages;
end;

@Avazart · 18.12.2015, 22:31

Сообщение от primerb

ты нормальный? я в первом посте написал...

А ты?

Сообщение от primerb

ОН В ПОТОКЕ ПОЭТОМУ AWorkCountMax ВСЕГДА РАВЕН

И кто тебе доктор?
Из твоего калечного кода непонятно где там потоку взяться.

@primerb · 18.12.2015, 22:45 **[ТС]**

У меня есть TIdHTTP (upd) в отдельном потоке и надо отобразить ход загрузки файла на основной форме. Все бы хорошо, но значение AWorkCountMax всегда равно нулю(((

12345

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,145 Записей в блоге: 3
	17.12.2015, 00:53
	В событии idHTTP->onWorkBegin есть переменная AWorkCountMax - это размер файла, ставь его на Progressbar1->Max. И в событии OnWork ставь Progressbar1->position=AWorkCount т.е. то, что скачано 0

@volvo Супер-модератор 33374 / 21499 / 8235 Регистрация: 22.10.2011 Сообщений: 36,894 Записей в блоге: 11
	17.12.2015, 01:09
	primerb, сюда ходи: IdFTP & ProgressBar бар стоит на нуле! (и сюда: ProgressBar и Mail Agent) , чтобы уберечься от ошибок 1