تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ماسنجر صوت وصورة شبكة محلية وانترنت
#1
Lightbulb 
السلام عليكم ورحمة الله وبركاته
يلزمني عمل ماسنجر صوت وصورة والفكره لدي ان احفظ اجزاء من الفديو في قاعده بيانات من الطرف الأول والطرف الثاني يستقبلها على جهازه ويشغلها بشكل متتالي لتكون المحادثه بشكل متصل (اي تعمل اجزاء الفديو المنزله من السيرفر بشكل متصل)
المشكله انني حين اقوم بذلك يعمل الفديو ولكن مع ظهور شاشة سوداء بين كل مطع لتحميل المقطع الذي يليه
لذلك انا في حاجه لمساعدتكم اما في تصحيح الفكره ككل او مساعدتي في تشعيل المقاطع كلها كفديو واحد
الرد }}}}
تم الشكر بواسطة:
#2
ارفع المشروع افضل
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم
شكرا اخي الكريم لاهتمامك
الموضوع كله فكره كنت اعرضها واطلب ان يوضح لي الأعضاء اذا كانت فكرتي صحيحه من الأساس ام لا
وان كانت صحيحه من حيث المبدأ افادتي بطريقة تشغيل ملفات الفيديو  للمحادثة بشكل متصل حيث لي
تجارب سابقة لتشغيل ملفات الفديو على شكل قائمة كانت تظهر شاشه سوداء بين كل مقطع مما لا يناسب المحادثة
الرد }}}}
تم الشكر بواسطة:
#4
لو قمت بتصميم مشروع و عملت الذي تريده وفي حال وجود اي مشكله نحن حاضرين
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة:
#5
فيه مكتبات متخصصة بهيك شغلات.

Video Chat Pro SDK
http://www.viscomsoft.com/demo/videochatprosetup.exe
https://www.youtube.com/watch?v=CWHuJ9qQMUA
كود :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxVideoChatSender1.VideoDevice = 0
        AxVideoChatSender1.AudioDevice = 0
        AxVideoChatSender1.VideoFormat = 0
        AxVideoChatSender1.FrameRate = 15
        AxVideoChatSender1.VideoBitrate = 128000
        AxVideoChatSender1.AudioComplexity = 0
        AxVideoChatSender1.AudioQuality = 8
        AxVideoChatSender1.SendAudioStream = True
        AxVideoChatSender1.SendVideoStream = True

        AxVideoChatSender1.ConferenceNumber = 5000
        AxVideoChatSender1.ConferenceUserID = 10000

        AxVideoChatSender1.Connect("127.0.0.1", 1234)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AxVideoChatReceiver1.ReceiveAudioStream = True
        AxVideoChatReceiver1.ReceiveVideoStream = True

        AxVideoChatReceiver1.Listen("127.0.0.1", 1234)
    End Sub

End Class

