Changeset 263 for CoolStreaming

Timestamp:

Aug 15, 2011, 11:58:03 AM (13 years ago)

Author:

george

Message:

• Fixed: TBufferedFileStream seek error.

File:

• CoolStreaming/UBufferedFileStream.pas (modified) (1 diff)

CoolStreaming/UBufferedFileStream.pas

@@ -131 +131 @@
     Flush;
     FBuffer.Clear;
-  end;
+  end else FBuffer.Position := FPosition - FBufferPosition;
 
   Result := FPosition;