From 4411b09631576f4ba2844205f8fac8b2b4edc276 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 20 Nov 2020 03:24:16 +0000
Subject: [PATCH] * fixed bug in wav reader, that fails to skip non-data
 chunks, because it   forgets to seek ahead in the stream

git-svn-id: trunk@47465 -
---
 packages/fcl-sound/src/fpwavreader.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-sound/src/fpwavreader.pas b/packages/fcl-sound/src/fpwavreader.pas
index aca868dc38..25a6599b54 100644
--- a/packages/fcl-sound/src/fpwavreader.pas
+++ b/packages/fcl-sound/src/fpwavreader.pas
@@ -121,8 +121,10 @@ begin
       EoF := sz < sizeof(DataChunk);
       if not EoF then begin
         DataChunk.Size := LEtoN(DataChunk.Size);
-        if DataChunk.Id <> AUDIO_CHUNK_ID_data then
-          ChunkPos := DataChunk.Size
+        if DataChunk.Id <> AUDIO_CHUNK_ID_data then begin
+          ChunkPos := DataChunk.Size;
+          fstream.Seek(DataChunk.Size, soCurrent);
+        end
         else
           ChunkPos := 0;
       end;