home
products
contribute
download
documentation
forum
Home
Forums
New posts
Search forums
What's new
New posts
All posts
Latest activity
Members
Registered members
Current visitors
Donate
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Search titles only
By:
Menu
Log in
Register
Navigation
Install the app
Install
More options
Contact us
Close Menu
Forums
MediaPortal 1
MediaPortal 1 Talk
XBMC Python Script
Contact us
RSS
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
<blockquote data-quote="dubbeld" data-source="post: 399153" data-attributes="member: 40948"><p>This is what I got at the moment. It is working with the latest TVServer (updated the .dll files to the latest TVServer files, also updated the script (since it wasn't completely compatible with the latest dll files)).</p><p><a href="http://derek.denhaas.info/tv.rar" target="_blank">http://derek.denhaas.info/tv.rar</a></p><p></p><p>- Copy TVServer to plugin/video of XBMC</p><p>- Run the plugin/TVServerXBMC.exe on the PC where the MP TV-Server is running.</p><p>- Disable the XBMCTVControl in your TVServer and reboot your PC!</p><p></p><p>It's working here... </p><p></p><p>If you will see all Live-TV and the channel listing, but XBMC is not able to stream this channel, then you have to use an earlier build... Found out that not all builds are working (like santa.clause told). <a href="http://ocs.nl/xbmc/" target="_blank">Index of /xbmc</a> the mt version is working for sure. Other builds are working succesfully on Win XP, but not on Vista.</p><p></p><p>I'll hope to have some spare time in the next 2 weeks to extend the functionality of this script, but I am not familiar with the XBMC functions (to create interfaces) besides the folder view (which the script is currently working with).</p><p></p><p>Btw... to show recordings must not be that hard...</p><p>[code]</p><p>Recording.ListAll</p><p></p><p>'or</p><p></p><p>Return Schedule.ListAll</p><p></p><p>[/code]</p><p></p><p>and to record/delete a program: (was already trying that <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite2" alt=";)" title="Wink ;)" loading="lazy" data-shortname=";)" />)</p><p>[code]</p><p> Public Shared Function RecordProgramById(ByVal programid As Integer, ByVal rectype As Integer) As Boolean</p><p></p><p> Try</p><p></p><p> Dim layer As New TvBusinessLayer</p><p> Dim program As Program = program.Retrieve(programid)</p><p> Dim newSchedule As Schedule = New Schedule(program.IdChannel, program.Title, program.StartTime, program.EndTime)</p><p> newSchedule.ScheduleType = rectype</p><p> newSchedule.PreRecordInterval = Int32.Parse(layer.GetSetting("preRecordInterval", "5").Value)</p><p> newSchedule.PostRecordInterval = Int32.Parse(layer.GetSetting("postRecordInterval", "5").Value)</p><p> newSchedule.Quality = 73</p><p> newSchedule.MaxAirings = 2147483647</p><p> newSchedule.Persist()</p><p> RemoteControl.Instance.OnNewSchedule()</p><p> Return True</p><p> Catch ex As Exception</p><p> Return False</p><p> End Try</p><p></p><p> End Function</p><p> Public Shared Function DeleteRecordingById(ByVal recordingid As Integer) As Boolean</p><p></p><p> Try</p><p> Dim layer As New TvBusinessLayer</p><p> Dim recording As Recording = recording.Retrieve(recordingid)</p><p> Dim recFile As String = recording.FileName</p><p></p><p> If File.Exists(xmlFile) Then</p><p> File.Delete(xmlFile)</p><p> End If</p><p></p><p> recording.Delete()</p><p></p><p> Return True</p><p> Catch ex As Exception</p><p> Return False</p><p> End Try</p><p></p><p> End Function</p><p>[/code]</p><p></p><p>if you need any help, just let me know... (btw maybe nice to share the code... else we both create the same... got my own SVN server, so could host this project there if you like).</p></blockquote><p></p>
[QUOTE="dubbeld, post: 399153, member: 40948"] This is what I got at the moment. It is working with the latest TVServer (updated the .dll files to the latest TVServer files, also updated the script (since it wasn't completely compatible with the latest dll files)). [url]http://derek.denhaas.info/tv.rar[/url] - Copy TVServer to plugin/video of XBMC - Run the plugin/TVServerXBMC.exe on the PC where the MP TV-Server is running. - Disable the XBMCTVControl in your TVServer and reboot your PC! It's working here... If you will see all Live-TV and the channel listing, but XBMC is not able to stream this channel, then you have to use an earlier build... Found out that not all builds are working (like santa.clause told). [url=http://ocs.nl/xbmc/]Index of /xbmc[/url] the mt version is working for sure. Other builds are working succesfully on Win XP, but not on Vista. I'll hope to have some spare time in the next 2 weeks to extend the functionality of this script, but I am not familiar with the XBMC functions (to create interfaces) besides the folder view (which the script is currently working with). Btw... to show recordings must not be that hard... [code] Recording.ListAll 'or Return Schedule.ListAll [/code] and to record/delete a program: (was already trying that ;)) [code] Public Shared Function RecordProgramById(ByVal programid As Integer, ByVal rectype As Integer) As Boolean Try Dim layer As New TvBusinessLayer Dim program As Program = program.Retrieve(programid) Dim newSchedule As Schedule = New Schedule(program.IdChannel, program.Title, program.StartTime, program.EndTime) newSchedule.ScheduleType = rectype newSchedule.PreRecordInterval = Int32.Parse(layer.GetSetting("preRecordInterval", "5").Value) newSchedule.PostRecordInterval = Int32.Parse(layer.GetSetting("postRecordInterval", "5").Value) newSchedule.Quality = 73 newSchedule.MaxAirings = 2147483647 newSchedule.Persist() RemoteControl.Instance.OnNewSchedule() Return True Catch ex As Exception Return False End Try End Function Public Shared Function DeleteRecordingById(ByVal recordingid As Integer) As Boolean Try Dim layer As New TvBusinessLayer Dim recording As Recording = recording.Retrieve(recordingid) Dim recFile As String = recording.FileName If File.Exists(xmlFile) Then File.Delete(xmlFile) End If recording.Delete() Return True Catch ex As Exception Return False End Try End Function [/code] if you need any help, just let me know... (btw maybe nice to share the code... else we both create the same... got my own SVN server, so could host this project there if you like). [/QUOTE]
Insert quotes…
Verification
Post reply
Forums
MediaPortal 1
MediaPortal 1 Talk
XBMC Python Script
Contact us
RSS
Top
Bottom