wav_proj.dpr

   1 program wav_proj;
   2
   3 {$APPTYPE CONSOLE}
   4 {$R *.res}
   5
   6 uses
   7   System.SysUtils,
   8   System.Classes,
   9   MMSystem,
  10   spWav in 'spWav.pas',
  11   wav in 'wav.pas',
  12   selectFile in 'selectFile.pas';
  13
  14 var
  15   sp: SpParam;
  16   pMem: TMemoryStream;
  17   fileName: string;
  18   hdrHeader: WrSWaveFileHeader;
  19
  20 begin
  21   try
  22     { TODO -oUser -cConsole \83\81\83C\83\93 : \82±\82±\82É\83R\81[\83h\82ð\8bL\8fq\82µ\82Ä\82\82¾\82³\82¢ }
  23     fileName := ExtractFileName(ParamStr(1));
  24     if wavHdrRead(PChar(ParamStr(1)), sp) < 0 then
  25       Exit;
  26     if readWav(ParamStr(1), pMem) = false then
  27       Exit;
  28     PlaySound(pMem.Memory, 0, SND_ASYNC or SND_NODEFAULT or SND_MEMORY);
  29     Readln;
  30     PlaySound(nil, 0, SND_PURGE);
  31     pMem.Free;
  32   except
  33     on E: Exception do
  34       Writeln(E.ClassName, ': ', E.Message);
  35   end;
  36
  37 end.