Bildübertragung

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von schnibli.

    Bildübertragung

    Hallo Zusammen,

    Ich habe einen Desktop-Viewer über TCP gebastelt:
    Spoiler anzeigen
    server/anzeige:

    VB.NET-Quellcode

    1. Private Sub receiveImage()
    2. Dim bf As New BinaryFormatter
    3. While client.Connected = True
    4. nstream = client.GetStream
    5. PictureBox1.Image = bf.Deserialize(nstream)
    6. MsgBox(nstream)
    7. End While
    8. End Sub
    9. Private Sub Listen()
    10. While client.Connected = False
    11. server.Start()
    12. client = server.AcceptTcpClient
    13. End While
    14. getImage.Start()
    16. End Sub
    17. Dim client As New TcpClient
    18. Dim server As New TcpListener(8085)
    19. Dim nstream As NetworkStream
    20. Dim listening As New Thread(AddressOf Listen)
    21. Dim getImage As New Thread(AddressOf receiveImage)
    23. Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    24. listening.Start()
    25. Timer1.Stop()
    26. End Sub
    28. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    29. If _bS.Position + 1 > _bS.Count - 1 Then
    30. Timer1.Enabled = False
    31. Call start()
    32. _bS.Position = 0
    33. Else
    34. Me.Text = _bS.Position & "/" & _bS.Count - 1
    35. _bS.MoveNext()
    36. End If
    37. End Sub


    client/anzusehender Bildschirm

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net
    3. Imports System.Net.Sockets
    4. Imports System.Threading
    5. Imports System.Drawing
    6. Imports System.Runtime.Serialization.Formatters.Binary
    7. Public Class Form1
    8. Dim client As New TcpClient
    9. Dim nstream As NetworkStream
    10. Public Function Desktop() As Image
    11. Dim bounds As Rectangle = Nothing
    12. Dim screenshot As System.Drawing.Bitmap = Nothing
    13. Dim graph As Graphics = Nothing
    14. bounds = Screen.PrimaryScreen.Bounds
    15. screenshot = New Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    16. graph = Graphics.FromImage(screenshot)
    17. graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
    18. Return screenshot
    19. End Function
    21. Private Sub SendImage()
    22. Dim bf As New BinaryFormatter
    23. nstream = client.GetStream
    24. bf.Serialize(nstream, Desktop())
    25. End Sub
    27. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    28. SendImage()
    29. End Sub
    31. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    32. Try
    33. client.Connect("192.168.61.52", 8085)
    34. Catch ex As Exception
    35. MsgBox("Failed to connect...")
    36. End Try
    37. End Sub
    39. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    40. 'nstream = ("hallo")
    41. Timer1.Start()
    42. End Sub
    43. End Class


    Wie kann ich hier am schnellsten implementieren das der client automatisch startet und ich nicht auf den listen button klicken muss :s

    Der Threadtitel ging völlig an der Anfrage vorbei... Egal. Wenn der Nutzer es im Autostart haben möchte kann er es selbst dorthin verschieben. Hier im Forum wird dir normalerweise keiner beim Basteln von "Viren" helfen.

    8-) faxe1008 8-)

    Abgesehen davon, dass uns Andy schon wieder sein Halbwissen presentieren möchte,
    war es nicht mal annäherd die Frage des Autors.

    Diese wurde nämlich mit:

    NGE'o schrieb:

    Nein, es werden hier keine Hilfen über Trojaner geben.

    beantwortet.

    Das ist nicht das komplette programm...
    Ich verwende das programm um bilder von einem ordner auf nem präsentationsscreen zu zeigen. Und auf button klick soll auch ein pc eingeblendet werden können.

    Ich möchte nicht das program fernstarten sondern nur den server für die bildübertragung.

    Gruss

    Mein code für den Monitor pc:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Imports System.Net
    4. Imports System.Net.Sockets
    5. Imports System.Threading
    6. Imports System.Drawing
    7. Imports System.Runtime.Serialization.Formatters.Binary
    9. Public Class Form1
    11. Private _bS As New BindingSource()
    12. Private _sourcePath As New DirectoryInfo("\\192.168.1.5\Bilder")
    13. ' Private WithEvents _t As New Timer() With {.Interval = 1000}
    14. Public Sub New()
    15. Call start()
    16. End Sub
    18. Private Sub Button1_Click(sender As Object, e As EventArgs)
    19. Timer1.Enabled = Not Timer1.Enabled
    20. End Sub
    22. Sub start()
    23. InitializeComponent()
    24. _bS.DataSource = _sourcePath.GetFiles("*.jpg*")
    25. PictureBox1.DataBindings.Add(New Binding("ImageLocation", _bS, "FullName"))
    26. Timer1.Start()
    27. End Sub
    28. Private Sub receiveImage()
    29. Dim bf As New BinaryFormatter
    30. While client.Connected = True
    31. nstream = client.GetStream
    32. PictureBox1.Image = bf.Deserialize(nstream)
    34. End While
    35. End Sub
    36. Private Sub Listen()
    37. While client.Connected = False
    38. server.Start()
    39. client = server.AcceptTcpClient
    40. End While
    41. getImage.Start()
    43. End Sub
    44. Dim client As New TcpClient
    45. Dim server As New TcpListener(8085)
    46. Dim nstream As NetworkStream
    47. Dim listening As New Thread(AddressOf Listen)
    48. Dim getImage As New Thread(AddressOf receiveImage)
    50. Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    51. listening.Start()
    52. Timer1.Stop()
    53. End Sub
    55. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    56. If _bS.Position + 1 > _bS.Count - 1 Then
    57. Timer1.Enabled = False
    58. Call start()
    59. _bS.Position = 0
    60. Else
    61. Me.Text = _bS.Position & "/" & _bS.Count - 1
    62. _bS.MoveNext()
    63. End If
    64. End Sub
    65. End Class


    zurzeit muss ich noch Button1 anklicken damit die Bildübertragung startet...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „schnibli“ ()

    Das Komunizieren der Programme habe ich nun geschaft, die frage ist nur:

    Wenn ich mit dem Client Disconnecte, erscheint einen Fehler auf dem Server und das Programm Stürtzt ab.

    Meine Frage:

    Wie kann ich diese Verbindung Sauber trennen?

    VB.NET-Quellcode

    1. Private Sub receiveImage()
    2. Dim bf As New BinaryFormatter
    3. While client.Connected = True
    4. nstream = client.GetStream
    5. PictureBox1.Image = bf.Deserialize(nstream)
    7. End While
    8. End Sub
    9. Private Sub Listen()
    10. While client.Connected = False
    11. server.Start()
    12. client = server.AcceptTcpClient
    13. End While
    14. getImage.Start()
    16. End Sub
    17. Dim client As New TcpClient
    18. Dim server As New TcpListener(8085)
    19. Dim nstream As NetworkStream
    20. Dim listening As New Thread(AddressOf Listen)
    21. Dim getImage As New Thread(AddressOf receiveImage)


    Neu:


    Hat sich erledigt

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

    Ich benutze jetzt für den Remote folgenden Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function ImageToBytes(ByVal Image As Image) As Byte()
    2. Dim memImage As New System.IO.MemoryStream
    3. Dim bytImage() As Byte
    4. Image.Save(memImage, Image.RawFormat)
    5. bytImage = memImage.GetBuffer()
    6. Return bytImage
    7. End Function
    9. Sub SendDesktop()
    10. Try
    11. Client = New TcpClient("127.0.0.1", 8000)
    12. Dim Writer As New StreamWriter(Client.GetStream())
    13. Writer.Write(ImageToBytes(Desktop))
    14. Writer.Flush()
    15. Catch ex As Exception
    16. MsgBox(ex.Message)
    17. End Try
    18. End Sub
    20. Function Desktop() As Image
    21. Dim bounds As Rectangle
    22. Dim screenshot As System.Drawing.Bitmap
    23. Dim graph As Graphics
    24. bounds = Screen.PrimaryScreen.Bounds
    25. screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    26. graph = Graphics.FromImage(screenshot)
    27. graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
    28. Return screenshot
    29. End Function


    Jeoch ergibt dies eine schlechte Qualität, wie kann ich eine Bessere Qualität erreichen?

    Ich habe schon

    VB.NET-Quellcode

    1. screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format64bppArgb)


    Ausprobiert jedoch entschlüsselt mir dies der Andere Computer nicht richtig und das bild ist nicht erkennbar

    Problem behoben, falsche Einstellungen an der Picturebox

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

Facebook
Telefonspende