Francois PIETTE wrote: >> I think I got it, please try: >> >> procedure TIcsBufferHandler.DeleteAllData; >> var >> Buf : TIcsBuffer; >> begin >> Buf := FInUseList.RemoveFromListHead; >> while Assigned(Buf) do begin >> add => Buf.WrCount := 0; >> add => Buf.RdCount := 0; >> FFreeList.AddToListHead(Buf); // Put in free list >> Buf := FInUseList.RemoveFromListHead; >> end; >> end; > > Your change is already in my source code. Strange you don't have it > because it has not been changed recently IMO. And it is not marked as > a change in my source. Very strange.
Yes, very strange, took me several hours to catch it :( Anyway I think the new buffer is an improvement, it should be much faster that the old one :) One more reason to move to V6! > > -- > Contribute to the SSL Effort. Visit > http://www.overbyte.be/eng/ssl.html -- > [EMAIL PROTECTED] > 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