iConf.NET SDK
Framework 4.5
http://download.informer.com/win-1192445...taller.zip
https://www.youtube.com/watch?v=SwIhJI9REM0
كود :
Public Class Form1

    Dim myIp As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            myIp = IConfServerDotNet1.GetLocalIp()(0)

            IConfServerDotNet1.InitializeAudioSystem(iConfServer.NET.iConfServerDotNet.audioType.DirectSound, -1, -1, 16000, 10)
            IConfServerDotNet1.SelectVideoDevice(0)

            'Dim lst As ArrayList = IConfServerDotNet1.GetVideoSizes

            IConfServerDotNet1.StartPreview(0)
        Catch ex As Exception
            MessageBox.Show(String.Format("Error initializing {0}", ex.Message))
        End Try
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        IConfServerDotNet1.Listen(False, myIp, 9990, 17860, 17861)
        IConfServerDotNet1.StopPreview()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ipToCall As String = myIp
        Dim videoPort As Integer = 9990
        Dim audioTcpPort As Integer = 17860
        Dim audioUdpPort As Integer = 17861

        IConfClientDotNet1.AutoReconnect = True
        IConfClientDotNet1.Call(ipToCall, videoPort, 0, 0, "test", IConfServerDotNet1.CallBackId, myIp, videoPort, audioTcpPort, audioUdpPort, "")
    End Sub

    Private Sub IConfServerDotNet1_IncomingCall(sender As Object, authenticationData As String, socketHandle As Integer, callbackid As String, callbackipaddress As String, callbackvideoport As Integer, callbackaudiotcpport As Integer, callbackaudiudpport As Integer) Handles IConfServerDotNet1.IncomingCall
        Invoke(New MethodInvoker(Sub()
                                     'accept the incoming call
                                     IConfServerDotNet1.AcceptCall("n/a", socketHandle)
                                     'call back to have a 1 on one video conference
                                     IConfClientDotNet1.Call(callbackipaddress, callbackvideoport, 0, 0, "n/a", callbackid, myIp, 0, 0, 0, "")
                                 End Sub))
    End Sub

    Private Sub IConfServerDotNet1_ClientDisconnected(sender As Object, ipAddress As String, port As Integer) Handles IConfServerDotNet1.ClientDisconnected
        Invoke(New MethodInvoker(Sub() IConfClientDotNet1.Disconnect()))
    End Sub

    Private Sub IConfServerDotNet1_CannotRunGraph() Handles IConfServerDotNet1.CannotRunGraph
        MessageBox.Show("Video Capture device might be in use")
    End Sub

    Private Sub IConfServerDotNet1_VideoPreviewStarted(videoWidth As Integer, videoHeight As Integer, deviceName As String) Handles IConfServerDotNet1.VideoPreviewStarted
        Invoke(New MethodInvoker(Sub()
                                     Me.Text = String.Format("Simple IP 2 IP Demo - {0}x{1}", videoWidth, videoHeight)
                                     IConfServerDotNet1.VideoRateControl = iConfServer.NET.iConfServerDotNet.RateControl.ConstantQuality
                                     'Initialize Codec
                                     IConfServerDotNet1.SetEncoderProperties(iConfServer.NET.HelperClasses.VideoCodecs.MPEG4, 20, 8000, 0, 0, 0)
                                     If Not IConfServerDotNet1.IsListening Then
                                         'listen for incoming connections
                                         IConfServerDotNet1.Listen(True, myIp, 9990, 17860, 17861)
                                     End If
                                 End Sub))
    End Sub

End Class
الرد }}}}
تم الشكر بواسطة: HASAN6.0
#6
(09-12-15, 02:00 AM)مشكور اخي العزيز hamada558اعتقد ان هذه المكتبات مخصصة للشبكة المحليه ما احاول فعله هو ماستجر يرسل محادثة الفديو مسجلة على هيئة مقاطع فديو من طرف لأخر وذلك من خلال ارسالها لقاعدة بيانات يمكن ان تكون على النت ويقوم الطرف الاخر باستقبالها وتنزيلها على جهازة اجزاء في مجلد البرنامج مثلا وكلما نزل مقطع يعرض متصل بالذي يليه وهنا المشكلة احتاج لطريقة لتشغيل ملفات فديو في مجلد بشكل متصل دون ظهور فواصل بحيث تظهر كفديو واحد كتب :
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 85 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  كود نقل مقطع فيديو من الحاسبه الى السيرفر ومن السيرفر الى الحاسبه على شبكة LAN HATEM KAREM 6 143 14-10-16, 12:36 AM
آخر رد: HATEM KAREM
Big Grin [VB.NET] مساعده فى فك تشفير مشروع ماسنجر oshankoty 7 311 16-04-16, 01:55 AM
آخر رد: derham
  محتاجة مساعدة تعديل بسيط في مشروع دردشة او ماسنجر عبر الشبكة المحلية رهف العريفي 5 303 04-03-16, 02:18 PM
آخر رد: رهف العريفي
  [سؤال] الاتصال بقاعدة بيانات sql server عبر شبكة محلية يا شباب احمد عبد الحكيم 4 452 16-02-16, 07:16 AM
آخر رد: احمد عبد الحكيم
  [سؤال] شباب اتصال قاعدة البيانات على شبكة محلية احمد عبد الحكيم 5 626 13-02-16, 12:17 AM
آخر رد: boudyonline
  ارسال رسالة الي كمبيوتر في شبكة محلية atefkhalf2004 55 2,960 07-10-15, 09:05 PM
آخر رد: سعود
  [سؤال] ما اسرع كود لملئ شبكة الداتا كرايد فيو mh66 2 420 24-03-15, 11:42 PM
آخر رد: mh66
  [سؤال] مشكلة موجودة في شبكة كرايد في V.net لم تكن موجودة في VB6 mh66 0 255 05-03-15, 11:07 PM
آخر رد: mh66
Wink [VB.NET] رسالة خطأ عن توصيل البرنامج علي شبكة network داخلي محمد مكاوي 6 1,014 01-03-15, 04:19 AM
آخر رد: Dr.Sherif Alazizi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم