Technobase.fm modpic auslesen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von X-Zat.

    Technobase.fm modpic auslesen

    Hey ich wollte euch mal fragen wie ich denn von den DJ Das bild auslesen kann?

    mein code:

    VB.NET-Quellcode

    1. Imports System.IO ' Wegen StreamReader
    2. Imports System.Net ' Wegen WebRquest, WebResponse
    3. Imports System.Text.RegularExpressions ' Wegen RegEx
    4. Imports System.Text
    5. Public Class Form1
    7. Private Sub TechnoBase()
    8. 'Die Deklaration der Informationen
    9. Dim radioname, radiomoderator, radioshow, radiostyle, showstarttime, _
    10. showendtime, moderatorlink, titleartist, title, radiorelease, _
    11. radiolistener, radiourl, modpic As String
    13. 'Die XML downloaden
    14. Dim a As New WebClient
    15. a.DownloadFile(New Uri("http://tray.technobase.fm/radio.xml"), "radio.xml")
    16. a.Dispose()
    17. 'Das XML Document Laden
    18. Dim xml As XDocument = XDocument.Load("radio.xml")
    19. 'Den Namen des Radiosenders auslesen
    20. radioname = xml.<weareone>.<radio>(0).<name>.Value
    21. 'Den Moderator auslesen
    22. radiomoderator = xml.<weareone>.<radio>(0).<moderator>.Value
    23. 'Den Shownamen auslesen
    24. radioshow = xml.<weareone>.<radio>(0).<show>.Value
    25. 'Den Style auslesen
    26. radiostyle = xml.<weareone>.<radio>(0).<style>.Value
    27. 'Die Startzeit auslesen
    28. showstarttime = xml.<weareone>.<radio>(0).<starttime>.Value
    29. 'Die Endzet auslesen
    30. showendtime = xml.<weareone>.<radio>(0).<endtime>.Value
    31. 'Den Link zum Moderator auslesen
    32. moderatorlink = xml.<weareone>.<radio>(0).<link>.Value
    33. 'Den Artist auslesen
    34. titleartist = xml.<weareone>.<radio>(0).<artist>.Value
    35. 'Den Song auslesen
    36. title = xml.<weareone>.<radio>(0).<song>.Value
    37. 'Das Release auslesen
    38. radiorelease = xml.<weareone>.<radio>(0).<release>.Value
    39. 'Die Listener auslesen
    40. radiolistener = xml.<weareone>.<radio>(0).<listener>.Value
    41. 'Die Url auslesen
    42. radiourl = xml.<weareone>.<radio>(0).<url>.Value
    43. 'Das Moderator Bild Downloaden und anzeigen
    44. Dim b As New WebClient()
    45. b.DownloadFile(New Uri(xml.<weareone>.<radio>(0).<picture>.Value), My.Computer.FileSystem.SpecialDirectories.Temp & "\tmod.jpg")
    46. b.Dispose()
    47. modpic = My.Computer.FileSystem.SpecialDirectories.Temp & "\tmod.jpg"
    49. 'Informationen in ein Array packen, muss man eigentlich nicht aber ich finde es so besser
    50. Dim technobase(12) As String
    51. technobase(0) = radioname
    52. technobase(1) = radiomoderator
    53. technobase(2) = radioshow
    54. technobase(3) = radiostyle
    55. technobase(4) = showstarttime
    56. technobase(5) = showendtime
    57. technobase(6) = moderatorlink
    58. technobase(7) = titleartist
    59. technobase(8) = title
    60. technobase(9) = radiorelease
    61. technobase(10) = radiolistener
    62. technobase(11) = radiourl
    63. technobase(12) = modpic
    65. 'Informationen auslesen
    66. 'z.b. Label1.Text = "Jetzt auf TechnoBase.FM: " & technobase(7) & " - " & technobase(8)
    67. 'Dabei ist technobase(7) der Titleartist und technobase(8) der Title
    68. Label4.Text = "Zuhörer:" & " " & technobase(10)
    69. Label3.Text = "Mod Link:" & " " & technobase(6)
    70. Label1.Text = GetOnAir() & " " & "mit" & ": " & technobase(7) & " - " & technobase(8)
    71. 'Wenn man den Array weglassen würde so müsste man das so schreiben
    72. 'Label1.Text = "Jetzt auf TechnoBase.FM: " & titleartist & " - " & title
    73. End Sub


    Danke wenn ihr mir helfen könntet.. :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kevios12“ ()

    Erstmal: Warum benutzt du nicht direkt XML.load(URI)?
    Damit kannst du direkt online die XML auslesen (bzw. der String wird heruntergeladen und als XML verarbeitet)...

    Ansonsten: Du hast doch den Link zum Moderator - Warum nicht einfach per HTTP(Web?)Request die HTML ziehen und per RegEx den Bild-Link auslesen? Dann nur noch per WebClient das Bild via Bild-Link ziehen.

    Schließlich (optional): Kuchen backen.

    MfG,
    X-Zat / Momo

    Also, das ist der relevante Teil der XML (das hast du bereits erkannt):

    XML-Quellcode

    1. <radio>
    2. <name>TechnoBase</name>
    3. <moderator>Keenax</moderator>
    4. <show>Reversed Reality</show>
    5. <style>HandsUp</style>
    6. <starttime>20</starttime>
    7. <endtime>22</endtime>
    8. <link>http://www.TechnoBase.FM/member/245013</link>
    9. −
    10. <picture>
    11. http://profil.technobase.eu/profil_small245013-5-700919c9035223df98782346ed581a4d.jpg
    12. </picture>
    13. <artist>Darius & Finlay feat. Nicco</artist>
    14. <song>Till Morning</song>
    15. <release>http://www.TechnoBase.FM/release/9259</release>
    16. <listener>10793</listener>
    17. <url>http://www.TechnoBase.FM</url>
    18. </radio>


    Du hast auch schon in der Node "link" den Link zum Moderator ("http://www.TechnoBase.FM/member/245013").

    Nun downloade einfach den HTML-Text der Seite per WebClient:

    VB.NET-Quellcode

    1. Dim Pic As Bitmap = GetModeratorBitmap(link)
    3. Public Function GetModeratorBitmap(ByVal Link As String) As Bitmap
    4. Try
    5. Dim WebC As New System.Net.Webclient 'WebClient zum herunterladen aller benötigten Infos
    6. Dim Source As String = WebC.DownloadString(Link) 'HTML-Text der Seite herunterladen
    7. Dim Pattern As String = "<div\sid\=\""rc_profile_picture_bg"">.*<.*src\=\""(?<PicLink>.*)\"".*>.*<\/div>" 'Regex-Pattern festlegen
    8. Dim Match As System.Text.RegularExpressions.Math = System.Text.RegularExpressions.Regex.Match(Source, Pattern, IgnoreCase) 'Regex den Text nach Matches (Treffern) durchsuchen lassen
    9. Dim ReturnPic As Bitmap 'Bitmap, die zurückgegeben werden soll erstellen
    10. Dim PicStream As New System.IO.MemoryStream(WebC.DownloadData(Match.Groups("PicLink").Value)) 'Stream, der das Bild herunterlädt
    11. ReturnPic = Image.FromStream(PicStream) 'Inhalt des Streams an Bild übergeben
    12. Catch ex As Exception 'Ausnahme tritt auf
    13. MessageBox.Show("Es ist ein Fehler aufgetreten!")
    14. WebC.Dispose
    15. PicStream.Dispose 'Oder .Close?
    16. Return Nothing 'Nichts zurückgeben
    17. End Try
    18. WebC.Dispose
    19. PicStream.Dispose 'Oder .Close?
    20. Return ReturnPic 'Bild zurückgeben
    21. End Function


    Ich denke, das ist ausreichend kommentiert und sollte funktionieren. Das ist jetzt alles aus dem Kopf, keine Ahnung, ob es auch fehlerfrei ist :).

    MfG,
    X-Zat / Momo

Facebook
Telefonspende