السلام عليكم ورحمة الله مشروعي عبارة عن ارسال فيديو من المرسل الى الخادم وعند الأرسال يستقبل المستخدم الفيديو في قاعدة بيانات والمشكلة في الكود الذي سيحفظ هذا الفيديو في قاعدة البيانات.....وشكرا
حفظ الفيديو في قاعدة البيانات
بسم الله الرحمن الرحيم
أخى العزيز
ممكن تضع فى قاعدة البيانات اسم الفيديو بس
و عند ألأستعراض يتم احضار اسم الفيديو من قاعدة البيانات و يتم تشغيله من خلاص مساره مثلا
اتمنى اكون افدتك
طيب لو تكرمت مشكور توضح لي كيف احفظ المسار في قاعدة البيانات ............يعطيك العافية شوي شوي
ممكن تحوله ل byte[] و تحفظه في عمود من نوع blob أو binary
طيب ماهو الكود الذي يجعلني احول الفيديو الى بايت .......يعطيكم العافية
عملت الكود هذا وهو حفظ فيديو في قاعدة بيانات sql ولم ينفذ معاي فالرجاء المساعدة وشكرا......
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Public Class Media
Dim Len As Integer
Public sConnectionString As String = "Server=HANEEN-FC55FD03;Database=video;Trusted_Connection=True;"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ImportBLOB()
End Sub
Sub ImportBLOB()
Dim fs As New FileStream _
("c:\New Folder\wda3nqramy.mp3", FileMode.OpenOrCreate, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fs)
Dim iLen As Integer = CInt(fs.Length)
Len = iLen
Dim bBLOBStorage(iLen) As Byte
fs.Read(bBLOBStorage, 0, iLen)
fs.Close()
Dim cn As New SqlConnection(sConnectionString)
Dim cmd As SqlCommand = New SqlCommand _
("INSERT INTO MyBLOBTable (blob_description , blob_data) Values(@blob_description, @blob_data)", cn)
cmd.CommandType = CommandType.Text
cmd.Parameters.Add("@blob_description", SqlDbType.VarChar)
cmd.Parameters("@blob_description").Direction = ParameterDirection.Input
cmd.Parameters.Add("@blob_data", SqlDbType.VarBinary)
cmd.Parameters("@blob_data").Direction = ParameterDirection.Input
' Store the file name
cmd.Parameters("@blob_description").Value = "Tanhaiyaa"
' Store the byte array in the image field
cmd.Parameters("@blob_data").Value = bBLOBStorage
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RetrieveBLOB()
End Sub
Sub RetrieveBLOB()
Dim MediaFile As New FileStream("c:\.mp3", FileMode.OpenOrCreate, FileAccess.Write)
Dim bw As BinaryWriter
bw = New BinaryWriter(MediaFile)
Dim cn As New SqlConnection(sConnectionString)
Dim da As New SqlDataAdapter _
("Select blob_data From MyBLOBTable where id = 4", cn)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet
Try
cn.Open()
da.Fill(ds, "MyBLOBTable")
Dim rw As DataRow
rw = ds.Tables("MyBLOBTable").Rows(0)
' Make sure we've got some rows
Dim i As Integer = ds.Tables("MyBLOBTable").Rows.Count
If i > 0 Then
' Callout A Begin
'Setup up a byte array for the BLOB object
Dim bBLOBStorage() As Byte = _
ds.Tables("MyBLOBTable").Rows(i - 1)("blob_data")
'Write byte array to File object
bw.Write(bBLOBStorage)
' Callout A End
End If
Catch ex As Exception
MsgBox(ex.ToString)
Finally
cn.Close()
cn = Nothing
End Try
End Sub
End Class