diff options
| -rw-r--r-- | src/media/UMediaCore_FFmpeg.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/media/UMediaCore_FFmpeg.pas b/src/media/UMediaCore_FFmpeg.pas index 16bac05d..55d9a779 100644 --- a/src/media/UMediaCore_FFmpeg.pas +++ b/src/media/UMediaCore_FFmpeg.pas @@ -634,7 +634,9 @@ begin av_init_packet(TempPacket^); TempPacket^.data := Pointer(STATUS_PACKET); TempPacket^.flags := StatusFlag; +{$IF FFMPEG_VERSION_INT < 2000000} TempPacket^.priv := StatusInfo; +{$ENDIF} // put a copy of the package into the queue Result := Put(TempPacket); // data has been copied -> delete temp. package @@ -643,13 +645,17 @@ end; procedure TPacketQueue.FreeStatusInfo(var Packet: TAVPacket); begin +{$IF FFMPEG_VERSION_INT < 2000000} if (Packet.priv <> nil) then FreeMem(Packet.priv); +{$ENDIF} end; function TPacketQueue.GetStatusInfo(var Packet: TAVPacket): Pointer; begin +{$IF FFMPEG_VERSION_INT < 2000000} Result := Packet.priv; +{$ENDIF} end; function TPacketQueue.Get(var Packet: TAVPacket; Blocking: boolean): integer; |