Re: Re[2]: [twsocket] Is there a waytosetupa valuefor maximal downloadspeed?

[Dan]

I hadn't, but I've just done a quick demonstration of how it can be 
done...not sure if its the best way but it seems to work.

www.xantorrent.pwp.blueyonder.co.uk/ics/ThrottledFTPSrv.zip
It it simply deriving TFTPCtrlSocket to make it create a ThrottledWSocket 
for its data socket instead of a nomal WSocket, then setting your 
ClientClass in the FTPServer and setting your Throttler for each client 
appropriately.
I've included a modified FtpSrv demo.
Let me know if I missed any files out required to get it working.

Dan
----- Original Message ----- 
From: "Francois PIETTE" <[EMAIL PROTECTED]>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Tuesday, April 12, 2005 12:36 PM
Subject: Re: Re[2]: [twsocket] Is there a waytosetupa valuefor maximal 
downloadspeed?


Dan,
Have you done the work ?
If yes, are you willing to share it ?
--
[EMAIL PROTECTED]
http://www.overbyte.be
----- Original Message ----- 
From: "Dan" <[EMAIL PROTECTED]>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Monday, April 11, 2005 2:18 AM
Subject: Re: Re[2]: [twsocket] Is there a way tosetupa valuefor maximal
downloadspeed?


Hehe, unfortunately, its a little more difficult than that...you'll need
to
derive your own TFTPClient and make it use TThrottledWSocket internally
instead of TWSocket.
Make sure this is for the data connection too, the control connection
shouldn't need throttling.
Dan
----- Original Message ----- 
From: "Mice Cage" <[EMAIL PROTECTED]>
To: "ICS support mailing" <twsocket@elists.org>
Sent: Sunday, April 10, 2005 4:41 PM
Subject: Re: Re[2]: [twsocket] Is there a way to setupa valuefor maximal
downloadspeed?

> Nice work. Can You give me the code to start Your functions.
>
> This won't work:
>
> unit Main;
>
> interface
>
> uses
>  ...
>
> uthrottledWsocket;
>
> procedure TForm1.FtpClient1Progress(Sender: TObject; Count: Integer;
>  var Abort: Boolean);
> var    S: String;
>  TotalTime: TDateTime;
>  H, M, Sec, MS: Word;
>  DLTime: Double;
>  i: real;
> begin
> SetMaxBPSDown(strtoint(speedlimit.text));
>
> ...
>
> end;
>
> [Error] Main.pas(1471): Undeclared identifier: 'SetMaxBPSDown'
>
> ... I'll keep on trying ... ;)
>
>
>> You can have a look at and try to modify/improve my throttling code:
>> http://www.xantorrent.pwp.blueyonder.co.uk/ics/uThrottledWSocket.pas
>>
>> Dan
>>
>> ----- Original Message ----- 
>> From: "Mice Cage" <[EMAIL PROTECTED]>
>> To: "ICS support mailing" <twsocket@elists.org>
>> Sent: Sunday, April 10, 2005 12:02 PM
>> Subject: Re: Re[2]: [twsocket] Is there a way to setup a valuefor
maximal
>> downloadspeed?
>>
>>
>> > This function uses sleep, so it is clear why it freezes my app.
Timers
>> are
>> > the only solution. ... but I don't have a clue how to implent a 
>> > timer
>> into
>> > the delayfunction with the same function like sleep but without
>> > freazing
>> > the
>> > app.
>> >
>> > -- 
>> > Sparen beginnt mit GMX DSL: http://www.gmx.net/de/go/dsl
>> >
>> > -- 
>> > To unsubscribe or change your settings for TWSocket mailing list
>> > please goto http://www.elists.org/mailman/listinfo/twsocket
>> > Visit our website at http://www.overbyte.be
>> >
>>
>>
>> -- 
>> To unsubscribe or change your settings for TWSocket mailing list
>> please goto http://www.elists.org/mailman/listinfo/twsocket
>> Visit our website at http://www.overbyte.be
>>
>
> -- 
> Handyrechnung zu hoch? Tipp: SMS und MMS mit GMX
> Seien Sie so frei: Alle Infos unter http://www.gmx.net/de/go/freesms
>
> -- 
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://www.elists.org/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be
>

--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be