|
Post by vagos2108 on Mar 16, 2012 19:09:13 GMT 1
Dear Friends,
Here you can find my program. - VMedia Player v1.2 - It's a player which plays the most known files (video/audio)...
If you find any bug please tell me about it.
Enjoy!!
With kind regards, vagos2108
|
|
|
Post by vagos2108 on Mar 17, 2012 14:11:53 GMT 1
Dear Friends, I have some problems with File Name in version VMedia Player v1.2 I believe that I fix it with the latest version VMedia Player v1.2.1 If you find any bug please tell me about it. Enjoy... With regards, vagos2108 Attachments:
|
|
|
Post by Pjot on Mar 17, 2012 22:31:31 GMT 1
Very impressive!
Thanks, Peter
|
|
|
Post by fragadelic on Mar 18, 2012 5:24:05 GMT 1
Great job with this little app.
|
|
|
Post by vovchik on Mar 18, 2012 8:28:58 GMT 1
Dear vagos2108, It works really nicely. Congratulations. I know you are still working on it, so permit me to put it three little requests: (a) a little slider for volume control just for convenience. (b) a text file or two containing the names and MRLs of the TV and radio stations, so users can modify the playlist. (c) a "pause" button, so that users can restart where they left off watching. With those three things added, VMedia Player just might become my favourite media app. Again, very nice work. Thanks. With kind regards, vovchik
|
|
|
Post by vovchik on Mar 19, 2012 10:22:50 GMT 1
Dear vagos2108, I got another idea about radio. For mplayer to play .m3u and .pls audio streams, it needs the -playlist option before the URL. The parsing routine would have to be changed a little bit, but it would be a nice feature. If you don't want to do that now, I can post a little revision. The reason I am insterested is that I have about a thousand working URLs for stations that use m3u and pls for their streams, and VMedia would be able to play all of them. With kind regards, vovchik PS. This little mod will give a proper time display on both sides of the progress bar (just padding with "0"): ' ------------------ SUB find_clock() ' ------------------ LOCAL hour,min,min_temp,sec TYPE int LOCAL hour$, min$, sec$ 'full time hour = ABS(VAL(full_ti_s_progress)/3600) min_temp = MOD(VAL(full_ti_s_progress), 3600) min = ABS(min_temp/60) sec = MOD(min_temp,60) hour$ = RIGHT$(CONCAT$("0", STR$(hour)), 2) min$ = RIGHT$(CONCAT$("0", STR$(min)), 2) sec$ = RIGHT$(CONCAT$("0", STR$(sec)), 2) ' TEXT(full_time_clock, CONCAT$(STR$(hour), ":", STR$(min), ":", STR$(sec))) TEXT(full_time_clock, CONCAT$(hour$, ":", min$, ":", sec$)) 'current time hour = ABS(VAL(cur_ti_s_progress)/3600) min_temp = MOD(VAL(cur_ti_s_progress), 3600) min = ABS(min_temp/60) sec = MOD(min_temp,60) hour$ = RIGHT$(CONCAT$("0", STR$(hour)), 2) min$ = RIGHT$(CONCAT$("0", STR$(min)), 2) sec$ = RIGHT$(CONCAT$("0", STR$(sec)), 2) ' TEXT(cur_time_clock, CONCAT$(STR$(hour), ":", STR$(min), ":", STR$(sec))) TEXT(full_time_clock, CONCAT$(hour$, ":", min$, ":", sec$)) END SUB PPS. This is a quick fix mod (no real checking) needed to handle *.m3u and *.pls radio URLs (last lines of sub). It will play this URL for instance: www.tuba.fm/stream.pls?radio=34&mp3=1:' ------------------ SUB button_play_clicked() ' ------------------ LOCAL full_ti TYPE STRING SELECT GRAB$(encoding_entries) CASE "Universal (UTF-8)" sub_encoding$ = "UTF-8" CASE "Western European (Latin-9)" sub_encoding$ = "Latin-9" CASE "Western European (Windows-1252)" sub_encoding$ = "Windows-1252" CASE "Eastern European (Latin-2)" sub_encoding$ = "Latin-2" CASE "Eastern European (Windows-1250)" sub_encoding$ = "Windows-1250" CASE "Greek (iso-8859-7)" sub_encoding$ = "iso-8859-7" CASE "Greek (Windows-1253)" sub_encoding$ = "Windows-1253" DEFAULT sub_encoding$="UTF-8" END SELECT SELECT GRAB$(font_size_entries) CASE "1 - small" fsize_select$ = "1" CASE "2" fsize_select$ = "2" CASE "3 - medium" fsize_select$ = "3" CASE "4" fsize_select$ = "4" CASE "5 - big" fsize_select$ = "5" DEFAULT fsize_select$ = "3" END SELECT IF GET(file_radio) = 1 THEN IF FILEEXISTS(GRAB$(fname_text)) THEN get_string_full_time runvte("mplayer", "-aspect", GRAB$(aspect_ratio_combo), \ "-subcp", sub_encoding$, "-subfont-text-scale", \ fsize_select$, GRAB$(fname_text)) DISABLE(button_play) ENABLE(button_stop) ELSE SHOW(msgbox2) CALLBACK(msgbox2, msgbox2_ok) END IF END IF IF GET(dvd_radio) = 1 THEN get_string_full_time runvte("mplayer", CONCAT$("dvd://", STR$(GET(ftitles_text))), \ "-aspect",GRAB$(aspect_ratio_combo)) DISABLE(button_play) ENABLE(button_stop) END IF IF GET(vcd_radio) = 1 THEN get_string_full_time runvte("mplayer", CONCAT$("vcd://", STR$(GET(ftitles_text))), \ "-aspect",GRAB$(aspect_ratio_combo)) DISABLE(button_play) ENABLE(button_stop) END IF IF GET(url_radio)=1 THEN IF INSTR(GRAB$(furl_text), ".m3u") OR INSTR(GRAB$(furl_text), ".pls") THEN runvte("mplayer", "-playlist", GRAB$(furl_text), "-aspect", GRAB$(aspect_ratio_combo)) ELSE runvte("mplayer", GRAB$(furl_text), "-aspect", GRAB$(aspect_ratio_combo)) END IF DISABLE(button_play) ENABLE(button_stop) END IF END SUB
|
|
|
Post by vovchik on Mar 19, 2012 16:30:08 GMT 1
Dear vagos2108,
I made a few changes and don't know whether you will like them, but I think most are useful to me. I adjusted the frames a bit and other widgets for size, added a throbber to show that mplayer is active, added a slider to adjust volume, implemented the .m3u/.pls URL routine and fixed up the MSGDIALOGs so that they do not create extra taskbar entries. What is left, in my estimation, is adding a little file read and parse of a text file to put the URLs into an array so the URLs are not hardcoded in the source and the possibility to put the entire application into the system tray (easy). I will try to do that this evening, unless you want to. I think your player is really nice and immediately useful.
With kind regards, vovchik
|
|
|
Post by vovchik on Mar 19, 2012 16:33:41 GMT 1
I had some difficulty posting the attachment. I am trying again.... Attachments:
|
|
|
Post by vovchik on Mar 19, 2012 19:07:02 GMT 1
Dear vagos2108, I just added the URL lists, and the combo box content is now generated by reading files. Seems to work nicely. With kind regards, vovchik Attachments:
|
|
|
Post by vovchik on Mar 19, 2012 21:20:08 GMT 1
Dear vagos2108,
I think we still need a button that gives track info. In the case of music files, the bitrate etc., with films, the codec and with music streams the info (where available) about the track. I already wrote those routines for another project, so it only a matter of putting a "track info" button at the bottom and calling that routine to display a window with the text.
With kind regards, vovchik
|
|
|
Post by vovchik on Mar 20, 2012 1:07:33 GMT 1
I made a few more mods - filling filter arrays via arrays and loops, adding titles to Mplayer windows, some error checking, and some fairly trivial changes. Too late now to do a "Track info" routine tonight. Perhaps tomorrow.... Attachments:
|
|
|
Post by vagos2108 on Mar 20, 2012 10:33:48 GMT 1
Dear Peter and fragadelic,
I appreciate your good words. These words gives me strength and courage to continue.
Thanks again
Dear vovchik,
You have done great wonderful job. Of course your (every) modifications are welcomed and will include in the next version. You make me happy for this mods. But I am very slow in reading because I am a new guy to bacon and you use a few commands which I never use it. I need to read the code from the beginning to understand your mods. So give me some time to read and learn the new (for me) commands.
With my regards vagos2108
|
|
|
Post by konaexpress on Mar 20, 2012 18:24:40 GMT 1
Any screen shots yet? ;D
|
|
|
Post by vovchik on Mar 20, 2012 20:41:30 GMT 1
Dear konaexpress, This is what it looks like so far. vagos2108 may have added a few nice things already. With kind regards, vovchik Attachments:
|
|
|
Post by vovchik on Mar 20, 2012 21:05:27 GMT 1
Dear vagos2108, Here is my latest, which now uses some external routines for splash and for getting stream info. Later these could be put into the BaCon binary. So far, they work, but it would be nicer if they wree inside the main program. With kind regards, vovchik Attachments:
|
|