TIdHTTP -> Bandbreite begrenzen

[meisteralex]

Hi Leute, ich schreibe gerade ein Programm, wo ich unternaderem mit der TIdHTTP-Komponenten Daten übertrage
Ich möchte nun jedoch einstellen können, welche Bandbreite für das senden der Daten maximal zur Verfüg steht
Also ich möchte die Bandbreite z.b. auf 20kb/s begrenzen könen
Jemand ne idee ?

[Christian Seehase]

Moin Alex,

das wird ohne Hilfsmittel nicht gehen.
Unter XP steht Dir dafür BITS zur Verfügung.
Dessen Anwendung ist im PSDK dokumentiert.

[meisteralex]

gibt keine andere möglichkeit ?

[Union]

Miss doch die Bandbreite und baue delays ein, wenn der Grenzwert überschritten wird.

[meisteralex]

was meinst du damit genau und wie geht das ?

[Union]

Die Daten überträgst Du doch. Also weißt Du auch, welche Größe die Daten über einen gegebenen Zeitraum haben. Das ist die benutzte Bandbreite. Ist die Dir zu groß, baust Du Pausen in Dein Programm ein (Pseudocode):

Delphi-Quellcode:

BenutzteBandBreite := BandBreite(InLetzten30SekundenUebertrageneDaten, 30);
if BenutzteBandBreite > 20*1024 then
   Delay(BerechneVerzögerung(BenutzteBandBreite));
UebertrageDatenInSendePuffer;

[meisteralex]

und was ist bei größeren dateien ?
nehmen wir an ich habe eine 10mb datei
ich kann ja den http-post nicht unterbrechen

[Union]

Zitat:

Zitat von meisteralex

und was ist bei größeren dateien ?
nehmen wir an ich habe eine 10mb datei
ich kann ja den http-post nicht unterbrechen

Dann musst Du eben kieine 10Mb am Stück übertragen. Oder Du machst das in einer Progress-Funktion.

[SirThornberry]

doch kannst du indirekt. Und zwar kannst du Streams verwenden bzw. empfangen. Wenn du dir also von TStream oder einem Nachfahren eine eigene Klasse ableitest kannst du in den Methoden ReadBuffer und WriteBuffer (ich hoff die hießen so, kann im Moment nicht nachschauen) ein Sleep etc. einbauen um das ganze zu verzögern.

[meisteralex]

puh das ist glaub ich zu hoch für mich