selectFile.pas

   1 unit selectFile;
   2
   3 interface
   4
   5 uses System.Classes, System.SysUtils;
   6
   7 function readWav(const fName: string; out pMem: TMemoryStream): Boolean;
   8
   9 implementation
  10
  11 function readWav(const fName: string; out pMem: TMemoryStream): Boolean;
  12 var
  13   f: TFileStream;
  14   sizeOfFile, length: integer;
  15 begin
  16   result := false;
  17   if FileExists(fName) = false then
  18     Exit;
  19   f := TFileStream.Create(fName, fmOpenRead);
  20   try
  21     sizeOfFile := f.Size;
  22     Writeln('\83t\83@\83C\83\8b\83T\83C\83Y', sizeOfFile);
  23     pMem := TMemoryStream.Create;
  24     pMem.CopyFrom(f, 0);
  25     result := true;
  26   except
  27   end;
  28   f.Free;
  29 end;
  30
  31 end.