uruworks / uw_mpvplayer Goto Github PK

Hello,
when TMPVPlayer.Close used in rmOpenGL mode it throws Access violation error. In rmEmbedding no error.

The error is thrown on line 883:

procedure TMPVPlayer.UnInitialize;
...
 if Assigned(mpv_terminate_destroy) and Assigned(FMPV_HANDLE) then
    mpv_terminate_destroy(FMPV_HANDLE^);  
...

What is the purpose of TMPVPlayer.Close ?
I would need to clear the player screen after stopping video to show my own image - i.e. override procedure EraseBackground(DC: HDC) from parents and TMPVPlayer.Close seems like a promise choice.

Thanks for any hint

My specs:

FPC 3.3.1 x86_64-win64-win32/win64
Microsoft Windows 10 Pro 10.0.19045
x64-based PC Intel(R) Core(TM) i5-2500K CPU @ 3.30GHz