Verständnissfrage: UDP Videochat(gewollt UDP)

  • Allgemein

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Verständnissfrage: UDP Videochat(gewollt UDP)

    Hey Com,

    ich habe da mal eine etwas dümmere Frage :D Undzwar habe ich in meinen Chat die Videotelefonie eingebaut, da ich leider vorerst keinen weiteren PC zur Verfügung habe frag ich nun euch.Es ist UDP, wenn ich jetzt eine UDP-Adresse herausfinde und mit Ihm eine Videotelefonie starte, wird dann er überhaupt angerufen oder muss ich einen Client dafür machen.(Würde ich nicht gerne machen sonder eher wie Skype).
    Mein Code ist:

    VB.NET-Quellcode

    1. Dim subscriber As New UdpClient(2013)
    2. Dim publisher As New UdpClient()
    3. Dim mycomputername As String = Environment.MachineName
    4. Dim mycomputerIP() As System.Net.IPAddress = System.Net.Dns.GetHostAddresses(mycomputername)
    7. Dim Touchless As New TouchlessLib.TouchlessMgr
    8. Dim Camera1 As TouchlessLib.Camera = Touchless.Cameras.ElementAt(0)
    9. Dim picsize As Size = New Size(160, 120)
    11. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    13. publisher.Client.Blocking = False
    14. subscriber.Client.ReceiveTimeout = 100
    15. subscriber.Client.Blocking = False
    16. TB_Host.Text = Environment.MachineName
    18. Label3.Text = "My Name: " & Environment.MachineName
    20. Touchless.CurrentCamera = Camera1
    21. Touchless.CurrentCamera.CaptureWidth = picsize.Width
    22. Touchless.CurrentCamera.CaptureHeight = picsize.Height
    24. End Sub
    26. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    29. Try
    31. Dim bitmapz As Bitmap = New Bitmap(picsize.Width, picsize.Height)
    32. bitmapz = Touchless.CurrentCamera.GetCurrentImage
    33. PictureBox1.Image = bitmapz
    35. Dim sendbytes() As Byte
    36. bytesfromimage(sendbytes, bitmapz)
    38. publisher.Send(sendbytes, sendbytes.Length)
    39. Catch ex As Exception
    40. End Try
    43. Try
    45. Dim ep As System.Net.IPEndPoint = New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
    46. Dim rcvbytes() As Byte = subscriber.Receive(ep)
    47. Dim bitmapz As Bitmap = New Bitmap(picsize.Width, picsize.Height)
    48. imagefrombytes(rcvbytes, bitmapz)
    49. PictureBox2.Image = bitmapz
    51. Catch ex As Exception
    52. End Try
    54. End Sub
    56. Private Sub imagefrombytes(ByRef bytez() As Byte, ByRef piccolor As Bitmap)
    57. Dim rect As New Rectangle(0, 0, piccolor.Width, piccolor.Height)
    58. Dim bmpData As System.Drawing.Imaging.BitmapData = piccolor.LockBits(rect, _
    59. Drawing.Imaging.ImageLockMode.ReadWrite, Imaging.PixelFormat.Format32bppRgb)
    60. Dim ptr As IntPtr = bmpData.Scan0
    61. Dim bytes As Integer = bmpData.Stride * piccolor.Height
    62. Dim rgbValues(bytes - 1) As Byte
    63. System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes)
    65. Dim secondcounter As Integer
    66. Dim tempred As Integer
    67. Dim tempblue As Integer
    68. Dim tempgreen As Integer
    69. Dim tempalpha As Integer
    70. secondcounter = 0
    72. While secondcounter < rgbValues.Length
    73. tempblue = rgbValues(secondcounter)
    74. tempgreen = rgbValues(secondcounter + 1)
    75. tempred = rgbValues(secondcounter + 2)
    76. tempalpha = rgbValues(secondcounter + 3)
    77. tempalpha = 255
    79. tempred = bytez(((secondcounter * 0.25) * 3) + 0)
    80. tempgreen = bytez(((secondcounter * 0.25) * 3) + 1)
    81. tempblue = bytez(((secondcounter * 0.25) * 3) + 2)
    83. rgbValues(secondcounter) = tempblue
    84. rgbValues(secondcounter + 1) = tempgreen
    85. rgbValues(secondcounter + 2) = tempred
    86. rgbValues(secondcounter + 3) = tempalpha
    88. secondcounter = secondcounter + 4
    89. End While
    92. System.Runtime.InteropServices.Marshal.Copy(rgbValues, 0, ptr, bytes)
    94. piccolor.UnlockBits(bmpData)
    96. End Sub
    98. Private Sub bytesfromimage(ByRef bytez() As Byte, ByRef piccolor As Bitmap)
    99. Dim rect As New Rectangle(0, 0, piccolor.Width, piccolor.Height)
    100. Dim bmpData As System.Drawing.Imaging.BitmapData = piccolor.LockBits(rect, _
    101. Drawing.Imaging.ImageLockMode.ReadWrite, Imaging.PixelFormat.Format32bppRgb)
    102. Dim ptr As IntPtr = bmpData.Scan0
    103. Dim bytes As Integer = bmpData.Stride * piccolor.Height
    104. Dim rgbValues(bytes - 1) As Byte
    105. System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes)
    107. Dim secondcounter As Integer
    108. Dim tempred As Integer
    109. Dim tempblue As Integer
    110. Dim tempgreen As Integer
    111. Dim tempalpha As Integer
    112. secondcounter = 0
    113. Dim bytelist As List(Of Byte) = New List(Of Byte)
    115. While secondcounter < rgbValues.Length
    116. tempblue = rgbValues(secondcounter)
    117. tempgreen = rgbValues(secondcounter + 1)
    118. tempred = rgbValues(secondcounter + 2)
    119. tempalpha = rgbValues(secondcounter + 3)
    120. tempalpha = 255
    122. bytelist.Add(tempred)
    123. bytelist.Add(tempgreen)
    124. bytelist.Add(tempblue)
    126. rgbValues(secondcounter) = tempblue
    127. rgbValues(secondcounter + 1) = tempgreen
    128. rgbValues(secondcounter + 2) = tempred
    129. rgbValues(secondcounter + 3) = tempalpha
    131. secondcounter = secondcounter + 4
    132. End While
    135. System.Runtime.InteropServices.Marshal.Copy(rgbValues, 0, ptr, bytes)
    137. piccolor.UnlockBits(bmpData)
    139. Dim bytearray(bytelist.Count - 1) As Byte
    140. For i = 0 To bytelist.Count - 1
    141. bytearray(i) = bytelist(i)
    142. Next
    143. bytez = bytearray
    145. End Sub
    147. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    148. publisher.Connect(tbHOST, 2013)
    149. End Sub

    Hoffe Ihr könnt mir da helfen :)
    Greet iEi

    iEi schrieb:

    da ich leider vorerst keinen weiteren PC zur Verfügung habe
    Das ist ja fast eine Grundvoraussetzung, dein Vorhaben scheitern zu lassen.

    Warum installierst du nicht VirtualBox und virtualisierst darauf einen (oder mehrere) Partner-Rechner?

    Mit einem einzigen Rechner lässt sich Netzwerkprogrammierung ganz schlecht testen.

    Damit ist zwar noch immer nicht das mögliche Problem gelöst, das Programm hinter einer Internet-Firewall zum Laufen zu bringen, aber lässt sich zumindest die Basiskommunikation testen.

    eher wie Skype
    Skype arbeitet übrigens mit einem zwischengeschalteten Server zum Verbindungsaufbau.
    Der dann verwendetete Lochtrick kommt erst danach zum Einsatz.
    Ganz ohne ein zentrales Sync-Programm wirst du nicht auskommen, sonst wird das Stochern im Nebel.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

    Außerdem fängst du am besten erst einmal an OOP zu lernen und anschließend auch überall zu verwenden. Denn davor fängt man nicht an nen Chat zu programmieren.
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende