MPlayer seek question

[Pe3s]

Hello I have this question why the progress bar reacts with a delay , is it due to an error in the MPLayer component ?

Code: Pascal  [Select][+][-]

1. procedure TForm1.VideoBarMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
2. var
3.   Ratio: Real;
4.   Total, videoPos: Integer;
5. begin
6.   if not (ssLeft in Shift) then Exit;
7.   Ratio := X / VideoBar.ClientWidth;
8.   Total := Trunc(VideoBar.MaxValue - VideoBar.MinValue);
9.   videoPos := Trunc((Total * Ratio) + Trunc(VideoBar.MinValue));
10.   VideoBar.Value := videoPos;
11. end;
12.  
13. procedure TForm1.VideoBarMouseUp(Sender: TObject; Button: TMouseButton;
14.   Shift: TShiftState; X, Y: Integer);
15. begin
16.   MPlayer.SendMPlayerCommand('seek '+inttostr(VideoBar.Value)+ ' 2');
17. end;
18.  
19.  

[metis]

@Pe3s

The MPlayer communicates via Pipes & Strings, which is slow.
If You want something faster, take e.g. the VLC-DLLs.

If You want something really fast & responsive, with outstanding Sound, take my FFmpeg-based AV-Player:
https://forum.lazarus.freepascal.org/index.php/topic,26666.msg428667.html#msg428667

[Pe3s]

@Metis Thank you