เอาไฟล์VDOลงในฐานข้อมูล<Access>ทำไงแล้วผมจะเอามาแสดงบนVBได้ยังไง ช่วย บอก หน่อย คับ
ถ้า video อยู่ในฐานข้อมูล เวลาเรียกออกมามันจะเป็น binary stream
แล้วจะเอา binary stream ส่งไปให้ wmp ทางไหนลองหาดู
Date :
2010-01-31 09:54:46
By :
tungman
งั้น เอา ไฟล์ VDO แสดง ใน VB ดัง รูป ต้อง ทาม ไง อา คับบ
ขอคำอธิบาย พร้อม ภาพหน่อยน่ะคับ
Date :
2010-01-31 13:46:32
By :
tongona
โปรเจ็คไม่น่าสนใจ + ขี้เกียจ ขอผ่านแล้วกันครับ
Date :
2010-01-31 14:14:24
By :
tungman
มันเป็น โปรแกรม ช่วย สอน ผู้ พิ กาน ทาง หู เรียน รู้ ภา ษา ไทย อ่า คับ
Date :
2010-01-31 17:37:34
By :
tongona
เขียนซะผมเป็นคนใจดำไปเลย มันก็คือโปรเจ็คจบใช่ไหมล่ะครับ
แค่ชื่อโปรแกรมว่าโปรแกรมช่วยสอนผู้พิการ ทางหูเรียนรู้ภาษาไทย
โปรเจ็คไม่น่าสนใจ + ขี้เกียจ + เสียอารมณ์ ขอผ่านครับ
รอคนอื่นมาตอบแล้วกัน เสียอารมณ์ตั้งแต่ no.2 ยังไม่รู้ตัว
เขียนภาษาไทยผิดๆ ถูกๆ แล้วยังจะสอนภาษาไทยคนอื่นอีก
Date :
2010-01-31 18:51:02
By :
tungman
ช่วยนักศึกษาตาดำๆ หน่อย จะได้มีเวลาไปศึกษาภาษาไทย
เขาเอา binary data มาเขียนเป็น file ก่อน แล้วค่อย add media ให้ wmp เล่น
Code (VB.NET)
AxWindowsMediaPlayer1.URL = "your media file path."
AxWindowsMediaPlayer1.Ctlcontrols.play()
การ add wmp toolbox
1) คลิกขวาที่ toolbox เลือก "Choose Items..." เลือก COM Components tab ติ๊กที่ Windows Media Player control.
2) ลาก Windows Media Control มาใส่ในฟอร์ม
3) กำหนด property ใน Windows Media Control เล่นวิดีโอโดย กำหนดตามตัวอย่าง
Player.URL = c:\test.wmv
Date :
2010-01-31 19:07:49
By :
tungman
Imports NameSpace
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
ตาราง VideoFile
- ID (AutoNumner)
- FileName (Text)
- ContentType (Text)
- BinaryData (OLE Object)
Read Data From Database
Dim AccessDbString As String = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0}\AccessDatabase.mdb", Application.StartupPath)
Dim AccessConnection As OleDbConnection = New OleDbConnection(AccessConnectionString)
Dim AccessCommandString As String = "Select * From [VideoFile] Where [ID]=@ID"
Dim AccessCommand As OleDbCommand = New OleDbCommand(AccessCommandString, AccessConnection)
AccessCommand.Parameters.Add("@ID", OleDbType.Integer).Value = 2
Dim Dt As DataTable = New DataTable()
Dim AccessDataAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessCommand)
AccessDataAdapter.Fill(Dt)
Dim Dr As DataRow = Dt.Rows(0)
Dim BinaryData() As Byte = CType(Dr("BinaryData"), Byte())
Write to a File
Dim WriteFile As FileStream = File.OpenWrite(String.Format("{0}\{1}", Application.StartupPath, Dr("FileName").ToString()))
WriteFile.Write(BinaryData, 0, BinaryData.Length)
WriteFile.Close()
Play with Windows media Control
AxWindowsMediaPlayer1.URL = String.Format("{0}\{1}", Application.StartupPath, Dr("FileName").ToString())
AxWindowsMediaPlayer1.Ctlcontrols.play()
Date :
2010-01-31 20:34:19
By :
tungman
แพนด้ากัญชา โหดแต่ชอบ
+1 รักภาษาไทยครับ
Date :
2010-02-01 10:24:45
By :
numenoy
vb.net ใช่มั้ย นึกว่าเป็น vb6 กำลังจะจัดให้แล้วเชียวครับ
Date :
2010-02-01 10:34:29
By :
Sek-Artdrinker
ขอโทษที่คับของผมเป็นVB6 แล้วต้องเหมือนกันแบบนี้ด้วยไหมอ่าคับ
ขอโทดคับผมพึ่งทำVB6เป็นครั้งแรกเองคับ
ขอโทดทีคับยังไม่รู้อ่ะไรมากคับ
ขอบคุณสำหรับคำแนะนำดี ๆ
Date :
2010-02-05 11:23:29
By :
tongona
งงมาก
Date :
2010-10-05 11:12:06
By :
...
การ add wmp toolbox
1) คลิกขวาที่ toolbox เลือก "Choose Items..." เลือก COM Components tab ติ๊กที่ Windows Media Player control.
2) ลาก Windows Media Control มาใส่ในฟอร์ม
3) กำหนด property ใน Windows Media Control เล่นวิดีโอโดย กำหนดตามตัวอย่าง
Player.URL = c:\test.wmv
COM Components tab ของผม มันมีแต่ Windows Media Player ครับ กดแล้วมันก็ไม่ขึ้น tools อะไรให้เลยครับ
เป็นที่อะไรอะครับที่นี่
ขอบคุณครับ
Date :
2011-02-03 16:52:11
By :
naja007
Load balance : Server 01