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

* fixed bug in wav reader, that fails to skip non-data chunks, because it

Browse Source 
forgets to seek ahead in the stream

git-svn-id: trunk@47465 -
This commit is contained in:
nickysn 2020-11-20 03:24:16 +00:00
parent e3d0b3c7c6
commit 4411b09631
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -121,8 +121,10 @@ begin
EoF := sz < sizeof(DataChunk); EoF := sz < sizeof(DataChunk);
if not EoF then begin if not EoF then begin
DataChunk.Size := LEtoN(DataChunk.Size); DataChunk.Size := LEtoN(DataChunk.Size);
if DataChunk.Id <> AUDIO_CHUNK_ID_data then if DataChunk.Id <> AUDIO_CHUNK_ID_data then begin
ChunkPos := DataChunk.Size ChunkPos := DataChunk.Size;
fstream.Seek(DataChunk.Size, soCurrent);
end
else else
ChunkPos := 0; ChunkPos := 0;
end; end;