Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > ASP.NET + VDO ผ่านเว็บ ต้องการที่จะโชว์ไฟล์วิดีโอ ช่วยหน่อยนะค่ะ...ภาษา VB.NET



 

ASP.NET + VDO ผ่านเว็บ ต้องการที่จะโชว์ไฟล์วิดีโอ ช่วยหน่อยนะค่ะ...ภาษา VB.NET

 



Topic : 037918



โพสกระทู้ ( 36 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter



โค๊ดสำหรับโชว์ไฟล์วิดีโอค่ะ
<OBJECT CLASSID="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" VIEWASTEXT 
        style="height: 300px; width: 400px">
<PARAM name="autoStart" value="False">
<PARAM name="URL" value="./Movie/Pljacka.wmv">
<PARAM name="enabled" value="True">
<PARAM name="balance" value="0">
<PARAM name="currentPosition" value="0">
<PARAM name="enableContextMenu" value="True">
<PARAM name="fullScreen" value="False">
<PARAM name="mute" value="False">
<PARAM name="playCount" value="1">
<PARAM name="rate" value="1">
<PARAM name="stretchToFit" value="False">
<PARAM name="uiMode" value="full">
</OBJECT>


ต้องการที่จะโชว์ไฟล์วิดีโอ โดยที่มีปุ่มให้คลิ๊กดู..แต่ละรายการ...
เมื่อคลิ๊กรายการที่1ไฟล์ก็จะแสดง
เมื่อคลิ๊ก รายการที่2ก็เปลี่ยนเป็นโชว์ไฟล์ที่2

โค๊ด VB.


Code (VB.NET)
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        Dim ConnString = "Server=abc\SQLEXPRESS;Initial Catalog=database;Integrated Security=True"
        Dim Conn = New SqlConnection(ConnString)
        Conn.Open()
        Dim download As HyperLink = CType(e.Row.FindControl("HyperLink3"), HyperLink)
        If Not IsNothing(download) Then
            download.Text = "HyperLink3"
            download.NavigateUrl = e.Row.DataItem("M_path")
        End If

        Dim hplBuy As HyperLink = CType(e.Row.FindControl("HyperLink4"), HyperLink)
        If Not IsNothing(hplBuy) Then
            hplBuy.Text = "คลิ๊ก ดู" 'สำหรับเลือกดูไฟล์ 
            hplBuy.NavigateUrl = "Cartoon.aspx?M_id=" & e.Row.DataItem("M_id")
        End If
    End Sub


วานช่วยหน่อยนะค่ะ



Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-01-29 12:36:54 By : sunshinesnow View : 4831 Reply : 14
 

 

No. 1



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


ก็เอา e.Row.DataItem("M_id") ไป query ชื่อไฟล์มาใส่ให้ tag <PARAM name="URL" value="./Movie/Pljacka.wmv"> สิครับ


Date : 2010-01-30 11:51:19 By : tungman
 


 

No. 2



โพสกระทู้ ( 36 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter

พี่tungman ใจดีจัง...ว่าแต่..มันต้องเขียนยังไงอ่าค่ะ...ช่วยอธิบายเพิ่มหน่อยได้ป่าวค่ะ...
Date : 2010-01-31 01:54:03 By : sunshinesnow
 

 

No. 3



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


Code (VB.NET)
hplBuy.NavigateUrl = "Cartoon.aspx?M_id=" & e.Row.DataItem("M_id")



พอคลิก link มันจะไปเปิด Cartoon.aspx ซึ่งมี parameter ที่ส่งไปด้วยคือ M_id

สามารถเอา M_id มาใช้งานโดย

Code (VB.NET)
Request.QueryString("M_id")


เอา M_id ไปใช้ในการ query ฐานข้อมูลจาก

Code (VB.NET)
Select * From [Cartoon] Where [MoveieID]=@MovieID

'แทนค่า MovieID ด้วย Request.QueryString("M_id")


เอาชื่อ Movie ที่ query ได้ไป bind ให้กับ parameter ของ flash

Code (ASP)
<PARAM name="URL" value=<%# Eval("ตัวแปรของคุณ") %>>


บรรทัดด้านบนผมไม่ชัวร์ เพราะไม่เคยลอง bind data แบบนี้
Date : 2010-01-31 09:50:29 By : tungman
 


 

No. 4



โพสกระทู้ ( 36 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter

ขอบคุณพี่tungmanนะค่ะ....ลองทำแล้วนะค่ะ...แต่ว่าไฟล์มันไม่เล่นน่ะค่ะ..ไม่ทราบว่าเป็นที่ ตัวโชว์ไฟล์วิดีโอป่าวค่ะ หมายถึงwindow media playerน่ะค่ะ...ไม่ทราบว่าพอจะมีตัวอื่นให้ลองป่ะค่ะ
Date : 2010-02-01 21:43:48 By : sunshinesnow
 


 

No. 5



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


เปลี่ยนตรงชื่อ file video

แต่ถ้าเล่น file ที่ไม่ใช่ wmv ให้เปลี่ยน type="video/x-ms-wmv" เป็นอย่างอื่นด้วย

Code (VB.NET)
<%--The code that can used to play a video file with .wmv extension --%>
    <object type="video/x-ms-wmv" data="1.wmv" width="420" height="340">
        <param name="url" value="1.wmv"/>
        <param name="src" value="1.wmv" />
        <param name="autostart" value="true" />
        <param name="sound" value="false" />
        <param name="controller" value="true" />
    </object>
<%--End code to play video file--%>

Date : 2010-02-02 09:06:16 By : tungman
 


 

No. 6

Guest


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

Dim hplBuy As HyperLink = CType(e.Row.FindControl("HyperLink4"), HyperLink)
        If Not IsNothing(hplBuy) Then
            hplBuy.Text = "คลิ๊ก ดู" 'สำหรับเลือกดูไฟล์ 
            hplBuy.NavigateUrl = "ShowCartoon.aspx?M_id=" & e.Row.DataItem("M_id")






<OBJECT CLASSID="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" VIEWASTEXT 
        style="height: 343px; width: 481px">
            <PARAM name="autoStart" value="False">
            <PARAM name="URL" value="<%# Eval("M_path") %>">
            <PARAM name="enabled" value="True">
            <PARAM name="balance" value="0">
            <PARAM name="currentPosition" value="0">
            <PARAM name="enableContextMenu" value="True">
            <PARAM name="fullScreen" value="False">
            <PARAM name="mute" value="False">
            <PARAM name="playCount" value="1">
            <PARAM name="rate" value="1">
            <PARAM name="stretchToFit" value="False">
            <PARAM name="uiMode" value="full">
        </OBJECT>


รูปในฐานข้อมูล
ฐานข้อมูล
Date : 2010-02-03 09:05:18 By : sunshinesnow
 


 

No. 7



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


PlayMovie.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="PlayMovie.aspx.vb" Inherits="PlayMovie" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Literal ID="Literal1" runat="server"></asp:Literal>
    </div>
    </form>
</body>
</html>

PlayMovie.aspx.vb
Imports System.Data
Imports System.Text

Partial Class PlayMovie
    Inherits System.Web.UI.Page

    Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
        Dim Sb As StringBuilder = New StringBuilder()

        Dim Dt As DataTable = New DataTable()

        Dim Dc As DataColumn = New DataColumn() '<-- อันนี้สมมติว่าเป็นการ query จาก db
        Dc.ColumnName = "M_path" '<-- อันนี้สมมติว่าเป็นการ query จาก db
        Dc.DataType = System.Type.GetType("System.String") '<-- อันนี้สมมติว่าเป็นการ query จาก db
        Dt.Columns.Add(Dc) '<-- อันนี้สมมติว่าเป็นการ query จาก db

        Dim Dr As DataRow = Dt.NewRow() '<-- อันนี้สมมติว่าเป็นการ query จาก db
        Dr("M_path") = "~/ข่มขืนดาราดังช่องเก้า.wmv" '<-- อันนี้สมมติว่าเป็นการ query จาก db
        Dt.Rows.Add(Dr) '<-- อันนี้สมมติว่าเป็นการ query จาก db

        Dim DrData As DataRow = Dt.Rows(0) '<-- Query มาแล้ว

        Sb.AppendFormat("<object type=""video/x-ms-wmv"" data=""{0}"" width=""420"" height=""340"">" & vbCrLf, Page.MapPath(DrData("M_path").ToString())) '<-- ต้องอ้างอิง path แบบนี้
        Sb.AppendFormat(vbTab & "<param name=""url"" value=""{0}"" />" & vbCrLf, Page.MapPath(DrData("M_path").ToString())) '<-- ต้องอ้างอิง path แบบนี้
        Sb.AppendFormat(vbTab & "<param name=""src"" value=""{0}"" />" & vbCrLf, Page.MapPath(DrData("M_path").ToString())) '<-- ต้องอ้างอิง path แบบนี้
        Sb.Append(vbTab & "<param name=""autostart"" value=""true"" />" & vbCrLf)
        Sb.Append(vbTab & "<param name=""sound"" value=""false"" />" & vbCrLf)
        Sb.Append(vbTab & "<param name=""controller"" value=""true"" />" & vbCrLf)
        Sb.Append("</object>" & vbCrLf)

        Literal1.Text = Sb.ToString()
    End Sub
End Class

Date : 2010-02-03 09:58:37 By : tungman
 


 

No. 8



โพสกระทู้ ( 36 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter

แหะ.ๆถามอีกๆ
ถ้าตรงนี้เป็นไฟล์อื่นๆล่ะค่ะ
Code (VB.NET)
Dr("M_path") = "~/ข่มขืนดาราดังช่องเก้า.wmv"

Date : 2010-02-03 10:52:22 By : sunshinesnow
 


 

No. 9



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


ไฟล์อะไรก็ได้ครับ พอดีในเครื่องมีแต่ไฟล์นี้ที่เป็น wmv
Date : 2010-02-03 11:14:27 By : tungman
 


 

No. 10



โพสกระทู้ ( 36 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter

คือไฟล์มันไม่ตายตัวน่ะค่ะ...ตามที่บอกไว้คอมเม้นแรกๆอ่ะค่ะ....คลิ๊กที่ลิงค์แล้วแสดงไฟล์....ปวดหัวกะนู๋หน่อยนะค่ะ...^ ^
Date : 2010-02-03 12:03:42 By : sunshinesnow
 


 

No. 11



โพสกระทู้ ( 3,144 )
บทความ ( 1 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์


ก็อุตส่าห์เขียนโดยแทนใน datatable ให้ดูแล้วนี่ นึกว่าจะเข้าใจ เศร้าเลย

Code (VB.NET)
Imports System.Data
Imports System.Data.SqlClient
Imports System.Text

Partial Class PlayMovie
    Inherits System.Web.UI.Page

    Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
        Dim Sb As StringBuilder = New StringBuilder()

        Dim Dt As DataTable = New DataTable()

        Dim ConnString = "Server=abc\SQLEXPRESS;Initial Catalog=database;Integrated Security=True"
        Dim Conn = New SqlConnection(ConnString)
        Dim sqlCommandString As String = "Select * From [YourTable] Where [M_id]=@ID"
        Dim sqlCommand As SqlCommand = New SqlCommand(sqlCommandString, Conn)
        sqlCommand.Parameters.Add("@ID", SqlDbType.Int).Value = Int.Parse(Request.QueryString("M-id").ToString()

        Dim sqlDataAdapter As SqlDataAdapter = New SqlDataAdapter(sqlCommand)
        sqlDataAdapter.Fill(Dt)

        Dim DrData As DataRow = Dt.Rows(0) '<-- Query มาแล้ว

        Sb.AppendFormat("<object type=""video/x-ms-wmv"" data=""{0}"" width=""420"" height=""340"">" & vbCrLf, Page.MapPath(DrData("M_path").ToString())) '<-- ต้องอ้างอิง path แบบนี้
        Sb.AppendFormat(vbTab & "<param name=""url"" value=""{0}"" />" & vbCrLf, Page.MapPath(DrData("M_path").ToString())) '<-- ต้องอ้างอิง path แบบนี้
        Sb.AppendFormat(vbTab & "<param name=""src"" value=""{0}"" />" & vbCrLf, Page.MapPath(DrData("M_path").ToString())) '<-- ต้องอ้างอิง path แบบนี้
        Sb.Append(vbTab & "<param name=""autostart"" value=""true"" />" & vbCrLf)
        Sb.Append(vbTab & "<param name=""sound"" value=""false"" />" & vbCrLf)
        Sb.Append(vbTab & "<param name=""controller"" value=""true"" />" & vbCrLf)
        Sb.Append("</object>" & vbCrLf)

        Literal1.Text = Sb.ToString()
    End Sub
End Class


เหนื่อย วันนี้พอแค่นี้
Date : 2010-02-03 12:14:40 By : tungman
 


 

No. 12



โพสกระทู้ ( 36 )
บทความ ( 0 )



สถานะออฟไลน์
Twitter

ฮ่าฮ่า....ขอโทดค๊าบบบบ
Date : 2010-02-03 12:16:23 By : sunshinesnow
 


 

No. 13



โพสกระทู้ ( 27 )
บทความ ( 0 )



สถานะออฟไลน์


ผมทำตามที่คุณ tungman บอกไว้แต่ผลเป็นดังนี้ครับ
เมื่อ debug run จาก Visual 2008 สามารถแสดงวีดีโอได้
เมื่อเปิด ie จากตัว server สามารถแสดงวีดีโอได้
แต่เมื่อเปิด ie จาก client ไม่สามารถแสดงวีดีโอได้ครับ
เกิดจากอะไรครับ
Date : 2011-03-16 17:33:57 By : Pigphong
 


 

No. 14

Guest


Server.mappath ไง
Date : 2012-05-28 16:57:33 By : หลงเข้ามา
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ASP.NET + VDO ผ่านเว็บ ต้องการที่จะโชว์ไฟล์วิดีโอ ช่วยหน่อยนะค่ะ...ภาษา VB.NET
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่