94 {$IOCHECKS ON} |
94 {$IOCHECKS ON} |
95 |
95 |
96 // store some description in output file |
96 // store some description in output file |
97 desc:= ''; |
97 desc:= ''; |
98 if UserNick <> '' then |
98 if UserNick <> '' then |
99 desc+= 'Player: ' + UserNick + #10; |
99 desc:= desc + 'Player: ' + UserNick + #10; |
100 if recordFileName <> '' then |
100 if recordFileName <> '' then |
101 desc+= 'Record: ' + recordFileName + #10; |
101 desc:= desc + 'Record: ' + recordFileName + #10; |
102 if cMapName <> '' then |
102 if cMapName <> '' then |
103 desc+= 'Map: ' + cMapName + #10; |
103 desc:= desc + 'Map: ' + cMapName + #10; |
104 if Theme <> '' then |
104 if Theme <> '' then |
105 desc+= 'Theme: ' + Theme + #10; |
105 desc:= desc + 'Theme: ' + Theme + #10; |
106 desc+= 'prefix[' + RecPrefix + ']prefix'; |
106 desc:= desc + 'prefix[' + RecPrefix + ']prefix'; |
107 desc+= #0; |
107 |
108 |
108 filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix; |
109 filename:= UserPathPrefix + '/VideoTemp/' + RecPrefix + #0; |
109 soundFilePath:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.sw'; |
110 soundFilePath:= UserPathPrefix + '/VideoTemp/' + RecPrefix + '.sw' + #0; |
110 |
111 cAVFormat+= #0; |
111 AVWrapper_Init(@AddFileLogRaw |
112 cAudioCodec+= #0; |
112 , PChar(ansistring(filename)) |
113 cVideoCodec+= #0; |
113 , PChar(ansistring(desc)) |
114 AVWrapper_Init(@AddFileLogRaw, @filename[1], @desc[1], @soundFilePath[1], @cAVFormat[1], @cVideoCodec[1], @cAudioCodec[1], |
114 , PChar(ansistring(soundFilePath)) |
115 cScreenWidth, cScreenHeight, cVideoFramerateNum, cVideoFramerateDen, cVideoQuality); |
115 , PChar(ansistring(cAVFormat)) |
|
116 , PChar(ansistring(cVideoCodec)) |
|
117 , PChar(ansistring(cAudioCodec)) |
|
118 , cScreenWidth, cScreenHeight, cVideoFramerateNum, cVideoFramerateDen, cVideoQuality); |
116 |
119 |
117 numPixels:= cScreenWidth*cScreenHeight; |
120 numPixels:= cScreenWidth*cScreenHeight; |
118 YCbCr_Planes[0]:= GetMem(numPixels); |
121 YCbCr_Planes[0]:= GetMem(numPixels); |
119 YCbCr_Planes[1]:= GetMem(numPixels div 4); |
122 YCbCr_Planes[1]:= GetMem(numPixels div 4); |
120 YCbCr_Planes[2]:= GetMem(numPixels div 4); |
123 YCbCr_Planes[2]:= GetMem(numPixels div 4); |