Merge pull request #22 from DSRCorporation/bugfix/report-saving-error…

…s-handling Bugfix. Reports errors handling.
DSRCorporation · Mar 7, 2017 · fd1416a · fd1416a
2 parents 02f8880 + e48e7af
commit fd1416a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Units/NetflixQualityCheck.pas b/Units/NetflixQualityCheck.pas
@@ -395,16 +395,20 @@ function SaveString(Str: string; FileName: WideString): Boolean;
   fileStream: TTntFileStream;
 begin
   Result := true;
-  fileStream := TTntFileStream.Create(FileName, fmCreate);
 
   try
     try
+      fileStream := TTntFileStream.Create(FileName, fmCreate);
       fileStream.WriteBuffer(PChar(str)^, Length(str) * SizeOf(Char));
     except
       Result := false;
     end;
   finally
-    fileStream.Free;
+    try
+      fileStream.Free;
+    except
+      Result := false;
+    end;
   end;
 end;