UDP Datei empfangen/senden Problem!

  • VB.NET

    UDP Datei empfangen/senden Problem!

    Hey,

    ich habe mich mal an Malischh TuT Seite geworfen. Und wollte mal kurz testen wie das mit dem UDP Receive und dem UDP Send File funktioniert.

    Ich benutze diese Beiden Codes

    UDP Receive:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Imports System.IO
    4. Imports System.Net
    6. Public Class Tester
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. Call empf()
    9. End Sub
    10. Private Sub empf()
    11. Try
    12. Dim bteDataAccept() As Byte
    13. Dim strdataAccept As String = ""
    14. Dim myEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 12345)
    15. Dim myByte(36000) As Byte
    17. Dim myUdpClient As UdpClient = New UdpClient(12345)
    18. myByte = myUdpClient.Receive(Nothing)
    20. Dim myFileStream As FileStream = New FileStream("Alles.txt", FileMode.Create, FileAccess.Write)
    21. myFileStream.Write(myByte, 0, myByte.Length)
    23. myFileStream.Close()
    24. myUdpClient.Close()
    25. MsgBox("empfangen")
    26. Catch
    27. End Try
    28. End Sub
    29. End Class


    Hier der Link zum Receive Tutorial: Hier klicken!

    UDP Send File:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Imports System.IO
    4. Public Class Tester
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Try
    7. Dim dataSend() As Byte
    9. Dim myUdpClient As UdpClient = New UdpClient("127.0.0.1", 12345)
    10. Dim myFilestream As FileStream
    11. myFilestream = New FileStream("Alles.txt", FileMode.Open, FileAccess.Read)
    12. ReDim dataSend(myFilestream.Length)
    13. myFilestream.Read(dataSend, 0, myFilestream.Length)
    14. myUdpClient.Send(dataSend, dataSend.Length)
    15. myFilestream.Close()
    16. myUdpClient.Close()
    17. MsgBox("gesendet")
    18. Catch
    19. End Try
    20. End Sub
    22. End Class


    Hier der Link zum Send File Tutorial: Hier klicken!

    Ich finde die Tutorials bzw. die Seite hamma spitzen fett geil ^^
    Kann mir bitte einer sagen was ich falsch mache? Denn der Receive hängt sich auf + erhält keine Datei... ;(

    Gruß
    Dennis