نحوه قراردادن ویدیو در دیتابیس

[khadeejeh 0]

سلام به همگی

میخوام یه  برنامه آموزشی بسازم که کاربر رو هر موضوعی که کلیک کرد ، کلیپ آموزشی مربوط به اون موضوع پخش بشه ! حالا من میخوام بدونم این کار دقیقا چطور انجام میشه ؟ یعنی مراحل این کار رو برام بگین 

در ضمن کلیپ ها از جایی دانلود نمیشن و تو خود برنامه هستن یعنی برنامه آفلاین عمل میکنه و به جایی وصل نیست ! ممنون میشم راهنماییم کنید 

[alirezakazemizaroomi 437]

سلام

فیلم هاتو مثلا بصورت"1.mp4.2"،"mp4"و... میریزی تو پوشه فایل برنامت؛بعد با دستور زیر یکی یکی کپی کن تو گوشی:

ابتدا یه پوشه به اسم مثلا ax بساز:

File.MakeDir(File.DirRootExternal, "ax")

بعد کپی کن:

File.Copy(File.DirAssets,"1.mp4",File.DirRootExternal& "/ax","1.mp4")

File.Copy(File.DirAssets,"2.mp4",File.DirRootExternal& "/ax","2.mp4")

و

.

.

 

حالا مثلا یه دکمه رو میزنی و میری تو اکتیویتی کلیپ هات؛ کد اکتیوی اینطوری میشه:

Sub Process_Globals


End Sub

Sub Globals

    Dim vw As VideoView
	Private ListView1 As ListView
	Dim pos As Int
	Dim po As Int
	Dim ring As RingtoneManager
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("lay1")
	Activity.Color=Colors.Transparent
	vw.Initialize("vw")
	Activity.AddView(vw,0,0,100%x,20%y)
    Dim l As List
	l=File.ListFiles(File.DirRootExternal&"/ax" )
	For i=0 To l.Size-1
    Dim n As String
	n=l.Get(i)
		

	ListView1.AddSingleLine(n)

	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

تو لایوت "lay1" فقط یه لیست ویو تعریف کردم که مشخصاتش داخل دیزاینر اسکریپت اینه:

ListView1 .SetLeftAndRight(0%x,100%x)
ListView1 .SetTopAndBottom(35%y,100%y)

[حاج حسین 2,098]

مدیران انتقال= انتقال مدیران