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;