Bilder senden (fail)

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von Kevin Hombre.

    Bilder senden (fail)

    Hi,
    Ich mochte irgendwan eine art "Remptedesktop" schreiben
    Ich möchte aber erstmal einzelne Bilder senden (Will ja klein anfangen)
    Das erstellen der Screens funktioniert soweit ganz gut.
    ich speicher sie als .jpg und ängere dann die Qualität.
    Anschliessend versende ich die bilder dann.

    Ich benutze folgenden code:

    VB.NET-Quellcode

    1. Sub Screenshot(ByVal Qualität As Integer)
    2. Try
    3. Dim Screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    4. Dim Graphic As Graphics = Graphics.FromImage(Screenshot)
    5. Graphic.CopyFromScreen(0, 0, 0, 0, Screenshot.Size)
    6. JPEGCompression(Screenshot, My.Computer.FileSystem.SpecialDirectories.Temp & "Screenshot1.jpg", Qualität)
    7. Catch es As Exception
    8. Form1.senden("Fehler beim Erstellen des Screenshots!")
    9. End Try
    11. End Sub
    13. Sub JPEGCompression(ByVal Image As Image, ByVal OutPutFile As String, ByVal Qualität As Integer)
    14. Try
    15. Dim ImageCodecs() As ImageCodecInfo
    16. Dim ImageParameters As EncoderParameters
    18. ImageCodecs = ImageCodecInfo.GetImageEncoders()
    19. ImageParameters = New EncoderParameters(1)
    20. ImageParameters.Param(0) = New EncoderParameter(System.Drawing.Imaging.Encoder.Quality, Qualität)
    21. Image.Save(OutPutFile, ImageCodecs(1), ImageParameters)
    22. Senden()
    23. Catch es As Exception
    24. Form1.senden("Fehler beim Komprimieren des Screenshots!")
    25. End Try
    26. End Sub
    28. Sub Senden()
    29. Application.DoEvents()
    30. Dim cli As New TcpClient
    31. cli.Connect("orbitcraft.dyndns.org", 1300)
    32. Try
    33. Dim nstm As Stream = cli.GetStream()
    34. Dim fstm As Stream = New FileStream(My.Computer.FileSystem.SpecialDirectories.Temp & "Screenshot1.jpg", FileMode.Open, FileAccess.Read)
    36. Dim buffer(1024 - 1) As Byte
    37. Do While True
    38. Dim bytesRead As Integer = fstm.Read(buffer, 0, buffer.Length)
    39. If bytesRead = 0 Then Exit Do
    40. nstm.Write(buffer, 0, bytesRead)
    41. nstm.Flush()
    42. Loop
    43. Application.DoEvents()
    45. cli.Close()
    46. nstm.Close()
    47. fstm.Close()
    49. Application.DoEvents()
    50. Catch ex As Exception
    51. Form1.senden("Fehler beim Senden das Screenshots!")
    52. End Try
    53. End Sub


    zum empfangen benutze ich folgenden Code:

    VB.NET-Quellcode

    1. Private Sub ListenSub()
    2. server = New TcpListener(IPAddress.Any, 1300)
    3. server.Start()
    4. Try
    5. While True
    6. Dim c As TcpClient = server.AcceptTcpClient
    7. Dim s As NetworkStream = c.GetStream
    9. FileOpen(1, My.Computer.FileSystem.SpecialDirectories.Temp & "Empfangen", OpenMode.Binary)
    10. Dim buffer(1024 - 1) As Byte
    11. Do While True
    12. Dim bytesRead As Integer = s.Read(buffer, 0, buffer.Length)
    13. If bytesRead = 0 Then Exit Do
    14. FilePut(1, buffer)
    15. Loop
    16. FileClose(1)
    18. s.Close()
    19. c.Close()
    21. Application.DoEvents()
    22. PictureBox1.ImageLocation = My.Computer.FileSystem.SpecialDirectories.Temp & "Empfangen"
    23. End While
    24. Catch ex As Exception
    25. End Try
    26. End Sub


    dabei kommt aber dann sowas raus:



    Was mach ich falsch?
    Da gehen doch irgendwo datenpakete verloren?
    Wie kann ich mich dagegen absichern?

    und ja, ich weiss, dass der code nicht die beste lösung ist, aber für den anfang reicht das mal.

    wie wär's wenn du die daten nicht in eine datei schreibst, sondern gleich das bild überträgst? am besten (in der testphase) vorerst ohne kompression, das dauert dann vmtl. länger aber du könntest sehen, ob das funktioniert.

    Dein ganzer Code ist irgendwie unübersichtlich und "total um die Ecke gedacht" geschrieben.

    Hier mal ein P2P Beispiel , dass du so anpassen kannst, dass es deinen Vorstellungen entspricht:

    Empfangen:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Net.Sockets, System.IO, System.Net
    4. Module Module1
    5. Dim Reader As BinaryReader
    7. Sub Main()
    9. Dim Listener As TcpListener = New TcpListener(IPAddress.Any, 8008)
    10. Listener.Start()
    11. Console.WriteLine(">> Listener started!")
    12. Console.WriteLine(">> Waiting for tcpclient ...")
    14. While True
    15. Dim Client As TcpClient = Listener.AcceptTcpClient
    16. Reader = New BinaryReader(Client.GetStream)
    17. Console.WriteLine(">> Client connected!")
    18. Receive()
    19. Exit While
    20. End While
    22. End Sub
    24. Private Sub Receive()
    25. Dim FileInfo As String() = Reader.ReadString.Split(CChar("#"))
    26. Console.WriteLine(">> Receiving ...")
    27. Dim B() As Byte = Reader.ReadBytes(CInt(FileInfo(1)))
    28. Console.WriteLine(">> File received.")
    29. Dim Pat As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "received.jpg") ' anstatt received
    30. ' könnte man jetzt auch FileInfo(0) nehmen, denn dort haben wir den Dateinamen ja empfangen.
    31. File.WriteAllBytes(Pat, B)
    32. Console.ReadLine()
    33. End Sub
    35. End Module



    Senden

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Net.Sockets, System.IO
    3. Module Module1
    5. Sub Main()
    7. Dim Client As TcpClient = New TcpClient
    8. Client.Connect("XX.XX.XX.XX", 8008)
    9. Console.WriteLine("Connected!")
    10. Dim Writer As BinaryWriter = New BinaryWriter(Client.GetStream)
    11. Dim Pat As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "ice.jpg")
    12. Dim Tosend() As Byte = File.ReadAllBytes(Pat)
    13. Writer.Write(Path.GetFileName(Pat) & "#" & Tosend.Length)
    14. Console.WriteLine(">> Fileinfo written.")
    15. Console.WriteLine(">> Now we are going to write the bytes")
    16. Writer.Write(Tosend, 0, Tosend.Length)
    17. Console.WriteLine(">> All bytes written.")
    18. Console.ReadLine()
    20. End Sub
    21. End Module



    Hast Du den Post mit dem boundary eigentlich hinbekommen?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Anoth3rB0y“ ()

    Ok, vielen dank, mit dem code funktionierts jetzt problemlos.
    Aber wie lese ich das Comprimierte Bild in Bytearray ein, ohne es vorher zu speichern?
    Also diese 2 zeilen:

    VB.NET-Quellcode

    1. Dim Pat As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "ice.jpg")
    2. Dim Tosend() As Byte = File.ReadAllBytes(Pat)


    Und wie steck ich das Bild in eine Picturebox, ohne es vorher in eine Datei zu schreiben?

    VB.NET-Quellcode

    1. Dim Pat As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "received.jpg") ' anstatt received
    2. ' könnte man jetzt auch FileInfo(0) nehmen, denn dort haben wir den Dateinamen ja empfangen.
    3. File.WriteAllBytes(Pat, B)

    Hey,

    Hier der Code für deine 1. Frage:

    VB.NET-Quellcode

    1. Dim Boundz As Rectangle = Screen.PrimaryScreen.Bounds
    2. Dim SS As Bitmap = New Bitmap(Boundz.Width, Boundz.Height, Imaging.PixelFormat.Format32bppArgb)
    3. Dim Gr As Graphics = Graphics.FromImage(SS)
    4. Gr.CopyFromScreen(Boundz.X, Boundz.Y, 0, 0, Boundz.Size, CopyPixelOperation.SourceCopy)
    5. Dim B As Byte() = Komprimiere(SS)



    Ich hab so etwas schonmal realisiert.

    Du solltest aber bedenken, dass deine Vorgehensweise sehr ineffizient ist.

    Ich kann dir sagen wie ich vorgegangen bin.

    Sagen wir ich bin Client(Cl) , Du Server(Empfänger)(S) , Scr = Screen

    Cl sendet Scr an S
    Cl speichert Scr tempörär

    Cl macht erneut Scr , vergleicht welche Pixel beim neuen Scr anders sind
    Cl rechnet aus, ob sich weniger oder = 38% der Pixel verändert haben
    Haben sich mehr als 38% verändert -> Cl sendet Befehl(auch anhand von Bytes z.B. überall 0) für komplette Dateiübertragung, denn es es ist dann effizienter die ganze Datei zu übertragen
    Haben sich weniger als 38% verändert -> (1) Cl speichert diese Pixelveränderungen zwischen
    (1) Pixel werden in einzelnen Bytes X,y , R, G , B (wenn du schaffst kannste sogar 12bit nehmen) nacheinander an den S übertragen
    S ändert mit der Fastbitmap klasse nur die veränderten Pixel und erhält ein neues Bild.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Anoth3rB0y“ ()

    Ich hab schonmal mit Bitmaps gearbeitet, genauer gesagt berechne ich in einem Programm die Durchschnittsfarbe, indem ich die Bytes in C# durchgehe, deshalb hat mich auch dein Post mit X/Y verwirrt, aber ich sehe, dass ich den Post falsch verstanden hab. ^^

    soweit geht das ganze jetzt, aber was soll das A bie dem RGB?
    Der schlägt mir da immernoch ein A vor.
    Ist das die Transparenz?
    (Aus reinem interesse)

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „simsusim“ ()