Streams: welche BufSize?

[stoxx]

ich finde, dieses geniale Beispiel sollte nicht einfach so untergehen
vor allen Dingen diese tolle Verwendung von Entwurfsmustern ...

hier nochmal der richtige Platz, um es zu würdigen

von hier


http://www.delphipraxis.net/internal...t.php?t=146438

Verions 1.7

http://andorra.cvs.sourceforge.net/v...s?revision=1.7

Delphi-Quellcode:

uses 
  ..., AdBuffer; 

var 
  fs: TFileStream; 
begin 
  fs := TFileStream.Create('C:\test.mp3', fmCreate); 
  
  QueryBufferedStream(fs); 

  //Gebuffert auf den Stream zugreifen... 

  FreeBufferedStream(fs); 

  fs.Free; 
end;