MR.B4A 104 ارسال شده در 2 مرداد، ۱۴۰۲ اشتراک گذاری ارسال شده در 2 مرداد، ۱۴۰۲ سلام. چه طوری میشه که یک عکس را از گالری به پوشه ای که میخوایم، کپی کنیم؟! من از دستور copy از کتابخانه file استفاده کردم، اما نتیجه ای نداد: File.Copy(s_path,s_name,rp.GetSafeDirDefaultExternal("")&"\"&"picdeyly",s_name) ممنون میشم راهنماییم کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
MR.B4A 104 ارسال شده در 6 مرداد، ۱۴۰۲ سازنده اشتراک گذاری ارسال شده در 6 مرداد، ۱۴۰۲ دوستان برای این کار هم از این تابع استفاده کنید: 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 با استفاده از کتابخانه content chosser و اینگونه از این تابع استفاده کنید Sub cc_Result (Success As Boolean, Dir As String, FileName As String) GetPathFromContentResult(FileName) End Sub البته این کد فقط مسیر فایل رو بهتون برمیگردونه، اما چیزی رو در حافظه کپی نمیکنه اینم دستور کپی خود عکس البته ربطی به کدهای بالا نداره Dim out As OutputStream out = File.OpenOutput(rp.GetSafeDirDefaultExternal(""),"pic.png",False) Dim bit1 As Bitmap bit1.Initialize3(img_pic.Bitmap) bit1.WriteToStream(out,100,"PNG") out.Close لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
MR.B4A 104
سلام.
چه طوری میشه که یک عکس را از گالری به پوشه ای که میخوایم، کپی کنیم؟!
من از دستور copy از کتابخانه file استفاده کردم، اما نتیجه ای نداد:
File.Copy(s_path,s_name,rp.GetSafeDirDefaultExternal("")&"\"&"picdeyly",s_name)
ممنون میشم راهنماییم کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.