تقييم الموضوع :
  • 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 Server DB موجودة على شبكة داخلية dr.programming 0 258 28-09-23, 05:29 PM
آخر رد: dr.programming
  [VB.NET] وجود شبكة عماد سلمان منذر 1 582 10-10-22, 04:14 PM
آخر رد: الماجيك مسعد
  هل استطيع اضافة عدد 2 من السوتش في شبكة واحدة بسام محمدغانم 2 806 03-06-22, 04:49 PM
آخر رد: بسام محمدغانم
  [VB.NET] جملة اتصال بقاعدة sqlite موجودة في شبكة محلية lan Makka 1 1,090 11-06-21, 11:53 AM
آخر رد: alfaiz678
  [VB.NET] جملة الاتصال بقاعدة بيانات اكسس mdb على شبكة بين جهازين tarek 1 971 26-04-21, 06:14 AM
آخر رد: محمد اسماعيل
  تشغيل برنامج بالفجول بيسك عن طريق شبكة الواي فاي معتز حسن 0 1,122 03-03-21, 02:30 AM
آخر رد: معتز حسن
  [سؤال] ما هو البورت الخاص باظهار ال Shared files عبر شبكة ال WAN mmaalmesry 1 1,070 23-06-20, 06:16 PM
آخر رد: kiki
  كيفية اضافة اسم وصورة المنتج في الفورم نور الهدى الهدى 2 1,726 18-07-19, 10:29 PM
آخر رد: asemshahen5
  [VB.NET] ربط جهازين عبر شبكة اسامه الهرماوي 3 2,197 04-06-19, 05:00 PM
آخر رد: elgokr
  [VB.NET] كيف اجعل برنامج يعمل على شبكة السائل 2 2,052 05-01-19, 06:00 AM
آخر رد: السائل

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


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