HTTPGet z TGauge

Spróbuj pozamieniać w Button1Click:

New{...} := T{...}.Create(Self);
{...}
New{...}.Parent := Self;

na:

New{...} := T{...}.Create(Form1);
{...}
New{...}.Parent := Form1;

Niestety to nic nie pomoże. Tu chodzi o to że po jednym wykonaniu procedury KlikPrzycisku NumName przyjmuje wartość 1 i wtedy postęp jest pokazywany w Gauge1 a jak wykona się drugi raz to wartość NumName przyjmuje wartość 2 i postęp pobierania wszystkich plików jest wyświetlany w Gauge2. <ort>na razie </ort>jedynym rozwiązaniem jakie przychodzi mi do głowy to jest zrobienie 100 procedur Progress1, Progress2, Progress3 itd... które będą wyglądać tak:

procedure TForm1.Progress1(Sender: TObject; TotalSize, Readed: Integer);
begin
  NumName := TButton(Sender).Tag;
  TGauge(FindComponent('Gauge1')).MaxValue := TotalSize;
  TGauge(FindComponent('Gauge1')).Progress := Readed;
end;

procedure TForm1.Progress2(Sender: TObject; TotalSize, Readed: Integer);
begin
  NumName := TButton(Sender).Tag;
  TGauge(FindComponent('Gauge2')).MaxValue := TotalSize;
  TGauge(FindComponent('Gauge2')).Progress := Readed;
end;

ITD.

Ale jak ktoś bedzie chciał pobrać 101 plików to juz nie zadzaiała :/ Macie może pomysł na jakieś lepsze rozwiązanie tego problemu?

Ja bym spróbował tak:

procedure TForm1.Progress(Sender: TObject; TotalSize, Readed: Integer);
begin
//  NumName := TButton(Sender).Tag;
  NumName:=THTTPGet(Sender).Tag;
  TGauge(FindComponent('Gauge'+IntToStr(NumName))).MaxValue := TotalSize;
  TGauge(FindComponent('Gauge'+IntToStr(NumName))).Progress := Readed;
end;

@up
Niestety i to nie pomogło :/ nie wiem dlaczego ale wtedy NumName cały czas przyjmuje wartość 1 mimo tego ze tag komponentu ma wartość 2 :/

oryginalny błąd jest spowodowany tym, że Progress() jest wywoływane przez httpget, a nie button.
drugie rozwiązanie wydaje się prawidłowe - ale:

• skąd wiesz, jaką wartość ma THTTPGet(Sender).Tag wewnątrz Progress()? sprawdziłeś to debugerem?
• imho błąd bierze się z tego (o ile sprawdziłes, że THTTPGet(Sender).Tag wewnątrz Progress() ma na pewno prawidłowe wartości), że numname jest zmienną globalną (nie rozumiem czemu). wtedy jeśli httpget działa wielowątkowo, to poszczególne wątki nawzajem nadpisują sobie wartość tej zmiennej w losowych momentach. zrób z tej zmiennej lokalną i daj znać, czy problem został rozwiązany.

Zrobiłem tak jak mówiłeś, czyli tak:

procedure TForm1.Progress1(Sender: TObject; TotalSize, Readed: Integer);
var
  ii: integer;
begin
ii := THTTPGet(Sender).Tag;
TGauge(FindComponent('Gauge' + IntToStr(ii))).MaxValue := TotalSize;
TGauge(FindComponent('Gauge' + IntToStr(ii))).Progress := Readed;
end;

ale wtedy gdy uruchomię pobieranie to wyskakuje błąd:

przejedź debugerem po kodzie (http://4programmers.net/Delphi/Artyku%C5%82y/Debugowanie), nie będziemy zgadywać co w nim nie tak, przynajmniej ja nie zamierzam. postaw breakpoint na linijce z ii := THTTPGet(Sender).Tag, wykonaj od tego miejsca kod linijka po linijce i zobacz, w którym miejscu konkretnie powstaje błąd, czy do ii jest przypisywana prawidłowa wartość itp.

Zrobiłem tak jak kazałeś błąd powstaje przy linijce:

TGauge(FindComponent('Gauge' + IntToStr(ii))).MaxValue := TotalSize;

a spowodowane to jest tym że zminnej ii jest przypisywana wartość 16777217 i program nie może poszukać na formie komponentu Gauge16777217 ponieważ go tam nie ma :P Teraz to ja już nie mam pojęcia jak rozwiązać ten problem :/

W procedurze Progress sprawdź Sender.ClassName.
Twoją metodą nie da się zidentyfikować, który komponent HTTPGet wywołał procedurę Progress.

Sender.ClassName = THTTPGetThread :P i co teraz z tym?

Użyj wątków ;)

Pobieraj jeden plik na jeden wątek to będzie sie wszystko na raz pobierać osobno ;)