Fixed AV when closing a copy never or corrupted video stream that was…

… never able to be opened
craigmox · Sep 3, 2020 · 09112d6 · 09112d6
1 parent a8adbed
commit 09112d6
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/VideoUtils.pas b/VideoUtils.pas
@@ -38,7 +38,7 @@   TVideoConverter = class
     fStreamInputDTS: TArray<Int64>;
 
     fProgramFilter: Integer;
-    fFinished: Boolean;
+    fOpened, fFinished: Boolean;
     fOnInterrupt: TVideoInterruptEvent;
 
     function GetErrorStr(const aErrorCode: Integer): String;
@@ -147,6 +147,8 @@ procedure TVideoConverter.Open;
     lRet := avformat_write_header(fOutputFormatContext, nil);
     if lRet < 0 then
       ErrorFmt('Error occurred writing output header: %s', [GetErrorStr(lRet)]);
+
+    fOpened := True;
   except
     on e: EVideoConverterError do
       raise;
@@ -249,8 +251,9 @@ procedure TVideoConverter.Close;
 begin
   fFinished := True;
   try
-    if Assigned(fOutputFormatContext) then
-      av_write_trailer(fOutputFormatContext);
+    if fOpened then
+      if Assigned(fOutputFormatContext) then
+        av_write_trailer(fOutputFormatContext);
 
     // NOTE: FFMPEG code internally frees avformat context before closing avio