Messages

"Real Time Streaming Protocol"

คำว่า Streaming  หมายถึง การเปิดไฟล์วิีโอและเสียงโดยไม่ต้องมีการดาวน์โหลดมาเก็บไว้ที่เครื่อง
เนื่องจากการดาวน์โหลดไฟล์วิดีโอทั้งไฟล์จะใช้เวลานานมาก ดังนั้นการเล่นไฟล์วิดีโอ จากเครือข่ายด้วยเทคนิค Streaming จะทำให้สามารถแสดงผลข้อมูลได้ก่อนที่ไฟล์ทั้งหมดจะถูกส่งผ่านเข้ามายังเครื่องคอมพิวเตอร์นั่นเอง

ตัวอย่างการใช้เทคนิค Streaming เช่นในเว็บไซต์ฟังวิทยุสด หรือชมคลิปวิดีโอ พวกyoutubeก็เป็นระบบสตรีมมิ่งเช่นกัน

ตอบ=rtsp เป็นรุปแบบการเชื่อมต่อครับ ดูได้ทั้งวิดีโอปัจจุบันและวีดีโอที่บันทึกไว้แล้ว

ในการ Streaming สามารถเล่นไฟล์วิดีโอได้อย่างสมบูรณ์นั้น เครื่องบันทึกที่ใช้จะต้องมีความเร็วในการทำงานพอเพียงเนื่องจาก ข้อมูลที่ถูกส่งเข้ามายังเครื่องจะถูกจัดเก็บไว้ในหน่วยความจำ และยังต้องมีการแปลงข้อมูลเหล่านั้น เพี่อนำไปแสดงผลในรูปแบบของเสียงหรือวิดีโอ  อีกอย่างที่สำคัญ ต้องมีความเร็วในการเชื่อมต่อเครือข่ายที่เร็วพอที่จะส่งไฟล์ให้กับผู้ดูด้วย

หากส่วนใดล่าช้า ถ้าจะสังเกตเห็นได้ทันทีว่าภาพวิดีโอที่ดูอยู่จะมีอาการกระตุกหรือค้างไปเลย

โค๊ด: [Select]

Dim swftoload As String
swftoload = "C:player.swf?file=rtmp://sc-e1.streamcyclone.com:1935/ctvch_live/ctvch&autostart=true"
AxShockwaveFlash1.LoadMovie(0, swftoload)--------------------------------------------------------------------------
ShockwaveFlashObject : Load Flash Movie on the internet

Example:

โค๊ด: [Select]

'Add Com components : Shockwave Flash Object
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MaximizeBox = False : Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink : Me.CenterToScreen()
        Me.Size = New Size(200, 200)
        AxShockwaveFlash1.LoadMovie(0, "http://flash-clocks.com/free-flash-clocks-blog-topics/free-flash-clock-150.swf")
        AxShockwaveFlash1.Dock = DockStyle.Fill
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True : Dim btn As String = MsgBox("Do you wanted to Exit?", 36, "") : If btn = vbYes Then e.Cancel = False
    End Sub
End Class