رفتن به مطلب
  • 0

مشکل در آپلود فیلم در دیتا بیس


rezanaseri

سوال


من می خوام یک ویذیو از گالری انتخاب کنم
تا اینجا رو انجام میدم

وقتی می خوام این ویدیو را 

#Region  Project Attributes 
	#ApplicationLabel: uploadvideo
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
    Dim Up As UploadFilePhp
	Dim cc As ContentChooser
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button

	Private Button2 As Button
	
	
	Dim vv1 As VideoView
	Private Panel1 As Panel
	Dim http As HttpJob
	Dim filmname As String
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("1")
	
	vv1.Initialize("vv1")
	http.Initialize("Job1",Me)
	Panel1.AddView(vv1,0,0,Panel1.Width,Panel1.Height)
   

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click

	Dim cc As ContentChooser
	cc.Initialize("videochooser")
	cc.Show("video/*","انتخاب تصویر")
	Panel1.Visible = True
	vv1.MediaControllerEnabled = True
	vv1.Play
End Sub
Sub videochooser_Result(Success As Boolean, Dir As String, FileName As String)
	If Success = True Then
		vv1.LoadVideo(Dir,FileName)
		

	End If
	
	
End Sub
Sub Button2_Click
	

	filmname = vv1.toString
	http.PostFile("http://fater.bartar124.ir/phpfile/film/upload.php?FileName="&filmname,File.DirInternal,filmname)
	ProgressDialogShow("در حال ثبت اطلاعات...")
	
	
	

End Sub

Sub JobDone (Job As HttpJob)

	ProgressDialogHide
	If Job.Success = True Then
		Select Job.JobName
			Case "Job1"
				
			
				Msgbox( Job.GetString,"پیام سیستم")
				
				
		
		End Select
	Else
		ToastMessageShow("خطا در برقراری اتصال" , False)
	End If
	Job.Release
	
		 
			
End Sub

'

بفرستم رو هاست ارور میده

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

به روش زیر عمل کنید

کدهای بیسیک

 

 

Sub Process_Globals
	Dim cc As ContentChooser

End Sub
Sub Globals
	Dim fp  As string
	Dim times As String = DateTime.GetYear(DateTime.Now)&DateTime.GetDayOfMonth(DateTime.Now)&DateTime.GetMonth(DateTime.Now)&DateTime.GetHour(DateTime.Now)&DateTime.GetMinute(DateTime.Now)&DateTime.GetSecond(DateTime.Now)

End Sub
Sub select_video_click
	cc.Show("video/*","Choose move")
End Sub


Sub GetPathFromContentResult(UriString As String) As String
	If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
	Dim Cursor1 As Cursor
	Dim Uri1 As Uri
	Dim Proj() As String = Array As String("_data")
	Dim cr As ContentResolver
	cr.Initialize("")
	If UriString.StartsWith("content://com.android.providers.media.documents") Then
		Dim i As Int = UriString.IndexOf("%3A")
		Dim id As String = UriString.SubString(i + 3)
		Uri1.Parse("content://media/external/video/media")
		Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
	Else
		Uri1.Parse(UriString)
		Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
	End If
	Cursor1.Position = 0
	Dim res As String
	res = Cursor1.GetString("_data")
	Cursor1.Close
	Return res
End Sub



Sub Choose_Result (Success As Boolean, Dir As String, FileName As String)
	Dim Dirs As AriaFile
	Dirs.initialize2(GetPathFromContentResult(FileName))
	fp = Dirs.GetPath
End Sub

Sub Send
	Dim download as PersianFastNetwork	
	download.initialize("download").BuildUploadQuery("http://name.ir/upload.php","move") _
	.addMultipartFile("move",fp).addMultipartParameter("moveName",times) _
	.startUploadAsString
End Sub

Sub download_onStringUploadOK(response As String  , Tag As String)

Select Tag
		Case "move"
Log(response)

End Select
End Sub

 

کدهای PHP

upload.php

<?php


// Path to move uploaded files
$target_path = "move/";
 
// array for final json respone
$response = array();

// getting server ip address
$server_ip =$_SERVER['SERVER_NAME'];
$scriptname=$_SERVER['SCRIPT_NAME'];
$scriptpatch=substr($scriptname, 0, -10);
// final file url that is being uploaded
 $Name =$_POST['Name'];

 if (isset($_FILES['move']['name'])) {
    $target_path = $target_path . $Name.$_FILES['move']['name'];
        
        // Throws exception incase file is not being moved
    
        if (!move_uploaded_file($_FILES['move']['tmp_name'], $target_path)) {
            // make error flag true
            $response['error'] = 'Error';
        } else {
      $response['move_link'] = 'http://'.$server_ip.$scriptpatch.$target_path; 
      }}

echo json_encode($response);
?>

 

توجه!

این قسمت

$scriptpatch=substr($scriptname, 0, -10);

اون -10رو توجه کنید

این قسمت تعدا حروف نام فایل php هست که اینجا upload.php هست

و یه پوشه هم بنام move در کنار فایل php بسازید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 43 دقیقه قبل، rezanaseri گفته است :

سلام دوباره 

کتابخانه persianfastnetwork رو کسی داره؟

 

سلام مجدد

توی فروشگاه همین انجمن هست

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما آدرس فایلو تنظیم نکردید.

برای گرفتن آدرس فایل از ContentChooser از پست زیر استفاده کنید.

البته کدشو هم قرار میدم

Sub GetPathFromContentResult(UriString As String) As String
  If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image
  Dim Cursor1 As Cursor
  Dim Uri1 As Uri
  Dim Proj() As String = Array As String("_data")
  Dim cr As ContentResolver
  cr.Initialize("")
  If UriString.StartsWith("content://com.android.providers.media.documents") Then
  Dim i As Int = UriString.IndexOf("%3A")
  Dim id As String = UriString.SubString(i + 3)
  Uri1.Parse("content://media/external/images/media")
  Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "")
  Else
  Uri1.Parse(UriString)
  Cursor1 = cr.Query(Uri1, Proj, "", Null, "")
  End If
  Cursor1.Position = 0
  Dim res As String
  res = Cursor1.GetString("_data")
  Cursor1.Close
  Return res
End Sub
Sub videochooser_Result(Success As Boolean, Dir As String, FileName As String)
	If Success = True Then
		vv1.LoadVideo(Dir,FileName)
		
		ETname.Text=GetPathFromContentResult(FileName)
	End If

«موفق باشید.»

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...