 |
|
|
 |
 |
|
ถ้า 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 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|