indy 10 tcp geschwindigkeit begrenzen

[gandime]

hi,
ich wollte fragen wie ich die download/upload geschwindigkeit bei der tcp komponete von indy 10 begrenzen kann?

mfg gandime

[reichemi]

das würde mich auch interessieren... ich nehme an, es geht irgendwie mit der komponente TIdInterceptThrottler (zu finden in der palette "indy intercepts"), aber ich hab damit auch nach langem rumprobieren nix zum laufen gekriegt.

mich interessiert vorallem, wie man geschwindigkeitsbegrenzungen beim senden vom client zum server realisiert (mal von folgender möglichkeit abgesehen: wenn man nur 10kb/s haben will, schickt man einfach 10kb, nimmt die zeit vorher und nachher, berechnet die differenz und wartet noch so lange, bis insg. 1sek vergangen ist)

ach ja: die indy10-demo "throttler" (link) hat mir auch nicht wirklich geholfen, da diese bei mir nichtmal funktioniert.

[Trödel]

Bei uses hinzufügen: IdIntercept, IdInterceptThrottler
bei var für Form: GSpeed: integer;
ComboBox mit Werten füllen und beim IdClient wie unten Code einfügen.

Delphi-Quellcode:

procedure TForm1.TCPConConnected(Sender: TObject);
var
  xIntercept: TIdInterceptThrottler;
begin
  GSpeed := Integer(cmbSpeed.Items.Objects[cmbSpeed.ItemIndex]);
  xIntercept := TIdInterceptThrottler.Create(TcpCon);
  xIntercept.BitsPerSec := GSpeed;
  TcpCon.IOHandler.Intercept := xIntercept;
end;