Solve issue after 1 hour operation in RTDB Listener: Invalid stream r…

…ead count
SchneiderInfosystems · Jan 18, 2019 · 5c01f3b · 5c01f3b
1 parent 967b192
commit 5c01f3b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Source/FB4D.RealTimeDB.pas b/Source/FB4D.RealTimeDB.pas
@@ -508,6 +508,8 @@ function TRealTimeDB.ListenForValueEvents(ResourceParams: TRequestResourceParam;
           if fRequireTokenRefresh then
             fAuth.CheckAndRefreshTokenSynchronous;
           fClient.Get(URL + TFirebaseHelpers.EncodeToken(fAuth.Token), fStream);
+          fReadPos := 0;
+          fStream.Position := 0;
         end;
       except
         on e: exception do