Datentransfer Server/Client TCP

[Maxro]

Guten Tag die Damen und Herren

Ich hätte da mal wieder eine Frage und zwar wie ist es möglich über eine stehende TCP Verbindung (Server/Client) Datein zu schicken , die man vorher über einen OpenFileDialog ausgewählt hat ..?

mein bisheriger code :

   ' Datei schicken
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Datei As String
        With Me.OpenFileDialog1
            .Title = "Datei suchen"
            .InitialDirectory = "C:\"
            .RestoreDirectory = True
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Datei = .FileName
                Dim fn As String = "FilterLog.txt"

                Dim fs As New FileStream(Datei, FileMode.Open)
                Dim größe(fs.Length - 1) As Byte
                fs.Read(b, 0, größe.Length)
                fs.Close()
                writer.Write("SendFile")
                writer.Write(Datei)
                writer.Write(CInt(größe.Length))
                writer.Write(größe)


            End If
        End With
    End Sub

allerdings schickt der client nix ..

 

[Messiahs72]

sollte in etwa so gehen:

Du musst den Buffer senden, in welchem Du die Datei eingelesen hast.

Private Sub readLocalFile(ByVal file As String)
  Dim filename As String = ""

            If file.Length > 0 Then
              Dim fs As FileStream
                If System.IO.File.Exists(filename) = True Then
                   ' --- Datei öffnen
                    fs = New IO.FileStream(filename, FileMode.Open, FileAccess.Read, fileShare.Read)

                    ' --- Stream öffnen
                    Dim r As StreamReader = New StreamReader(fs)
                    ' --- Zeiger auf den Anfang
                    r.BaseStream.Seek(0, SeekOrigin.Begin)

                    responseString = r.ReadToEnd()

                    '    buffer = System.Text.Encoding.UTF8.GetBytes(responseString)
                    sendText(responseString)

                    r.Close()
                    fs.Close()

                End If
            End If
    End Sub

  Private Sub sendText(ByVal strBuffer As String)
        If Not stream.CanWrite Then
            'was soll der Sch... ;-)
        Else
            Try
                sw.Write(strBuffer)
                sw.Flush()
                sw.Close()
            Catch ex As Exception

            End Try
        End If

    End Sub

Gruß
markus

 

[Maxro]

hy ,

Darf der FileName auch den Gesamten Pfad der Datei enthalten z.b C:\Test\Sonstwas.bla

oder darf es nur Sonstwas.bla sein..?