5 uses System.Classes, System.SysUtils;
7 function readWav(const fName: string; out pMem: TMemoryStream): Boolean;
11 function readWav(const fName: string; out pMem: TMemoryStream): Boolean;
14 sizeOfFile, length: integer;
17 if FileExists(fName) = false then
19 f := TFileStream.Create(fName, fmOpenRead);
22 Writeln('
\83t
\83@
\83C
\83\8b\83T
\83C
\83Y', sizeOfFile);
23 pMem := TMemoryStream.Create;