Indy - Fortschrittsanzeige für Downloads

Jansen

Ein Beispiel für die FAQ.

Das Projekt besteht aus zwei Forms. Auf Form1 wird lediglich per Buttonklick Form2 geöffnet, wo dann der Download gestartet und der Fortschritt per ProgressBar angezeigt wird.
Form2 besitzt eine erweiterte Show-Methode, in der dafür gesorgt wird, dass die Form zuerst fertiggezeichnet wird, bevor weiterer Code ausgeführt wird. Prinzipiell handelt es sich dabei also um ein Pseudo-OnAfterShow-Event.

// Unit1.cpp
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2->AfterShow();
}

// Unit2.h, unter public
...
void __fastcall AfterShow();

// Unit2.cpp
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
String filename = "c:\\cbx_datasheet.pdf";
String URL = "http://borland.com/cbuilderx/pdf/cbx_datasheet.pdf";
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
  : TForm(Owner)
{
  Button1->Caption = "Datei öffnen";
  Button1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::AfterShow()
{
  Show(); // Standard-Show aufrufen
  Application->ProcessMessages(); // alles fertigzeichnen lassen

  // jetzt der eigene, im "OnAfterShow" auszuführende Code
  TFileStream *fs = new TFileStream(filename, fmCreate);
  IdHTTP1->Get(URL, fs);
  delete fs;

  Button1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::IdHTTP1WorkBegin(TObject *Sender,
      TWorkMode AWorkMode, const int AWorkCountMax)
{
  ProgressBar1->Max = AWorkCountMax;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::IdHTTP1Work(TObject *Sender, TWorkMode AWorkMode,
      const int AWorkCount)
{
  ProgressBar1->Position = AWorkCount;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  ShellExecute(0, "open", filename.c_str(), 0, 0, SW_SHOW);
}
//---------------------------------------------------------------------------