Witam, mam taki kod:
download:=THTTPGet.Create(Self);
download.Name:='download_'+IntToStr(ilosc_downloadow);
download.OnDoneFile:=OnDown;
download.OnProgress:=progress;
download.URL := Edit2.Text;
download.FileName := 'C:/'+Edit3.Text+'.mp3';
download.GetFile;
procedura progress()
procedure TForm1.progress(Sender: TObject; TotalSize, Readed: Integer);
var
g : TGauge;
begin
g := TGauge(Form2.FindComponent('licznik_'+IntToStr(ilosc_downloadow)));
g.MaxValue:=TotalSize;
g.Progress:=Readed;
end;
obiekt licznik:
licznik :=TGauge.Create(Self);
licznik.Name:='licznik_'+IntToStr(ilosc_downloadow);
licznik.Top:=18*ile-11;
licznik.Parent:=Self;
licznik.Left:=467;
licznik.Height:=13;
licznik.Width:=147;
licznik.Visible:=true;
w momecie kiedy zaczynaja mi sie sciagac 2 pliki jednoczesnie wynik sciagania jest pokazywany na jednym obiekcie licznik (TGuage), ktory przeskakuje z np 10% do 20% ... z 11 do np 25% w zaleznosci od tego jak sciagaja sie 2 pliki... jak mam zrobic zeby procedura progress dzialala poprawnie?