少し直しましたが未完成です

diff --git a/WriteHeader.pas b/WriteHeader.pas
index 7ece02e..10a12e7 100644 (file)
--- a/WriteHeader.pas
+++ b/WriteHeader.pas
@@ -5,20 +5,20 @@ interface
 uses System.Classes;
 
 {$INCLUDE spWav}
-function waveHeaderWrite(fp: TFileStream; sizeOfData: integer; ch: SmallInt;
-  sampRate: Cardinal; sampBits: SmallInt): integer;
+function waveHeaderWrite(fp: TFileStream; sizeOfData: integer; ch: Word;
+  sampRate: Cardinal; sampBits: Word): integer;
 
 implementation
 
-function waveHeaderWrite(fp: TFileStream; sizeOfData: integer; ch: SmallInt;
-  sampRate: Cardinal; sampBits: SmallInt): integer;
+function waveHeaderWrite(fp: TFileStream; sizeOfData: integer; ch: Word;
+  sampRate: Cardinal; sampBits: Word): integer;
 var
   bytes: SmallInt;
   wrWavHdr: WrSWaveFileHeader;
   s: tWaveFormatPCM;
 begin
   wrWavHdr.hdrRiff := STR_RIFF;
-  wrWavHdr.sizeOfFile := sizeOfData + SizeOf(WrSWaveFileHeader) - 4;
+  wrWavHdr.sizeOfFile := sizeOfData + SizeOf(WrSWaveFileHeader) - 8;
   wrWavHdr.hdrWave := STR_WAVE;
   wrWavHdr.hdrFmt := STR_fmt;
   wrWavHdr.sizeOfFmt := SizeOf(tWaveFormatPCM);

diff --git a/wav_proj.dpr b/wav_proj.dpr
index 462f426..97e34f0 100644 (file)
--- a/wav_proj.dpr
+++ b/wav_proj.dpr
@@ -9,7 +9,7 @@ uses
   wav in 'wav.pas',
   WriteHeader in 'WriteHeader.pas';
 
-function effect8BitWav(fpIn, fpOut: TFileStream; sizeOfData: SmallInt): integer;
+function effect8BitWav(fpIn, fpOut: TFileStream; sizeOfData: Word): integer;
 var
   i: integer;
   s: Single;
@@ -33,7 +33,7 @@ begin
   end;
 end;
 
-function effect16BitWav(fpIn, fpOut: TFileStream; sizeOfData: SmallInt)
+function effect16BitWav(fpIn, fpOut: TFileStream; sizeOfData: integer)
   : integer;
 var
   i: integer;

diff --git a/wav_proj.dproj b/wav_proj.dproj
index 4f5b9c2..a426c71 100644 (file)
--- a/wav_proj.dproj
+++ b/wav_proj.dproj
@@ -127,7 +127,7 @@
         <DCC_RemoteDebug>true</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-        <Debugger_RunParams>easy.wav effect.wav</Debugger_RunParams>
+        <Debugger_RunParams>toujyo.wav effect.wav</Debugger_RunParams>
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">