equal
deleted
inserted
replaced
155 if AVWrapper_Close() < 0 then |
155 if AVWrapper_Close() < 0 then |
156 begin |
156 begin |
157 AddFileLog('AVWrapper_Close() has failed.'); |
157 AddFileLog('AVWrapper_Close() has failed.'); |
158 halt(HaltVideoRec); |
158 halt(HaltVideoRec); |
159 end; |
159 end; |
160 Erase(cameraFile); |
160 {$IOCHECKS OFF} |
161 if recordAudio then |
161 // Provoke IOResult to be set |
|
162 FileSize(cameraFile); |
|
163 if IOResult = 0 then |
|
164 Erase(cameraFile) |
|
165 else |
|
166 AddFileLog('Warning: Tried to delete the cameraFile but it was already deleted'); |
|
167 {$IOCHECKS ON} |
|
168 if recordAudio and FileExists(soundFilePath) then |
162 DeleteFile(soundFilePath); |
169 DeleteFile(soundFilePath); |
163 SendIPC(_S'v'); // inform frontend that we finished |
170 SendIPC(_S'v'); // inform frontend that we finished |
164 end; |
171 end; |
165 |
172 |
166 procedure EncodeFrame; |
173 procedure EncodeFrame; |