Eine schöne Sache!
Aber:
Wie funktioniert die Positionsanzeige? Die Ausgabe bleibt bei Null stehen.
Delphi-Quellcode:
procedure TForm5.Timer1Timer(Sender: TObject);
begin
if FLib.libvlc_media_player_is_playing(FPlayer, @FException) <> 0 then
BEGIN
tb_pos.position:= Round(FLib.libvlc_media_player_get_position(FPlayer, @FException));
lb_pos1.caption:=IntToStr(Round(FLib.libvlc_media_player_get_position(FPlayer, @FException)));
END;
end;