ابى افتح ملفات Swf في الasp.net

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

رجاءا ياليت لو تجاوبوني وخصوصا على حفظ ملفات الفيديو والفلاشات في قاعدة البيانات

وابى كمان اعرف عن امكانية جعل المستخدم يحمل هذي الملفات

ومحتاجة ضروري كود التسجيل واللوج ان

اتمنى تجاوبوني يا جماعة الخير

هذا الكود لتشغيل ملفات الفلاش ..

<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" height="219" align="center" style="width: 850px">
				<param name="movie" value="Flash_Banner.swf"/>
				<param name="quality" value="High"/>
				<param name="wmode" value="transparent"/>
				<embed src="Flash_Banner.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" height="219" quality="High" wmode="transparent" style="width: 850px"/>
				</object>

شكرا لك على ردك وعلى الكود بالنسبة للكود هذا وين احطة بالضبط ؟؟

نهوووودة كتب:

شكرا لك على ردك وعلى الكود بالنسبة للكود هذا وين احطة بالضبط ؟؟

في اي مكان داخل تصميم الصفحة

طيب لو الفلاش بلايرswf

موجود واريد استدعاء ملف flv

من داخل الداتا بيز

زي موقع يو تيوب

كيييييييييييييييف

أفضل طريقة حفظ ملفات الفيديو , هي حفظها على مجلد في السيرفر بدلا من حفظها على قاعدة البيانات

ووجدت لكم كود من أحد المواقع .. هذا كود لحفظ الملفات سواء كانت فيديو او صور أو غيرها ويحتاج تعديل حتى يعمل بالشكل المطلوب .. ويفترض ان هناك قاعدة بيانات اسمها Processes.mdf

1	Protected Sub SaveBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
2			Try
3   
4				Dim filename As String = ""
5				Dim filecontent As String = ""
6				Dim path As String = Server.MapPath("~/PMap/Main/" & PMapFU.FileName)

7				Dim allowExtension As String() = {".gif", ".png", ".jpeg", ".jpg", ".bmp"}
8			   
9			   
10			   If PMapFU.HasFile = False Then
11				   ' No file uploaded!
12				   ImgStatus.Text = "Please first select an image to upload"
13				  
14			   Else
15				   Dim fileExtension As String = System.IO.Path.GetExtension(PMapFU.FileName).ToLower
16				   Dim i As Integer
17				  
18				   'Check file type
19				   For i = 0 To allowExtension.Length - 1
20					   If fileExtension = allowExtension(i) Then
21						  
22						   ' Save the file in folder
23						   PMapFU.PostedFile.SaveAs(path)
24						  
25						   ' Display the uploaded file's details
26						   ImgStatus.Text = String.Format( _
27								  "Uploaded file: {0}<br />", _
28								   PMapFU.FileName)
29					   End If
30				   Next
31			   End If
32			  
33			   Dim cnn As Data.SqlClient.SqlConnection
34			   Dim cmd As Data.SqlClient.SqlCommand
35			   Dim param As Data.SqlClient.SqlParameter
36			   Dim strSQL As String
37  
38			   strSQL = "Insert Into MainProcess( ProcessName, ProcessPGU, EntityBelongTo, TeamBelongTo, ProcessOwner, CurrentVersion, VersionDate, FirstIssueDate, PreparedBy, ApprovedBy, Purpose, Description, ProcessMap) Values( @ProcessName, @ProcessPGU, @EntityBelongTo, @TeamBelongTo, @ProcessOwner, @CurrentVersion, @VersionDate, @FirstIssueDate, @PreparedBy, @ApprovedBy, @Purpose, @Description, @ProcessMap)"
39  
40			   Dim connString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=""|DataDirectory|\Processes.mdf"";Integrated Security=True;User Instance=True"
41			   cnn = New Data.SqlClient.SqlConnection(connString)
42  
43			   cmd = New Data.SqlClient.SqlCommand(strSQL, cnn)
44  
45			   param = New Data.SqlClient.SqlParameter("@ProcessName", Data.SqlDbType.NVarChar)
46			   param.Value = PNameTxt.Text
47			   cmd.Parameters.Add(param)
48  
49			   param = New Data.SqlClient.SqlParameter("@ProcessPGU", Data.SqlDbType.NVarChar)
50			   param.Value = PPGUDDL.SelectedValue
51			   cmd.Parameters.Add(param)
52  
53			   param = New Data.SqlClient.SqlParameter("@EntityBelongTo", Data.SqlDbType.NVarChar)
54			   param.Value = EntityDDL.SelectedValue
55			   cmd.Parameters.Add(param)
56				  
57			   param = New Data.SqlClient.SqlParameter("@TeamBelongTo", Data.SqlDbType.NVarChar)
58			   param.Value = TeamDDL.SelectedValue
59			   cmd.Parameters.Add(param)
60				  
61			   param = New Data.SqlClient.SqlParameter("@ProcessMap", Data.SqlDbType.VarChar)
62			   param.Value = "~/PMap/Main/" & PMapFU.FileName
63			   cmd.Parameters.Add(param)
64				  
65			   param = New Data.SqlClient.SqlParameter("@ProcessOwner", Data.SqlDbType.NVarChar)
66			   param.Value = POwnerTxt.Text
67			   cmd.Parameters.Add(param)
68				  
69			   param = New Data.SqlClient.SqlParameter("@CurrentVersion", Data.SqlDbType.Decimal)
70			   param.Value = CurrentVerTxt.Text
71			   cmd.Parameters.Add(param)
72				  
73			   param = New Data.SqlClient.SqlParameter("@VersionDate", Data.SqlDbType.DateTime)
74			   param.Value = VerDateTxt.Text
75			   cmd.Parameters.Add(param)
76				  
77			   param = New Data.SqlClient.SqlParameter("@FirstIssueDate", Data.SqlDbType.DateTime)
78			   param.Value = FIDateTxt.Text
79			   cmd.Parameters.Add(param)
80  
81			   param = New Data.SqlClient.SqlParameter("@PreparedBy", Data.SqlDbType.NVarChar)
82			   param.Value = PreparedByTxt.Text
83			   cmd.Parameters.Add(param)
84				  
85			   param = New Data.SqlClient.SqlParameter("@ApprovedBy", Data.SqlDbType.NVarChar)
86			   param.Value = ApprovedByTxt.Text
87			   cmd.Parameters.Add(param)
88				  
89			   param = New Data.SqlClient.SqlParameter("@Purpose", Data.SqlDbType.NVarChar)
90			   param.Value = PurposeTxt.Text
91			   cmd.Parameters.Add(param)
92				  
93			   param = New Data.SqlClient.SqlParameter("@Description", Data.SqlDbType.NVarChar)
94			   param.Value = DescTxt.Text
95			   cmd.Parameters.Add(param)
96  
97				  
98			   cnn.Open()
99			   cmd.ExecuteNonQuery()
100			  cnn.Close()
101		
102			  SaveMsg.Text = PNameTxt.Text + " is saved!"
103			  Return
104		  Catch ex As Exception
105			  SaveMsg.Text = ex.Message.ToString
106		  End Try
107 
108	  End Sub
109

وقريبا سأعرض لكم كود عرض الملفات ( الفيديو )