[prev in list] [next in list] [prev in thread] [next in thread] 

List:       twsocket
Subject:    [twsocket] Hotfix V6 (data corruption)
From:       "Arno Garrels" <arno.garrels () gmx ! de>
Date:       2006-10-23 14:53:16
Message-ID: 01c001c6f6b2$f92215d0$64b2a8c0 () w2k
[Download RAW message or body]

Fastream Technologies wrote:
> Yes sir, you really got it! :)

I post it again with a new subject, since most likely it 
effects any V6 component.

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;

---
Arno Garrels [TeamICS]
http://www.overbyte.be/eng/overbyte/teamics.html

-- 
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
[prev in list] [next in list] [prev in thread] [next in thread]