Daten senden Problem

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Daten senden Problem

    Hi,

    ich habe mir ein Daten senden/empfangen via TCP/IP projekt (das in C# war) heruntergeladen und in vb übersetzt.
    Nun kommt immer ein error, womit ich nix anfangen kann...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.ComponentModel
    3. Imports System.Data
    4. Imports System.Drawing
    5. Imports System.Text
    6. Imports System.Windows.Forms
    7. Imports System.Net
    8. Imports System.Net.Sockets
    9. Imports System.IO
    11. Partial Public Class Form1
    12. Inherits Form
    13. Public Sub New()
    14. InitializeComponent()
    15. End Sub
    17. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. Dim fDg As FileDialog = New OpenFileDialog()
    19. If fDg.ShowDialog() = DialogResult.OK Then
    20. FTClientCode.SendFile(fDg.FileName)
    21. End If
    22. End Sub
    24. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    25. Label3.Text = FTClientCode.curMsg
    26. End Sub
    27. End Class
    29. 'FILE TRANSFER USING C#.NET SOCKET - CLIENT
    30. Class FTClientCode
    31. Public Shared curMsg As String = "Idle"
    32. Public Shared Sub SendFile(ByVal fileName As String)
    33. ' Try
    34. Dim ipAddress As IPAddress() = Dns.GetHostAddresses("localhost")
    35. Dim ipEnd As New IPEndPoint(ipAddress(0), 5656)
    36. Dim clientSock As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.IP)
    39. Dim filePath As String = ""
    41. fileName = fileName.Replace("\", "/")
    42. While fileName.IndexOf("/") > -1
    43. filePath += fileName.Substring(0, fileName.IndexOf("/") + 1)
    44. fileName = fileName.Substring(fileName.IndexOf("/") + 1)
    45. End While
    48. Dim fileNameByte As Byte() = Encoding.ASCII.GetBytes(fileName)
    49. If fileNameByte.Length > 850 * 1024 Then
    50. curMsg = "File size is more than 850kb, please try with small file."
    51. Return
    52. End If
    54. curMsg = "Buffering ..."
    55. Dim fileData As Byte() = File.ReadAllBytes(filePath & fileName)
    56. Dim clientData As Byte() = New Byte(4 + fileNameByte.Length + (fileData.Length - 1)) {}
    57. Dim fileNameLen As Byte() = BitConverter.GetBytes(fileNameByte.Length)
    59. fileNameLen.CopyTo(clientData, 0)
    60. fileNameByte.CopyTo(clientData, 4)
    61. fileData.CopyTo(clientData, 4 + fileNameByte.Length)
    63. curMsg = "Connection to server ..."
    64. clientSock.Connect(ipEnd)
    66. curMsg = "File sending..."
    67. clientSock.Send(clientData)
    69. curMsg = "Disconnecting..."
    70. clientSock.Close()
    72. curMsg = "File transferred."
    73. 'Catch ex As Exception
    74. 'If ex.Message = "No connection could be made because the target machine actively refused it" Then
    75. 'curMsg = "File Sending fail. Because server not running."
    76. 'Else
    77. 'curMsg = "File Sending fail." & ex.Message
    78. 'End If
    79. ' End Try
    81. End Sub
    82. End Class

    Fehler kommt bei "clientSock.connect(ipEnd)
    Es wurde eine Adresse verwendet, die mit dem angeforderten Protokoll nicht kompatibel ist ::1:5656

    Wo bzw. wie kommt dieser Fehler?
    Hier noch der Server:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.ComponentModel
    3. Imports System.Data
    4. Imports System.Drawing
    5. Imports System.Text
    6. Imports System.Windows.Forms
    7. Imports System.Net
    8. Imports System.Net.Sockets
    9. Imports System.IO
    11. 'That code is written by Suman Biswas, Calcutta, India (Email: sumanbiswas@aol.in,Website: sumanbiswas.xm.com).
    12. 'That code is running to transfer small file to client to server. by using and after doing modification any one
    13. 'can able to make a large file transfer application in C#.Net. This is Server code.
    15. Partial Public Class Form1
    16. Inherits Form
    17. Public Sub New()
    18. InitializeComponent()
    19. FTServerCode.receivedPath = ""
    20. End Sub
    22. Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
    23. label5.Text = FTServerCode.receivedPath
    24. label3.Text = FTServerCode.curMsg
    25. End Sub
    27. Private obj As New FTServerCode()
    29. Private Sub button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
    30. Dim fd As New FolderBrowserDialog()
    31. If fd.ShowDialog() = DialogResult.OK Then
    32. FTServerCode.receivedPath = fd.SelectedPath
    33. End If
    34. End Sub
    36. Private Sub button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    37. If FTServerCode.receivedPath.Length > 0 Then
    38. BackgroundWorker1.RunWorkerAsync()
    39. Else
    40. MessageBox.Show("Please select file receiving path")
    41. End If
    42. End Sub
    44. Private Sub BackgroundWorker1_DoWork1(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    45. obj.StartServer()
    46. End Sub
    48. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    49. label5.Text = FTServerCode.receivedPath
    50. label3.Text = FTServerCode.curMsg
    51. End Sub
    52. End Class
    53. 'FILE TRANSFER USING C#.NET SOCKET - SERVER
    54. Class FTServerCode
    55. Private ipEnd As IPEndPoint
    56. Private sock As Socket
    57. Public Sub New()
    58. ipEnd = New IPEndPoint(IPAddress.Any, 5656)
    59. sock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.IP)
    60. sock.Bind(ipEnd)
    61. End Sub
    62. Public Shared receivedPath As String
    63. Public Shared curMsg As String = "Stopped"
    64. Public Sub StartServer()
    65. Try
    66. curMsg = "Starting..."
    67. sock.Listen(100)
    69. curMsg = "Running and waiting to receive file."
    70. Dim clientSock As Socket = sock.Accept()
    72. Dim clientData As Byte() = New Byte(1024 * 5000 - 1) {}
    74. Dim receivedBytesLen As Integer = clientSock.Receive(clientData)
    75. curMsg = "Receiving data..."
    77. Dim fileNameLen As Integer = BitConverter.ToInt32(clientData, 0)
    78. Dim fileName As String = Encoding.ASCII.GetString(clientData, 4, fileNameLen)
    80. Dim bWrite As New BinaryWriter(File.Open(receivedPath & "/" & fileName, FileMode.Append))
    83. bWrite.Write(clientData, 4 + fileNameLen, receivedBytesLen - 4 - fileNameLen)
    85. curMsg = "Saving file..."
    87. bWrite.Close()
    88. clientSock.Close()
    89. curMsg = "Reeived & Saved file; Server Stopped."
    90. Catch ex As Exception
    91. curMsg = "File Receving error."
    92. End Try
    93. End Sub
    94. End Class


    Könnt ihr mir weiterhelfen?

    mfg

    öhm...

    Kann ich nicht einfach "127.0.0.1" eintippen?

    Ich kann noch" uff, da gibt alles":
    .tcp, .upd, .ipv4, ipv6...

    echt viel, nun die frage: was ist davon brauchbar...

    gfcwfzkm schrieb:

    Dim ipAddress As IPAddress() = Dns.GetHostAddresses("localhost")
    Dim ipEnd As New IPEndPoint(ipAddress(0), 5656)
    GetHostAddresses liefert ja ein Array von Addressen. Und du nimmst einfach die erstbeste im Vertrauen, die wird schon das richtige Format haben.

    Vertrauen ist gut...

    VB.NET-Quellcode

    1. Dim ipAddress=Dns.GetHostAddresses(My.Computer.Name).FirstOrDefault(
    2. Function(p) p.AddressFamily = Sockets.AddressFamily.InterNetwork)
    3. Dim ipEnd As New IPEndPoint(ipAddress, 5656)