hedgewars/uVideoRec.pas
changeset 14900 002f7d41f5ce
parent 14482 9844450389a4
child 14908 a414d37278df
--- a/hedgewars/uVideoRec.pas	Sat May 04 21:37:22 2019 +0200
+++ b/hedgewars/uVideoRec.pas	Sun May 05 02:04:12 2019 +0200
@@ -68,7 +68,7 @@
               end;
 
 var RGB_Buffer: PByte;
-    cameraFile: File of TFrame;
+    cameraFile: File;
     audioFile: File;
     numPixels: LongWord;
     startTime, numFrames, curTime, progress, maxProgress: LongWord;
@@ -85,7 +85,7 @@
     // open file with prerecorded camera positions
     filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.txtin';
     Assign(cameraFile, filename);
-    Reset(cameraFile);
+    Reset(cameraFile, SizeOf(TFrame));
     maxProgress:= FileSize(cameraFile);
     if IOResult <> 0 then
     begin
@@ -314,7 +314,7 @@
     // create file with camera positions
     filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.txtout';
     Assign(cameraFile, filename);
-    Rewrite(cameraFile);
+    Rewrite(cameraFile, SizeOf(TFrame));
     if IOResult <> 0 then
         begin
         AddFileLog('Error: Could not write to ' + filename);