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

[sample-delphi/sample-DELPHI.git] / WriteHeader.pas

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);