There's nothing wrong with the video. You realize you have to parse the xml in your code to extract the StreamUrls, StreamFormat ("mp4" in this case), ContentType ("movie"), etc., right? You don't pass the xml to the video component. So your code should look something like:
videoscreen = CreateObject("roVideoScreen")
video.StreamUrls = ["http://myip/consequence.mp4"] <-- url(s) extracted from xml
video.StreamFormat = "mp4" <-- these two can be in the xml, or hard-coded
video.ContentType = "movie"