TCP Client Server: File Transfer über Lan fehlerhaft

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von CrackDash.NET.

    TCP Client Server: File Transfer über Lan fehlerhaft

    Hallo Gemeinde,

    nach langer Pause durch Krankheit und Stress kann ich endlich wieder an meinem Projekt weiterarbeiten. Nun hänge ich seit einigen Tagen an einem Problem. Ich habe auf Client und Serverseite jeweils eine Klasse geschrieben zum senden und empfangen von dateien... Das funktioniert suuuuuuuuper...LOKAL,.... sind client und server auf zwei pcs und und ich sende dann etwas, is die gesendete datei korrupt und kann nicht geöffnet werden.. ich hab alles mögliche versucht, aber ich komm einfach nicht drauf. ich poste mal die klassen:

    Server (empfangen):

    Quellcode

    1. Imports System.IO
    2. Imports System.Net
    3. Imports System.Net.Sockets
    4. Public Class DownloadFile
    5. Dim GetFile As String
    7. Public Event TransferBeginn()
    8. Public Event TransferFertig()
    9. Public Event TransferFail(ByVal message As String)
    11. Public Sub Beginn(ByVal Datei As String)
    12. Me.GetFile = Datei
    13. Dim t As New Threading.Thread(AddressOf ListenSub)
    14. t.IsBackground = True
    15. t.Start()
    16. End Sub
    18. Private Sub ListenSub()
    19. Dim server As New TcpListener(IPAddress.Any, 2121)
    20. server.Start()
    21. Dim c As TcpClient = server.AcceptTcpClient
    22. Try
    23. If c.Connected Then
    24. RaiseEvent TransferBeginn()
    25. Dim s As NetworkStream = c.GetStream
    27. FileOpen(1, GetFile, OpenMode.Binary)
    28. Dim buffer(1024 - 1) As Byte
    29. Do While True
    30. Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
    31. If bytesRead = 0 Then Exit Do
    32. FilePut(1, buffer)
    33. Loop
    34. FileClose(1)
    36. s.Close()
    37. c.Close()
    38. server.Stop()
    39. RaiseEvent TransferFertig()
    40. End If
    41. Catch ex As Exception
    42. server.Stop()
    43. RaiseEvent TransferFail(ex.Message)
    44. End Try
    45. End Sub
    46. End Class


    Und hier der Client der sendet:

    Quellcode

    1. Imports System.IO
    2. Imports System.Net
    3. Imports System.Net.Sockets
    4. Public Class UploadFile
    5. Dim SendFile As String
    7. Public Sub Beginn(ByVal Datei As String)
    8. Me.SendFile = Datei
    9. Dim sendThread As New System.Threading.Thread(AddressOf SendSub)
    10. sendThread.IsBackground = True
    11. sendThread.Start()
    12. End Sub
    14. Private Sub SendSub()
    15. Dim cli As New TcpClient
    16. Try
    17. cli.Connect("192.168.2.118", 2121)
    18. Dim nstm As Stream = cli.GetStream()
    19. Dim fstm As Stream = New FileStream(SendFile, FileMode.Open, FileAccess.Read)
    21. Dim buffer(1024 - 1) As Byte
    22. Do While True
    23. Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
    24. If bytesRead = 0 Then Exit Do
    25. nstm.Write(buffer, 0, bytesRead)
    26. nstm.Flush()
    27. Loop
    29. cli.Close()
    30. nstm.Close()
    31. fstm.Close()
    32. Catch ex As Exception
    33. End Try
    34. End Sub
    35. End Class


    Entweder hab ich einfach ne Blockade und seh die kleinigkeit nicht oder es ist wirklich was größeres schief gelaufen :D

    lg Litti

    Hey,

    VB.NET-Quellcode

    1. Private Sub ListenSub()
    2. Dim server As New TcpListener(IPAddress.Any, 2121)
    3. server.Start()
    4. Dim c As TcpClient = server.AcceptTcpClient
    5. Try
    6. If c.Connected Then
    7. RaiseEvent TransferBeginn()
    8. Dim s As NetworkStream = c.GetStream
    9. Dim fS As New FileStream(GetFile, FileMode.OpenOrCreate, FileAccess.ReadWrite)
    10. Dim buffer(1024 - 1) As Byte
    12. Do While True
    13. Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
    14. If bytesRead = 0 Then Exit Do
    16. fS.Write(buffer, 0, bytesRead)
    17. Loop
    19. fS.Close()
    20. s.Close()
    21. c.Close()
    22. server.Stop()
    23. RaiseEvent TransferFertig()
    24. End If
    25. Catch ex As Exception
    26. server.Stop()
    27. RaiseEvent TransferFail(ex.Message)
    28. End Try
    29. End Sub
    30. End Class


    Mir ist irgendwie schleierhaft, warum Du beim Client nen FileStream nutzt und beim Server eine uralt FileOpen-Methode...? Vergleiche jetzt mal meinen Teil, den ich Dir gepostet habe mit Deinem Teil. Ich hoffe, den Fehler siehst Du selber?

    Ferner, ein Client sendet den Dateinamen schon mit, findest nicht? Was ist das denn, dass ich den Dateinamen selber bestimmen musss? Ich hoffe mal, dass Du das noch ausbesserst? Dann stehst Du nämlich schon vor der nächsten kleine Hürde. Dann brauchste ein kleines Protokoll, an das sich beide halten müssen. Erst Dateiname, dann ein OK, dass die Übertragung beginnen kann usw.... Aber, Du hast das Ganze ja schon mal gar nicht schlecht gemacht.

    Hau rein!
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    hi, ich habe selber versucht den codeteil von litti übernommen nur habe ich probleme es anzupassen, denn eine verbindung besteht bereits zum Server/client


    VB.NET-Quellcode

    1. ...
    2. Private Sub ListenSub()
    3. Dim server As New TcpListener(IPAddress.Any, 2121) ' <--- ???
    4. server.Start()
    5. Dim c As TcpClient = server.AcceptTcpClient
    6. Try
    7. If c.Connected Then
    8. RaiseEvent TransferBeginn()
    9. ...

    wie konnte ich das so umschreiben das er die bestehende verbindung nutzt?

    wahrscheinlich werdet ihr mich nach meinem code fragen, also fragt was ihr braucht :P

    Gruß