StreamPlay

    • Beta
    • Open Source

    Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von xd-franky-5.

      StreamPlay

      Name:
      StreamPlay

      Beschreibung:
      StreamPlay besteht aus zwei Teilen. Ein Teil liegt auf dem Computer und der andere als App auf dem Anroid-Gerät. Mit AirPlay ist es möglich, auf dem Computer gespeicherte Musik auf dem Smartphone abzuspielen und zu speichern.

      Screenshot(s):

      Computer:




      Smartphone:




      Source Code:
      Damit jeder den Code zu verwenden kann, wie er will und der gesamte Code etwas unübersichtlich wäre, kommt hier jetzt nur der erwähnenswerte Teil:

      PC:

      Hier die Klasse für den TCP-Server, der auf die Vorlage von diesem hier beruht: Multiserver (TCP)
      TCP-Server

      VB.NET-Quellcode

      1. Imports System.Net.Sockets
      2. Imports System.IO
      3. Imports System.Net
      5. Public Class TCPServer
      6. Private server As TcpListener
      7. Private client As New TcpClient
      8. Private ipendpoint As IPEndPoint
      9. Private list As New List(Of Connection)
      10. Private Structure Connection
      11. Dim stream As NetworkStream
      12. Dim streamw As StreamWriter
      13. Dim streamr As StreamReader
      14. Dim nick As String
      15. End Structure
      17. Dim _caller As Form
      19. Event ClientConnected(Name As String)
      20. Event ClientDisconnected(Name As String)
      21. Event MessageRecieved(Text As String)
      23. Public Sub New(caller As Form, port As Integer)
      24. ipendpoint = New IPEndPoint(IPAddress.Any, port)
      25. _caller = caller
      26. End Sub
      28. Private Delegate Sub DAddItem(ByVal s As String)
      29. Private Delegate Sub DDelItem(ByVal s As String)
      30. Private Delegate Sub DNewMsg(ByVal t As String)
      31. Private Sub AddItem(ByVal s As String)
      32. RaiseEvent ClientConnected(s)
      33. End Sub
      34. Private Sub DelItem(ByVal s As String)
      35. RaiseEvent ClientDisconnected(s)
      36. End Sub
      37. Private Sub NewMsg(t As String)
      38. RaiseEvent MessageRecieved(t)
      39. End Sub
      41. Public Sub SendFile(ByVal Path As String)
      42. Try
      43. For Each c As Connection In list
      44. Dim fstm As Stream = New FileStream(Path, FileMode.Open, FileAccess.Read)
      45. Dim buffer(1023) As Byte
      46. Do
      47. Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
      48. If bytesRead = 0 Then Exit Do
      49. c.stream.Write(buffer, 0, bytesRead)
      50. c.stream.Flush()
      51. Loop
      52. fstm.Close()
      53. Next
      54. Catch ex As Exception
      55. End Try
      56. End Sub
      58. Public Sub SendText(ByVal Text As String)
      59. Try
      60. For Each c As Connection In list
      61. c.streamw.WriteLine(Text)
      62. c.streamw.Flush()
      63. Next
      64. Catch ex As Exception
      65. End Try
      66. End Sub
      68. Private Sub Starter()
      69. server = New TcpListener(ipendpoint)
      70. server.Start()
      71. While True
      72. client = server.AcceptTcpClient
      73. Dim c As New Connection
      74. c.stream = client.GetStream
      75. c.streamr = New StreamReader(c.stream)
      76. c.streamw = New StreamWriter(c.stream)
      77. c.nick = c.streamr.ReadLine
      78. If Not c.nick = "" Then
      79. list.Add(c)
      80. _caller.Invoke(New DAddItem(AddressOf AddItem), c.nick)
      81. Dim t As New Threading.Thread(AddressOf ListenToConnection) With {.IsBackground = True}
      82. t.Start(c)
      83. End If
      84. End While
      85. End Sub
      87. Public ReadOnly Property Clients As List(Of String)
      88. Get
      89. Dim names As New List(Of String)
      90. For Each c As Connection In list
      91. names.Add(c.nick)
      92. Next
      93. Return names
      94. End Get
      95. End Property
      97. Public Sub Start()
      98. Dim t As New Threading.Thread(AddressOf Starter) With {.IsBackground = True}
      99. t.Start()
      100. End Sub
      102. Private Sub ListenToConnection(ByVal con As Connection)
      103. Do
      104. Try
      105. Dim tmp As String = con.streamr.ReadLine
      106. If Not String.IsNullOrEmpty(tmp) Then
      107. _caller.Invoke(New DNewMsg(AddressOf NewMsg), tmp)
      108. Else
      109. _caller.Invoke(New DDelItem(AddressOf DelItem), con.nick)
      110. list.Remove(con)
      111. Exit Do
      112. End If
      113. Catch ex As Exception
      115. End Try
      116. Loop
      117. End Sub
      118. End Class



      Der Server wird dann so gestartet und eine liste der Titel erstellt:

      Server starten

      VB.NET-Quellcode

      1. WithEvents TcpServer As New TCPServer(Me, My.Settings.Port)
      3. For Each file In System.IO.Directory.GetFiles(My.Settings.Path)
      4. Dim fileinfo As New FileInfo(file)
      5. If Not fileinfo.Attributes.ToString.Contains("Hidden") And Not fileinfo.Attributes.ToString.Contains("System") Then
      6. If file.EndsWith(".mp3") Then
      7. tcpfiles.Add("song:" & System.IO.Path.GetFileNameWithoutExtension(file) & "*" & System.IO.File.ReadAllBytes(file).Length)
      8. End If
      9. End If
      10. Next
      12. TcpServer.Start()



      Wenn das Smartphone connected, sendet das Programm eine Liste aller Titel
      Verbinden

      VB.NET-Quellcode

      1. Public Sub Client_Connected(Name As String) Handles TcpServer.ClientConnected
      2. Dim t As New Threading.Thread(AddressOf sendlist) With {.IsBackground = True}
      3. t.Start()
      4. DevicesList.Items.Add(Name)
      5. End Sub
      7. Public Sub sendlist()
      8. For Each File In tcpfiles
      9. TcpServer.SendText(File)
      10. Threading.Thread.Sleep(10)
      11. Next
      12. End Sub



      Smartphone:
      Wenn sich das Handy verbindet, sendet der TCP Server eine Liste aller Dateien.
      So sieht die Verbindung mittels eines TCP-Clients bei B4A aus:
      TCP-Client

      VB.NET-Quellcode

      1. Sub Process_Globals
      2. Dim AStreams As AsyncStreams
      3. Dim Socket1 As Socket
      4. End Sub
      6. Sub Activity_Create(FirstTime As Boolean)
      7. Socket1.Initialize("Socket1")
      8. Socket1.Connect(ip,port,1000)
      9. End Sub
      11. Sub Socket1_Connected(Successful As Boolean)
      12. If Successful = True Then
      13. AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams")
      14. Dim p As Phone
      15. Dim name As String
      16. name = p.Model & CRLF
      17. Dim buffer() As Byte
      18. buffer=name.GetBytes("UTF8")
      19. AStreams.Write(buffer)
      20. Else
      21. Activity.Finish
      22. StartActivity(Retry)
      23. Socket1.Close
      24. End If
      25. End Sub



      Hier können nun Musik-Titel, Kommandos und Dateien empfangen werden:
      Zu beachten: Die Titel werden samt Bytelength gesendet, damit man nachher weiß, wann die Datei fertig angekommen ist
      Bytes empfangen

      VB.NET-Quellcode

      1. Sub AStreams_NewData (Buffer() As Byte)
      2. Dim msg As String
      3. msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
      4. Dim text As String = msg.SubString2(0, msg.Length-2)
      6. If text.StartsWith("song:") Then
      7. 'Titel in die Liste
      8. Else if text.StartsWith("pause:") Then
      9. 'pause
      10. Else 'Also wenn es kein Kommando gibt, dann sind es die Bytes einer Datei
      11. Dim out As OutputStream
      12. out = File.OpenOutput(File.DirRootExternal, "StreamPlay/Data/" & SongsLv.GetItem(selsong) & ".mp3", True) 'das true bedeutet, dass die neuen Bytes an die vorherigen Bytes an die Datei hinten hin geschrieben werden, bis sie ganz ist(die Dateigröße mit der vorher gesendeten Length übereinstimmt)
      13. out.WriteBytes(Buffer, 0, Buffer.length)
      14. out.Close
      16. If File.Size(File.DirRootExternal, "Test.mp3") = songlength Then
      17. 'Datei fertig geladen
      18. End If
      19. End If
      20. End Sub



      Das waren nun so die grundlegenden Sachen mit denen ihr nun so weiterarbeiten könnt, wie ihr wollt. Viel Spaß :)

      ToDo:
      -Delay entfernen
      -Pause ✓
      -Design ändern ✓
      -Umbenennen ✓
      -Ohne HTTP-Server ✓
      -Code vereinfacht und verschönert ✓

      Verwendete Programmiersprache(n) und IDE(s):
      Visual Basic .NET / IDE VB 2013 Comunity / Basic 4 Android

      Systemanforderungen:
      Framework 4.0

      Download(s):
      Programm: StreamPlay.rar ~143 kb
      App: StreamPlay App.rar ~305 kb

      Lizenz/Weitergabe:
      Freeware, OpenSource

      Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „xd-franky-5“ ()

      Ich finde die Lösung mit dem Http Server lustig und zu gleich auch wtf... Könntest du nicht versuchen mit Vincent zusammen zu arbeiten? Er hat einen existierenden guten Player und du die Extension dafür.

      Wenn du die gesendeten Daten in deinem bytearray reversed wär dein little E und big E Problem gelöst.

      Lustiger weise war dieses Programm für Vincent gedacht, er meinte bei der nächsten Version von Hurricane könnte er es einbauen. Das dauert aber noch ein bisschen, deshalb hab' ichs einfach mal hier schon präsentiert, um es bis dahin noch zu verbessern.

      Ich will auch mal meinen Senf dazu geben: Also auf jeden Fall mal ein interessanter Ansatz. Scheinst das gut umgesetzt zu haben :D Leider konnte ich das nicht richtig testen, da das abspielen irgendwie nicht funktionierte, da ich immer disconnects bekam. Aber schön, dass du deine Arbeit allen zur Verfügung stellst :)

      LG

      P.S.: Warum wird in dem Programm eigentlich eine andere IP-Adresse angezeigt als die, mit der mein PC mitm Router verbunden is? Im Programm steht 192.168.56.1 und eig isses .2.108 :huh:

      @ThuCommix Es geht nicht nur um Little und Big Endian sondern auch um eine komische Präfix, da muss man ganz verrückte Dinge machen. Zumindest gibt es nich keine Lösung zum Senden und Empfangen von Dateien bei B4A im Internet.

      @ChOoSeMyNaMe
      Danke :) Wie disconnects ? Erkläre das bitte genauer. Das mit der IP ist mir auch noch ein Rätsel bei mir kommt manchmal die richtige und manchmal auch etwas anderes. Mal schauen, wie ich das löse :)

      Keine Ahnung wie dein TCP Code aussah, aber irgendwas hast du falsch gemacht. Eine TCP kommunikation von C# und Android ist kein Hexenwerk. Wenn du einen anderen Endian hast und in einen String umwandelst bekommste natütlich merkwürdige prefixe.

      xd-franky-5 schrieb:

      Erkläre das bitte genauer.

      Also ich starte des Programm, dann die App und connecte dann. Dann wird die Verbindung hergestellt und ich seh sowohl in der App als auch im Programm die beiden Geräte. Wenn ich dann versuche was abzuspielen, dann kommt in der App "Connection failed!". Wenn man dann auf Retry drückt wird die Verbindung erneut hergestellt allerdings sieht man nur in der App beide Geräte und das Programm hängt sich auf.

      LG

      @ThuCommix
      Wenn du mir einen Link findest, mit einer Vorlage findest, dann her damit. Das war halt so, als ich einen Base64 string gesendet habe, kamen beim Android nur viele kleine Stückchen an. Und von Android zu PC muss es ja nicht einmal gehen.

      @ChOoSeMyNaMe Hast du den Port freigeschalten, die richtige IP und Port angegeben ? Bei mit klappt es.

      Weil es mit Sockets und dem "normalem" Senden von Dateien erst recht nicht funktioniert hat und ich nicht mal wusste warum.

      EDIT: Es war doch so: Mit dem Base64 string kamen nur Stückchen an und mit dem normalen Senden war das Problem, das die Datei nicht die richtige Prefix hatte.

      LOL. Ich Habe bestimmte ne Woche daran herumgewurstelt und im Internet wusste auch keiner so richtig damit umzugehen (habe sogar einen Thread beim Entwickler gemacht und der Entwickler konnte mir sogar nicht helfen) und jetzt habe ich es in 5 Minuten geschafft :) Ohne Prefix (habe den Prefix-Mode einfach gar nicht erst angeschalten). Big/Little Endian-Problem war aufeinmal auch nicht mehr da. Ich habe einfach die Datei so gesendet:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Sub SendFile(ByVal Path As String)
      2. Try
      3. For Each c As Connection In list
      4. Dim nstm As Stream = c.stream
      5. Dim fstm As Stream = New FileStream(Path, FileMode.Open, FileAccess.Read)
      6. Dim buffer(1024 - 1) As Byte
      7. Do While True
      8. Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
      9. If bytesRead = 0 Then Exit Do
      10. nstm.Write(buffer, 0, bytesRead)
      11. nstm.Flush()
      12. Loop
      13. nstm.Close()
      14. fstm.Close()
      15. Next
      16. Catch ex As Exception
      17. End Try
      18. End Sub


      Und beim Empfangen es so eingestellt, dass es die Bytes bei der Datei hinten dran schreibt. Vielleicht mach ich es noch so, dass es die Bytes in einem Array speichert und dann zum Schluss erst niederschreibt, mal sehen :)

      EDIT: Werde dann beim nächsten Update den HTTP-Server rausnehmen.
      EDIT2: Ich weiß garnicht warum das noch keinem aufgefallen ist (mir ist es auch erst jetzt aufgefallen) überall in der App steht "Hurricane" weil es ja eigentlich dafür war :D

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „xd-franky-5“ ()

      Mal abgesehen davon, dass es Präfix heißt (sry musste sein),

      finde ich die Idee sowie die Umsetzung super. Habe mir den Code nicht näher angesehen, aber ich freue mich schon auf die Implementierung in Hurricane !
      »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

      @ThePlexian
      Bei B4A heißt es Prefix, auf deutsch Präfix. Ich denke bei sowas sollte man den englischen Ausdruck verwenden :)
      Danke, hab' es jetzt aber anders umgesetzt, das Update ohne HTTP-Server kommt nachher.

      Ich wollte es ja umbenennen, habt ihr mir einen passenden Namen ?

      @ChOoSeMyNaMe
      Btw. diese Box unten links mit "Computer" und "[Gerätename]" bedeutet nicht nur mit was man verbunden ist, hauptsächlich ist das zum auswählen der Soundausgabe gedacht. Also ob der Sound am Computer oder Smartphone raus kommen soll.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xd-franky-5“ ()

      Update

      Habe nun folgendes erledigt:
      -Pause
      -Design ändern
      -Umbenennen
      -Ohne HTTP-Server
      -Code vereinfacht und verschönert

      Programm: StreamPlay.rar ~305 kb
      App: StreamPlay App.rar ~143 kb

      Habt ihr noch Verbesserungswünsche ? :thumbsup:

    Facebook
    Telefonspende