با کتابخونه UploadFilePhp میخوام فیلمو از گالری آپلود کنم اما نمیشه- توی آپلود تصاویر مشکلی نیست - اما ویدیو رو نمیدونم چرا ارسال نمیکنه
Sub Choose4_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim uriImage As String = GetPathFromContentResultt(FileName)
lblpic3.Text=""
Dim link , finish3 As String
link = "http://telegramd.ir/proj/barchasb/test/php/up/uploads/"
Dim x = GetPathFromContentResultt(FileName) As String
Dim theFileName = x.SubString(x.LastIndexOf("/")+1) As String
finish3 = link & theFileName
Msgbox(finish3,"address")
video=""
video=finish3
Up.doFileUpload(ProgressBar4,lblvideo,uriImage,Url_Php_Page)
ToastMessageShow(" بارگذاری شد",False)
Else
ToastMessageShow(" خطا ",False)
End If
End Sub
Sub GetPathFromContentResultt(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/videos/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
یه پروگرس هم گذاشتم واسه نمایش درصد آپلود - در واقع عملیات پروگرس انجام میشه - اما فایل ویدیویی رو سرور دیده نمیشه
سوال
میلاد 441
سلام
با کتابخونه UploadFilePhp میخوام فیلمو از گالری آپلود کنم اما نمیشه- توی آپلود تصاویر مشکلی نیست - اما ویدیو رو نمیدونم چرا ارسال نمیکنه
Sub Choose4_Result (Success As Boolean, Dir As String, FileName As String) If Success Then Dim uriImage As String = GetPathFromContentResultt(FileName) lblpic3.Text="" Dim link , finish3 As String link = "http://telegramd.ir/proj/barchasb/test/php/up/uploads/" Dim x = GetPathFromContentResultt(FileName) As String Dim theFileName = x.SubString(x.LastIndexOf("/")+1) As String finish3 = link & theFileName Msgbox(finish3,"address") video="" video=finish3 Up.doFileUpload(ProgressBar4,lblvideo,uriImage,Url_Php_Page) ToastMessageShow(" بارگذاری شد",False) Else ToastMessageShow(" خطا ",False) End If End Sub Sub GetPathFromContentResultt(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/videos/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
یه پروگرس هم گذاشتم واسه نمایش درصد آپلود - در واقع عملیات پروگرس انجام میشه - اما فایل ویدیویی رو سرور دیده نمیشه
php:
الان متوجه شدم که حجم بالای 2 مگا بایت رو آپلود نمیکنه-چطور این محدودیت رو بردارم ؟؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.