unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 =
class(TForm)
IdHTTP: TIdHTTP;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
SpeedLabel: TLabel;
Status: TLabel;
Progress: TProgressBar;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
FTime: Longword;
//Beide Variablen werden für die kb/sec anzeige gebraucht
FBytes: Longword;
// --"--
public
{ Public-Deklarationen }
procedure IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode;
procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
end;
var
Form1: TForm1;
const
cFileSplitSize : Int64 = 40*1024;
//40 KB größe stücke wird die Datei zerhackt
implementation
...