hedgewars/uVideoRec.pas
branchqmlfrontend
changeset 11544 b69f5f22a3ba
parent 11532 bf86c6cb9341
child 11612 b7d5d75469ee
--- a/hedgewars/uVideoRec.pas	Fri Jan 01 19:15:32 2016 +0300
+++ b/hedgewars/uVideoRec.pas	Tue Feb 09 21:11:16 2016 +0300
@@ -109,7 +109,7 @@
     filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix;
     soundFilePath:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.sw';
 
-    TryDo(AVWrapper_Init(@AddFileLogRaw
+    if checkFails(AVWrapper_Init(@AddFileLogRaw
         , PChar(ansistring(filename))
         , PChar(ansistring(desc))
         , PChar(ansistring(soundFilePath))
@@ -118,7 +118,7 @@
         , PChar(ansistring(cAudioCodec))
         , cScreenWidth, cScreenHeight, cVideoFramerateNum, cVideoFramerateDen, cVideoQuality) >= 0,
         'AVWrapper_Init failed',
-        true);
+        true) then exit(false);
 
     numPixels:= cScreenWidth*cScreenHeight;
     YCbCr_Planes[0]:= GetMem(numPixels);