wav_proj.dpr

   1 program wav_proj;
   2
   3 {$APPTYPE CONSOLE}
   4 {$R *.res}
   5
   6 uses
   7   System.SysUtils,
   8   System.Classes,
   9   spWav in 'spWav.pas',
  10   effect in 'effect.pas',
  11   WriteHeader in 'WriteHeader.pas',
  12   wav in 'wav.pas';
  13
  14 var
  15   sp: SpParam;
  16   hdrHeader: WrSWaveFileHeader;
  17
  18 begin
  19   try
  20     { TODO -oUser -cConsole \83\81\83C\83\93 : \82±\82±\82É\83R\81[\83h\82ð\8bL\8fq\82µ\82Ä\82\82¾\82³\82¢ }
  21     if ParamCount <> 2 then
  22     begin
  23       usage;
  24       Exit;
  25     end;
  26     if wavHdrRead(PChar(ParamStr(1)), sp) = -1 then
  27       Exit;
  28     if wavWrite(PChar(ParamStr(1)), PChar(ParamStr(2)), hdrHeader, sp) = -1 then
  29       Exit;
  30     Writeln('\8a®\97¹');
  31   except
  32     on E: Exception do
  33       Writeln(E.ClassName, ': ', E.Message);
  34   end;
  35
  36 end.