İdhtt Yüzde Geri Sayıyor ?

[alyamus]

Sayın hocalarım ve arkadaşlar idhttp komutunu kullanarak internetten 30 40mb lik dosya çektiğimde yüzde olarak labele atadığım rakam %4 veya %5 oldukdan sonra busefer eksi rakam saymaya başlıyor sonra sıfır oluyor gene %5 e kadar sayıp gene eksiye düşüyor bu esnada dosya sorunsuz iniyor fakat yüzde kısmı sapıtıyor nedenini çözemedim bunun sebebi ne olabilir.

Kod: Tümünü seç

procedure TForm1.IdHTTP2Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
if AWorkMode = wmRead then
 begin
 Application.ProcessMessages;

   AdvProgressBar1.Position := AWorkCount ;
   Label11.Visible:=True;
   Label13.Visible:=True;
   Label4.Visible:=True;
   Label2.Visible:=True;
   Label12.Caption := floatToStr(round(advProgressBar1.Position * 100 / advProgressBar1.Max)) + ' ' + '%'  ; //yüzde
   Label13.Caption := FormatBy(AWorkCount) + ' ';




 end;
end;


procedure TForm1.IdHTTP2WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 if AWorkMode = wmRead then
 begin
   AdvProgressBar1.Max := AWorkCountMax ;

   if AWorkCountMax>0 then Label11.Caption:=FormatBy(AWorkCountMax) + ' ';

 end
end;


procedure TForm1.IdHTTP2WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
if AWorkMode = wmRead then
  if Label13.Caption = Label11.Caption then begin
  AdvProgressbar1.position:=100;
  Button26.Click;
  end;
end;

idhttp de yüzdeyle işlem yaptığım yerler bu kodun neresind e ne eksik arkadalar ?

[G.Arkas]

ilk gözüme çarpan WorkEnd olayında ki

Kod: Tümünü seç

Position := 100;

satırıydı. İşlem bitince Position "Sıfır" olmalı 100 değil.

[alyamus]

Yok problem o değil özellikle 100 yaptım advprogress bar işlem bitiginde 0 oluyor hızlıcana 100 e geldıgınde butona bastırıyorum. bu başka bır problem ılk defa basıma geldı -5% -3% diye gidiyor :S