libvlc_video_set_callbacks with TPasLibVlc component

[carmeloconny]

Hello everyone. Sorry for my English. My project uses TPasLibVlc visual component. TPasLibVlcPlayer ( visual player) and TPasLibVlcMediaList ( visual play-list)
http://prog.olsztyn.pl/paslibvlc/
I want change dimensions to my videos, all of 720x576.
I discovered that libvlc_media: PasLibVlcMediaList1.GetItemAtIndex = (0); does not assign the correct media. How can I point to the current media file of TPasLibVlcList1? To go right parameters to libvlc_video_set_callbacks (libvlc_media_player ... etc.

Code: Select all

libvlc_media :libvlc_media_t_ptr; libvlc_media_player :libvlc_media_player_t_ptr;

Code: Select all

libvlc_media := PasLibVlcMediaList1.GetItemAtIndex(1); // my problem not assign correct media video libvlc_media_parse(libvlc_media); libvlc_media_player := libvlc_media_player_new_from_media(libvlc_media); libvlc_media_release(libvlc_media); //************************* libvlc_video_set_format(libvlc_media_player,'RGBA',720,576,720*4); libvlc_video_set_callbacks(libvlc_media_player,@libvlc_video_lock,@libvlc_video_unlock,@libvlc_video_display,@VLCctx);