c++.de :: Indy

Jansen Moderator 11:01:55 29.04.2004 Titel:

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.

C++:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63	// 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); } //---------------------------------------------------------------------------