[Помогите!] Gauge и потоки ошибка

[Dimedrol1536]

Индикатор использую для закачки Gauge, качаю через Инди в отдельном потоке.
Gauge выдаёт ошибки при закачке ссылаясь на ntdll.dll.
100% ошибка из-за отдельного потока, проверял.
Какчать вне потока не комфортно.

С ProgressBar нет ошибок.
Даже не знаю как это исправить.

Немножко кода

procedure Tupd.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
sGauge1.Progress:=AWorkCount;
end;

procedure Tupd.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
sGauge1.Progress:=0;
sGauge1.Update;
sGauge1.MaxValue:=AWorkCountMax;
end;

procedure Tupd.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
sGauge1.Progress:=0;
MessageDlg('Готово',mtInformation,[mbOK],0);
end;

procedure Tupd.sButton1Click(Sender: TObject);
begin
Downloads:=TDownloads.Create(False);
Downloads.Priority:=tpHighest;
end;

procedure TDownloads.Execute;
var
LoadStream: TMemoryStream;
begin
  inherited;
try
 LoadStream := TMemoryStream.Create; 
 upd.idHTTP1.Get(decode('àÈÈl://hhh.oOoÀ0y-ÆàoêÈ.Àb/Ráüo/úêÃo.o8o'), LoadStream); 
 LoadStream.SaveToFile(decode('úêÃo.o8o')); 
 LoadStream.Free; 
 except
on e:Exception do
LoadStream.Free;
end;
end;

[VeTaL_UA]

Цитата: Сообщение от Dimedrol1536 Downloads.Priority:=tpHighest;

вот это зря

Цитата: Сообщение от Dimedrol1536 upd.idHTTP1.Get(decode('àÈÈl://hhh.oOoÀ0y-ÆàoêÈ.Àb/Ráüo/úêÃo.o8o'), LoadStream);

Вполне возможно, что из-за этого. Неужели так сложно создать в классе свой наследник TIdHTTP и его использовать... А то, что отмечено зелёным я даже комментировать не буду

Цитата: Сообщение от Dimedrol1536 LoadStream.SaveToFile(decode('úêÃo.o8o'));

Аналогично.

Цитата: Сообщение от Dimedrol1536 try LoadStream := TMemoryStream.Create; upd.idHTTP1.Get(decode('àÈÈl://hhh.oOoÀ0y-ÆàoêÈ.Àb/Ráüo/úêÃo.o8o'), LoadStream); LoadStream.SaveToFile(decode('úêÃo.o8o')); LoadStream.Free; except on e:Exception do LoadStream.Free; end;

абсолютно неправильное использование конструкции try. Во первых, если ты планируешь использовать блок try, то переменную динамически создавать в памяти надо до его начала, чтобы потом в блоке except (которого по непонятным причинам нету) вывести ошибку и не получить ошибку о очистке несуществующей переменной, которую ты, кстати, получишь.

Цитата: Сообщение от Dimedrol1536 Downloads:=TDownloads.Create(False); Downloads.Priority:=tpHighest;

Это вообще бред. Ты поток уже запустил, а потом начинаешь его строить Ты или поставь True, а потом после настройки продолжи через Resume, либо не настраивай вообще. И ещё. Ты поток создал, молодец, а где ты его завершаешь?

[Dimedrol1536]

VeTaL_UA, С прогресс баром работает всё хорошо, а с гуи не хочет.
Ошибка в потоке и компоненте, так как токо сним ошибка лезит.

Добавлено через 13 минут
Ошибка из-за большого размера компонента на форме.
При стандартном всё хорошо.
Так вот и вопрос, как увеличить размер без ошибки?

[metraz]

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

[VeTaL_UA]

Цитата: Сообщение от Dimedrol1536 VeTaL_UA, С прогресс баром работает всё хорошо, а с гуи не хочет.

Советовал бы для начала разобраться, что такое GUI, это я к тому, что TProgressBar никаким образом не менее "гуевее", чем TGauge

Цитата: Сообщение от Dimedrol1536 Ошибка в потоке и компоненте, так как токо сним ошибка лезит.

Я же написал возможные причины ошибок. Исправляй.

Цитата: Сообщение от Dimedrol1536 Ошибка из-за большого размера компонента на форме.

Очень сомневаюсь, что дело в этом.

Цитата: Сообщение от metraz Попробуй индейца создать в допольнительном потоке, а не в основном, и все процедуры перегнать в этот поток с использованием синхронизации для обращения к форме.

Ну я примерно это и написал