Hi Leute,
Ich hab hier eine stehende TCP-Verbindung aber beim Senden von Dateien ein Problem.
Sender:
Spoiler anzeigen
Empfänger:
Spoiler anzeigen
Jetz schreibt er da aber garnix in meine Datei rein. Worin liegt denn mein Fehler??
Danke schonmal!
PS.: In TextBox1 steht der Pfad zum speichern ("C:\") und GetTime() schreibt nur die Zeit formatiert in die Variable Time.
Ich hab hier eine stehende TCP-Verbindung aber beim Senden von Dateien ein Problem.
Sender:
Quellcode
- OpenFileDialog1.ShowDialog()
- streamw.WriteLine("***COM - sendfile***")
- streamw.Flush()
- StatusLabel.Text = "Sende Datei..."
- GetTime()
- streamw.WriteLine(OpenFileDialog1.SafeFileName)
- streamw.Flush()
- Dim readstream As FileStream
- readstream = New FileStream(OpenFileDialog1.FileName, FileMode.Open)
- Dim binreader As New System.IO.BinaryReader(readstream)
- streamw.WriteLine(readstream.Length() / 1024)
- streamw.Flush()
- For i = 1 To readstream.Length() / 1024
- streamw.WriteLine(binreader.ReadBytes(1024))
- streamw.Flush()
- Next
- readstream.Close()
- ListBox1.Items.Add(Time + " File sending attempt: " + OpenFileDialog1.SafeFileName)
Empfänger:
Quellcode
- GetTime()
- Dim filename
- filename = streamr.ReadLine
- ListBox1.Items.Add(Time + " File sending attempt: " + filename)
- Dim filebin
- Dim binlength
- binlength = streamr.ReadLine
- For i = 1 To binlength
- filebin = filebin + streamr.ReadLine()
- Next
- System.IO.File.WriteAllBytes(TextBox1.Text + filename, filebin)
- My.Application.DoEvents()
Jetz schreibt er da aber garnix in meine Datei rein. Worin liegt denn mein Fehler??
Danke schonmal!
PS.: In TextBox1 steht der Pfad zum speichern ("C:\") und GetTime() schreibt nur die Zeit formatiert in die Variable Time.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Macsperience“ ()