Guillaume MAISON wrote:
The DataStream is nil at that time, try this:
procedure TGetProcessingThread.Execute;
var
aBuf : String;
i : integer;
begin
abuf := 'One ring to rule them all !'#13#10;
Client.DataStream := TMemoryStream.Create;
for i := 0 to 1000 do
Client.DataStream.Write(PChar(aBuf)^, Length(aBuf));
Client.DataStream.Seek(0, 0);
end;
Arno Garrels
>> It's just a guess, sounds like your multithreading isn't designed well.
>> Can you explain your thread design in your own words?
>> Arno Garrels
>
> well, in that case, the demo for the ftp server has a bad multithreading
> design.
>
> i'm just using the very same design, and the very same classname ;)
>
> for a detail :
> i have an object that has the OnGetProcessing procedure which is linked
> to the
> FtpServer's OnGetProcessing.
> within this procedure i'm using a Client Class which is *exactly* like
> TMyClient (also declared as FtpServer.ClientClass before the server
> starts).
> i'm creating the thread object exactly the same way as in the demo.
>
> the same object that holds the OnGetProcessing procedure holds the
> WorkerThreadTerminated procedure
> linked to the Thread's OnTerminate event.
> This WorkerThreadTerminated procedure has exactly the same code as in the
> demo.
>
> In fact i've almost changed anything as it fitted exactly my needs.
> I've only written in the Thread's Execute method the code i needed to
> fill the client Datastream...
>
> i would suggest you to download the sample i've provided here
> http://nauteus.com/FTPSample.zip.
> The code in this sample is precisely what doesn't seem to work...
>
> to use that FTP Server :
> 1. create the EXE file and run it
> 2. within the EXE directory, create an empty file named 'images'
> 3. open your favorite ftp client
> 4. try to download this file.
>
> it should be, on your ftp client side, a text file... but for me (using
> filezilla) it's empty...
>
> Thanks for your help,
>
> Guillaume MAISON
> -----
> Guillaume MAISON - [EMAIL PROTECTED]
> 83, Cours Victor Hugo
> 47000 AGEN
> T�l : 05 53 87 91 48 - Fax : 05 53 68 73 50
> e-mail : [EMAIL PROTECTED] - Web : http://nauteus.com
--
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
