FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Gracias Neftali:
Tu siempre andas por aquí. Reviso todo y de funcionar lo coloco aquí por si lo necesita alguien más. Un saludo. |
#2
|
|||
|
|||
Ya está hecho gracias a los apuntes de Neftali.
Desde el evento "OnDataChannelCreate" del componente cliente de FTP (TidFtp) ponemos lo siguiente: Código:
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; La velocidad se establece por cada conexión que realiza el componente. Un saludo y espero que os sirva a los que lo necesiteis. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Automatizar la subida de imagenes a internet | gulder | Varios | 11 | 20-08-2008 00:37:13 |
Limitar velocidad de Bajada con TidHttp | sagitarius | Internet | 0 | 26-06-2007 14:12:58 |
como aumento la velocidad del DBE usando paradox? | orfeo | Conexión con bases de datos | 1 | 24-06-2003 10:17:24 |
|