Delphi-PRAXiS - Delphi Download Tool

Hi, ich hab hier mal was im Forum gefunden und mal ausprobiert.
Leider geht das ganze nicht.
Ich bekomme weder einen Fehler noch irgend was anderes, wenn ich den Button 1 Klick, passiert 0.

Kann sich das mal einer anschauen?
Delphi-Quellcode:
			unit by;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ComCtrls, StdCtrls, IdBaseComponent, IdComponent,

  IdTCPConnection, IdTCPClient, IdHTTP;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    StatusBar1: TStatusBar;

    Progress: TProgressBar;

    SpeedLabel: TLabel;

    Status: TLabel;

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    IdHTTP: TIdHTTP;

    Label1: TLabel;

  private

    FTime: Longword; //Beide Variablen werden für die kb/sec anzeige gebraucht

    FBytes: Longword;

    procedure IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);

    procedure Button1Click(Sender: TObject);

    procedure IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

const

  cFileSplitSize : Int64 = 40*1024;   //40 KB größe stücke wird die Datei zerhackt

implementation

{$R *.dfm}

function GetSizeName(const Size : int64): String;

begin 

  Result := 'Fehler';

  if Size = -1 then exit; 

  if Size < 1024 then 

  begin 

    Result := inttostr(Size)+' Byte'; 

    exit; 

  end; 

  if (1024 <= Size) and (Size < 1048576) then 

  begin 

    Result := floattostr((round((Size/1024)*100))/100)+' KB'; 

    exit; 

  end; 

  if (1048576 <= Size) and (Size < 1099511627776) then 

  begin 

    Result := floattostr((round((Size/1048576)*100))/100)+' MB'; 

    exit; 

  end; 

  if Size > 1099511627776 then 

  begin 

    Result := floattostr((round((Size/1099511627776)*100))/100)+' GB'; 

  end; 

end;

procedure TForm1.IdHTTPWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);

begin

  FTime  := GetTickCount;

  FBytes := 0;

  Application.ProcessMessages;

end;

procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);

begin 

  if not((GetTickCount - FTime) <= 0) then 

  begin 

    try 

      SpeedLabel.caption := Format('%.2f KB/s', [(AWorkCount - FBytes) / (GetTickCount - FTime)]);

    except

    end;

  end; 

  FTime  := GetTickCount;

  FBytes := AWorkCount;

  Application.ProcessMessages;

end;

procedure TForm1.Button1Click(Sender: TObject); 

var

  BytesKopiert, BytesInsgesamt : int64;

  lStream: TFileStream;

begin

  //Initialiesieren

  Status.Caption := '';

  BytesKopiert := 0;

  Progress.Position := 0;

  //In edit 1 steht die downzuladene Datei (z.b. [url]http://www.server.com/datei.dat[/url])

  Status.Caption := 'Prüfe Header';

  // Durch die zwei nächsten Befehle wird die Größe ermittelt und ihn der Variable BytesInsgesamt abgespeichert

  IdHTTP.Head(Edit1.Text);

  BytesInsgesamt := IdHTTP.Response.ContentLength;

  //Wenn die Indy Komponente -1 zurückgibt dann bedeutet es des der die Dateigröße nicht zu verfügung

  //stellt uns somit kann die Datei ganz normall heruntergeladen werden (ohne Fortschrittsanzeige)

  if BytesInsgesamt = -1 then

  begin

    Status.Caption := 'Normalles herunterladen'; 

    Status.Caption := 'Erstelle Datei'; 

    //In Edit 2 steht welche Datei (z.b. C:\datei.dat) 

    //Datei erstellen 

    lStream:=TFileStream.Create(Edit2.Text, fmCreate or fmShareDenyNone); 

    try 

      //und "normal" herunterladen 

      idHTTP.Get(Edit1.Text, lStream); 

    finally 

      if Assigned(lStream) then lStream.Free; //FileStream freigeben wenn gesetzt 

    end; 

    //Alles auf fertig stellen 

    Status.Caption := 'Fertig'; 

    SpeedLabel.caption := 'Fertig';

    exit; 

  end;

  //Also wenn wir hier angelangt sind dann bedeutet es der Server hat uns die Dateigröße zur Verfügung gestellt. 

  Progress.Max := BytesInsgesamt;

  Status.Caption := 'Erstelle Datei';

  //In Edit 2 steht welche Datei (z.b. C:\datei.dat) 

  //Datei erstellen 

  lStream:=TFileStream.Create(Edit2.Text, fmCreate or fmShareDenyNone); 

  lStream.Position := 0; 

  try 

    repeat 

      // Damit sich das Programm nicht aufhängt 

      Application.ProcessMessages; 

      //Nun setzen wir den Start nach die bereits kopierten Bytes 

      IdHTTP.Request.ContentRangeStart := BytesKopiert; 

      //Hier wird gebrüft ob die restlichen Bytes größer sind als cFileSplitSize 

      if (BytesInsgesamt-BytesKopiert) > cFileSplitSize then 

      begin 

        //Hier wird einmal die cFileSplitSize eingestellt 

        IdHTTP.Request.ContentRangeEnd := BytesKopiert+cFileSplitSize-1; 

      end 

      //Den rest der Datei 

      else IdHTTP.Request.ContentRangeEnd := BytesInsgesamt; 

      Application.ProcessMessages; 

      //Den eingesttelten Teil herunterladen und ihn die Datei speichern 

      IdHTTP.Get(Edit1.Text, lStream); 

      //Progress und Status aktualliesieren 

      Progress.Position := BytesKopiert; 

      Status.Caption := GetSizeName(BytesKopiert)+'/'+GetSizeName(BytesInsgesamt); 

      //BytesKopiert weiter setzen 

      BytesKopiert := BytesKopiert+cFileSplitSize; 

    until (BytesKopiert >= BytesInsgesamt); //Schleife beenden wenn datei fertig 

  finally 

    if Assigned(lStream) then lStream.Free; //FileStream freigeben wenn gesetzt 

  end; 

  //Alles auf fertig stellen 

  Status.Caption := 'Fertig'; 

  SpeedLabel.caption := 'Fertig';

  Progress.Position := 100; 

end;

end.
Wäre net danke.