ACBrDownload Evento OnHookStatus

[Miro Callai]

Bom dia.

Utilizo o componente ACBrDownload a bastante tempo, mas a alguns dias percebi que não consigo mais mostrar o percentual do download!

Parece que o parametro Reason não entra em HR_ReadCount

Parece que sai direto de HR_Connect para HR_SocketClose

 

procedure TForm1.HookStatus(Sender: TObject; Reason: THookSocketReason;
  const BytesToDownload, BytesDownloaded: Integer);
begin
   case Reason of
     HR_Connect :
     begin
       ProgressBar1.Position := 0;
       bDownload.Enabled := False;
       bPause.Enabled    := True;
       bStop.Enabled     := True;
     end;

// nunca entra nesse bloco
     HR_ReadCount :
     begin
       ProgressBar1.Max        := BytesToDownload;
       ProgressBar1.Position   := BytesDownloaded;
       lConnectionInfo.Caption := 'Baixando...';
     end;
// nunca entra nesse bloco
     HR_SocketClose :
     begin
       case fACBrDownload.DownloadStatus of
         stStop :
         begin
           ProgressBar1.Position  := 0;
           lConnectionInfo.Caption := 'Download Encerrado...';
         end;

         stPause :
           lConnectionInfo.Caption := 'Download Pausado...';

         stDownload :
           lConnectionInfo.Caption := 'Download Finalizado.';

       end;
       bDownload.Enabled := True;
       bPause.Enabled    := False;
       bStop.Enabled     := False;
     end;
   end;
end;
 

[emsoft]

Também estou com esse problema.

conseguiu resolver ?

[Juliomar Marchetti]

Bom dia 

consegue reproduzir o problema com o exemplo?

[emsoft]

Juliomar, descobri que o problema não está no acbrDownload e sim no meu domínio. Desculpe.