movies/action/T/Transformers/Trasnformers.mp4
Protected Sub Upload(sender As Object, e As EventArgs)
Dim filename As String = Path.GetFileName(FileUpload1.PostedFile.FileName)
Dim contentType As String = FileUpload1.PostedFile.ContentType
Using fs As Stream = FileUpload1.PostedFile.InputStream
Using br As New BinaryReader(fs)
Dim bytes As Byte() = br.ReadBytes(DirectCast(fs.Length, Long))
Using con As New SqlConnection(constr)
Dim query As String = "insert into tbl_Movies values (@Movie_Title, @ContentType, @Data),@Secret_Code"
Using cmd As New SqlCommand(query)
cmd.Connection = con
cmd.Parameters.Add("@Movie_Title", SqlDbType.VarChar).Value = Movie_Title
cmd.Parameters.Add("@ContentType", SqlDbType.VarChar).Value = ContentType
cmd.Parameters.Add("@Data", SqlDbType.Binary).Value = bytes
cmd.Parameters.Add("@Secret_Code", SqlDbType.Binary).Value = Secret_Code
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Using
End Using
End Using
End Using
Response.Redirect(Request.Url.AbsoluteUri)
End Sub
Private Sub BindGrid()
Using con As New SqlConnection(constr)
Using cmd As New SqlCommand()
cmd.CommandText = "select * from tbl_Movies "
cmd.Connection = con
con.Open()
GridView1.DataSource = cmd.ExecuteReader()
GridView1.DataBind()
con.Close()
End Using
End Using
End Sub
Protected Sub DownloadFile(sender As Object, e As EventArgs)
Dim id As Integer = Integer.Parse(TryCast(sender, LinkButton).CommandArgument)
Dim bytes As Byte()
Dim fileName As String, contentType As String
Using con As New SqlConnection(constr)
Using cmd As New SqlCommand()
cmd.CommandText = "SELECT Movie_Title, Data, ContentType from tbl_Movies where id=@id"
cmd.Parameters.AddWithValue("@id", id)
cmd.Connection = con
con.Open()
Using sdr As SqlDataReader = cmd.ExecuteReader()
sdr.Read()
bytes = DirectCast(sdr("Data"), Byte())
contentType = sdr("ContentType").ToString()
fileName = sdr("Movie_Title").ToString()
End Using
con.Close()
End Using
End Using
Response.Clear()
Response.Buffer = True
Response.Charset = ""
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Response.ContentType = contentType
Response.AppendHeader("Content-Disposition", "attachment; filename=" + fileName)
Response.BinaryWrite(bytes)
Response.Flush()
Response.End()
End Sub
Result - URL = http://localhost/secret-code-2323232443
play on video player