ImageEn Forum

Profile Join Active Topics Forum FAQ

All Forums

ImageEn Library for Delphi, C++ and .Net

ImageEn and IEvolution Support Forum

How to get Video Length/Frame nr via DShowParams?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View

UserName:

Password:

Format

Message

Emoji

Check here to include your profile signature.
Check here to subscribe to this topic.

T O P I C R E V I E W
DVi	Posted - May 07 2016 : 16:59:24 Hi, I'm trying to make a vide playing ability for my little program and trying some of components about it.. I found ImageEn via search engine and using as trial mode in Delphi XE8.. I need open a video file (mp4, avi or mpeg2 files) and standard video controls such as play, stop, pause, step forward, step backward, rewind... I had managed to load, play and stop file like: // Load video with Pic1.IO.DShowParams do begin if State = gsRunning then begin Stop; Disconnect; end; FileInput := LoadPic.FileName; TotalFrameCount := Pic1.IO.OpenMediaFile(LoadPic.FileName); EnableSampleGrabber := true; RenderAudio := true; Connect; Position := 0; Pause; // This shows first frame end; // Play video button (speedbutton) if Playing then Pic1.IO.DShowParams.Pause else Pic1.IO.DShowParams.Run; Playing := (Pic1.IO.DShowParams.State = gsRunning); // Step forward-backward by Frm variable(!!!) Pic1.IO.DShowParams.Position := Frm; The problem is: I couldn't get active Frame count and compare with TotalFrameCount.. I can take Pic1.IO.DShowParams.Position but i think it gives as miliseconds and Framecount is not suitable for comparing and forwarding that value.. So, I couldn't show/change the playing time value.. I checked Demos/Display/VideoPlayer but there's no any slider or any time display.. Other examples are using Camera input and not suitable for my video file example.. Could anyone help me how to get Total Length (time) and change active frame by a slider? A complete example would be great.. Thanks.. Dany Vitaes
6 L A T E S T R E P L I E S (Newest First)
DVi	Posted - May 17 2016 : 16:08:02 Thank you for your style, maybe other results I don't know but still lagging.. So I'd shown position only and won't use a trackbar :) Many thanks for your help.. Dany Vitaes
xequte	Posted - May 12 2016 : 00:43:55 Hi Dany When you set: TrackBar.Position := ImageEnView1.IO.DShowParams.Position; It will call the event TrackBarChange(); thereby setting the position. You need to have a private form variable to know if it is the user changing the trackbar, i.e. procedure Tfmain.Timer1Timer(Sender: TObject); begin fInternalChange := True; TrackBar.Position := ImageEnView1.IO.DShowParams.Position; Timer1.Enabled := True; fInternalChange := False; end; procedure Tfmain.TrackBarChange(Sender: TObject); begin if not fInternalChange then ImageEnView1.IO.DShowParams.Position := TrackBar.Position; end; Nigel Xequte Software www.xequte.com nigel@xequte.com
DVi	Posted - May 10 2016 : 13:57:03 Dear Nigel, I tried your example, it's great, but if I add a Trackbar to move position of video, playing is very poor! I attached my modified sources. I think my trackbar was the problem, but is there any way to use pointer to change video position? If there is no trackbar, playing is very nice.. I also try to put a Timer and check trackbar position, it is better than ImageEnView1DrawCanvas method but still laggy :( attach/DVi/2016510135159_VideoPlayer_with_TrackBar.zip 1696.17 KB I think I have to find different component or way to achieve this.. I'll add beginning and end surveys before & after the video and there are questions about that video. So, he/she should be replay video parts before the end survey. Dany Vitaes
xequte	Posted - May 09 2016 : 23:52:00 Hi Dany Ensure you do not set DShowParams.TimeFormat too frequently as it will cause lagging. Here is an updated demo... attach/xequte/201659235155_VideoPlayer.zip 3.41 KB Nigel Xequte Software www.xequte.com nigel@xequte.com
DVi	Posted - May 09 2016 : 17:01:06 Thank you very much for your Reply.. I tried Pic1.IO.DShowParams.TimeFormat := tfFrame; [/Code] and get current Frame and Total Frames with DShowParams.Position and .Duration values. But, if I try to show these values in 2 labels caption in the form, video playing is getting lagged and it is not playing well (starting to jump frames).. I think I made a mistake somewhere but I couldn't find it :( I also tried to put a Timer on the form and get DShowParams.Position value and write in a label.caption but video lag is still remains.. Is it possible to show me actual example which is used for playing a video and frames of current/total are being able to shown in the form? Dany Vitaes
xequte	Posted - May 08 2016 : 01:53:34 Hi You can set IO.DShowParams.TimeFormat to specify what values are used for time (such as frame). http://www.imageen.com/help/TIEDirectShow.TimeFormat.html Also, the total time is give by IO.DShowParams.Duration. See the TIEDirectShow documentation for other properties and methods such as Step: http://www.imageen.com/help/TIEDirectShow.html Nigel Xequte Software www.xequte.com nigel@xequte.com