Limitar velocidad de subida y bajada usando idFTP

[breadagast]

Hola a todos:

Necesito limitar la velocidad de subida y bajada usando el cliente FTP de los Indy 10 (TidFTP), he buscado en el foro pero no encontré nada (si no he buscado bien les pido disculpas), espero me puedan ayudar.

Muchas gracias.

[breadagast]

Hola de nuevo:

Veo que nadie se anima, este tema me es de vital importancia ya que tengo una cola de subida de ficheros por este componente trabajando en segundo plano y al disponer de todo el ancho de banda la aplicación se resiente mucho a la hora de realizar las consultas SQL.

Si alguien lo ha investigado le ruego me responda, y si habeis llegado a la conclusión de que no se puede hacer con este componente os agradecería que me lo dijeseis para no perder más tiempo con el tema.

Un saludo a todos.

[Neftali [Germán.Estévez]]

Es un tema complejo.
Me da la impresión de que si utilizas componentes que no implementan esa característica va a ser difícil conseguirlo.
Busca por internet por "Bandwidth throttling" que es el término que se utiliza para ello, a ver si encuentras algo.

Siento no poder darte más información.

[Neftali [Germán.Estévez]]

Pues vaya ayuda la mia...
Justo estaba escribiendo el mensaje y me ha dado por buscar en las indy sobre el término throttler.

Resulta que las indy poseen una clase llamada TIdInterceptThrottler (de la que yo no tenía ni idea ) y cuya descripción es:

----------------------------------------------------------------------
TIdInterceptThrottler is a TIdConnectionIntercept descendant that implements a connection intercept with the capability to restrict throughput on the connection to a target number of bits per second.

TIdInterceptThrottler provides overridden Send and Receive methods that implement bandwidth checking and preservation using the target value
indicated in BitsPerSec.
----------------------------------------------------------------------

No te aseguro que te pueda servir (porque me acabo de enterar de sus existencia ), pero al menos tienen pinta de que va por ahí el tema.

Si avanzas sobre el tema, ya nos dirás...

Un saludo.

[Neftali [Germán.Estévez]]

Por cierto, si buscas en los foros de AtozedSoftware sobre el susodicho componente, puedes encontrar cosas interesantes.

Un saludo.

[breadagast]

Gracias Neftali:

Tu siempre andas por aquí. Reviso todo y de funcionar lo coloco aquí por si lo necesita alguien más.

Un saludo.

[breadagast]

Ya está hecho gracias a los apuntes de Neftali.

Desde el evento "OnDataChannelCreate" del componente cliente de FTP (TidFtp) ponemos lo siguiente:

 
procedure TDMFtp.IdFTP1DataChannelCreate(ASender: TObject;
  ADataChannel: TIdTCPConnection);
var
  LThrottle: TIdInterceptThrottler;
  bitpsecond: integer;
begin
  bitpsecond := 30; //KB
  LThrottle := TIdInterceptThrottler.Create(ADataChannel);
  ADataChannel.IOHandler.Intercept := LThrottle;
  LThrottle.BitsPerSec := bitpsecond * 8192; 
end;
procedure TDMFtp.IdFTP1DataChannelDestroy(ASender: TObject;
  ADataChannel: TIdTCPConnection);
begin
  with ADataChannel.IOHandler do
  begin
    Intercept.Free;
    Intercept := nil;
  end;
end;

bitpsecond es una variable que tengo declarada fuera del procedimiento para poder cambiar la velocidad.
La velocidad se establece por cada conexión que realiza el componente.

Un saludo y espero que os sirva a los que lo necesiteis.