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 > > yes i've seen it... and this demo works perfectly as expected. > > in my application, i still have that damn RetrDataSent triggered before > RetrSessionConnected...
Have you tried to assign the DataStream in FtpServer1GetProcessing? DelayedSend := TRUE; MyClient.FWorkerThread.Client.DataStream := TMemoryStream.Create; MyClient.FWorkerThread.Resume; Sleep(0); Arno Garrels -- 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
