Hallo
DP,
das Thema gibt es hier schon mehrfach aber nicht mit der Lösung, die zumindest für Indy10 die beste zu sein scheint.
Nach langer Suche bin ich dann doch in der Doku fündig geworden.
Delphi-Quellcode:
unit Test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdIntercept, IdInterceptThrottler, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 =
class(TForm)
IdHTTP1: TIdHTTP;
IdInterceptThrottler1: TIdInterceptThrottler;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
Fms : TMemoryStream;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdInterceptThrottler1.BitsPerSec := 524288;
// Begrenzung auf 64 KB/s
IdHTTP1.Intercept := IdInterceptThrottler1;
Fms := TMemoryStream.Create;
try
try
IdHTTP1.Get('
http://www.download.bla.de/test.zip', Fms);
// .
// .
// .
finally
FreeAndNil(Fms);
end;
except
// Fehler bei Get
end;
end;
end.
Funktioniert bestens. Allerdings sollte man die Geschwindigkeit nicht wesentlich kleiner wählen. Ich hatte dann trotzdem Downloadabbrüche, genau wie bei der Lösung mit Sleep im OnWork-Event.
Geht natürlich auch, wenn man nicht die Komponenten benutzt und die Objekte zur Laufzeit dynamisch erzeugt. Die Property BitsPerSec soll allerdings, laut Doku, vor einem Aufruf von Connect gesetzt werden.
Vielleicht kann es ja jemand brauchen und erspart sich ein langes Suchen.
Grüße,
Uwe