Reply to thread

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)).

http://derek.denhaas.info/tv.rar

- 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). Index of /xbmc 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).