Hallo,
Ich habe jetzt mein Remote Desktop mit Chat Funktion fertig gestellt, bzw. wieder aufgefrischt. Jetzt habe ich aber ein Problem, denn es werden drei Fehler angezeigt, wo ich mir mittlerweile todsicher sind, dass da keine sind.
Ich haette zwei Punkte:
1. Kann jemand es "entfehlern"? (Im nachhinein der Code mit den Fehlern)
2. Da ich mir wirklich todsicher bin, weil ich damals schon mal so ein aehnliches Programm gemacht habe, dass es keine Fehler sind, kann mir jemand sagen, wie ich die Programm exe trotz der Fehler erstellen kann?
Angenehmen Samstag,
Kruemelchen.
Code:
P.S.: Ich bin jetzt (leider) drei Wochen im Urlaub und kann keine Ruecknachrichten geben. Vielen Dank fuer HIlfe im Vorraus.
Ich habe jetzt mein Remote Desktop mit Chat Funktion fertig gestellt, bzw. wieder aufgefrischt. Jetzt habe ich aber ein Problem, denn es werden drei Fehler angezeigt, wo ich mir mittlerweile todsicher sind, dass da keine sind.
Ich haette zwei Punkte:
1. Kann jemand es "entfehlern"? (Im nachhinein der Code mit den Fehlern)
2. Da ich mir wirklich todsicher bin, weil ich damals schon mal so ein aehnliches Programm gemacht habe, dass es keine Fehler sind, kann mir jemand sagen, wie ich die Programm exe trotz der Fehler erstellen kann?
Angenehmen Samstag,
Kruemelchen.
Code:
VB.NET-Quellcode
- Private Sub SavefileTS()
- RaiseEvent DiagnosticMessage("File transfer session initiated")
- Dim i As Integer = 0
- Dim fl As Sockets.TcpListener = fileListener
- fileListener = Nothing
- Try
- While Not fl.Pending
- i += 1
- Threading.Thread.CurrentThread.Sleep(100)
- If i = 100 Then Throw New Exception
- End While
- While fl.Pending
- Saveonefile(fl)
- Threading.Thread.CurrentThread.Sleep(2000)
- End While
- RaiseEvent DiagnosticMessage("File transfer session terminated OK")
- Catch ex As Exception
- RaiseEvent DiagnosticMessage("File transfer session terminated unepectedly")
- End Try
- fl.Stop()
- End Sub
VB.NET-Quellcode
- Private Sub SendFilesTS()
- isSendingFile = True
- Dim FullFileName As String = FileQueque.Pop
- Dim tstrings As String() = FullFileName.Split("\")
- Dim FileName As String = tstrings(tstrings.Length - 1)
- Dim wd As Long = 0
- Dim fileStream As System.IO.Stream
- Dim client As New System.Net.Sockets.Socket(Sockets.AddressFamily.InterNetwork, Sockets.SocketType.Stream, Sockets.ProtocolType.Tcp)
- Dim rep As New System.Net.IPEndPoint(CurrFileAddr, FilePort)
- Try
- client.Connect(rep)
- fileStream = IO.File.Open(FullFileName, IO.FileMode.Open, IO.FileAccess.Read)
- Catch SEx As Sockets.SocketException
- Throw New Exception("Connection fail")
- Catch IOEx As IO.IOException
- Throw New Exception("Unable to open file")
- End Try
- sendBufferLenght(FileName.Length, client)
- Dim nameBuff() As Byte = System.Text.Encoding.Default.GetBytes(FileName.ToCharArray)
- client.Send(nameBuff, 0, nameBuff.Length, Sockets.SocketFlags.None)
- Dim buffer(PacketSize - 1) As Byte
- wd = fileStream.Read(buffer, 0, PacketSize)
- While wd > 0
- client.Send(buffer, wd, Sockets.SocketFlags.None)
- wd = fileStream.Read(buffer, 0, PacketSize)
- End While
- fileStream.Close()
- fileStream = Nothing
- buffer = Nothing
- client.Close()
- Try
- FileQueque.Peek()
- SendFilesTS()
- Catch ex As Exception
- End Try
- isSendingFile = False
- End Sub
VB.NET-Quellcode
- Private Sub Saveonefile(ByRef fl As Sockets.TcpListener)
- Dim Client As Sockets.Socket
- Dim name As String
- Dim buffer(PacketSize - 1) As Byte
- Dim lingerOption As New Sockets.LingerOption(True, 10)
- Dim wd As Double = 0
- Try
- Client = fl.AcceptSocket
- Client.SetSocketOption(Sockets.SocketOptionLevel.Socket, Sockets.SocketOptionName.Linger, lingerOption)
- Dim dName As Integer = receiveBufferLenght(Client)
- Dim nameBuff(dName - 1) As Byte
- Client.Receive(nameBuff, 0, nameBuff.Length, Sockets.SocketFlags.None)
- name = Text.Encoding.Default.GetString(nameBuff)
- RaiseEvent DiagnosticMessage("Incoming file..." + name)
- Dim incomingfile As System.IO.Stream
- incomingfile = IO.File.Open(DirectoryPath + name, IO.FileMode.OpenOrCreate)
- wd = Client.Receive(buffer, PacketSize, Sockets.SocketFlags.None)
- While wd > 0
- incomingfile.Write(buffer, 0, wd)
- wd = Client.Receive(buffer, PacketSize, Sockets.SocketFlags.None)
- End While
- incomingfile.Close()
- incomingfile = Nothing
- RaiseEvent DiagnosticMessage("File complete!" + DirectoryPath + name)
- filecomplete()
- Catch ex As Exception
- End Try
- If Not Client Is Nothing Then
- Client.Close()
- Client = Nothing
- End If
- End Sub
P.S.: Ich bin jetzt (leider) drei Wochen im Urlaub und kann keine Ruecknachrichten geben. Vielen Dank fuer HIlfe im Vorraus.