paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

- don't check for the PCM format in the .wav reader, to allow reading other audio formats

Browse Source 
git-svn-id: trunk@47464 -
This commit is contained in:
nickysn 2020-11-20 03:21:19 +00:00
parent a38da538af
commit e3d0b3c7c6
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-sound/src/fpwavreader.pas
View File

@ -97,8 +97,6 @@ begin
Result := Result and (fmt.ChunkHeader.ID = AUDIO_CHUNK_ID_fmt) and ((fmt.ChunkHeader.Size + 8) >= sizeof(fmt)); Result := Result and (fmt.ChunkHeader.ID = AUDIO_CHUNK_ID_fmt) and ((fmt.ChunkHeader.Size + 8) >= sizeof(fmt));
if Result and ((fmt.ChunkHeader.Size + 8) > sizeof(fmt)) then if Result and ((fmt.ChunkHeader.Size + 8) > sizeof(fmt)) then
fStream.Seek((fmt.ChunkHeader.Size + 8) - sizeof(fmt), soCurrent); fStream.Seek((fmt.ChunkHeader.Size + 8) - sizeof(fmt), soCurrent);
if Result and (fmt.Format <> 1) then
Exit(False);
end; end;
function Min(a, b: Integer): Integer; function Min(a, b: Integer): Integer;