• 0
Keivan

مشکل در cropکردن

سوال

سلام دوستان

من به راحتی عکس رو crop میکنم و استفاده میکنم ولی وقتی بار دیگه میرم گالری برای cropکردن ولی cropنمیکنم بازم همون عکس قبلی که cropکرده بودم میاد..مشکل من کجاست؟

چیکارش کنم که وقتی crop کرد دیگه تو حافظه اش نمونه

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


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

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

  • 0

ببخشید شما با چی crop  می کنید؟ با کدوم کتابخانه؟

Keivan پسند دیده است

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


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

ببخشید شما با چی crop  می کنید؟ با کدوم کتابخانه؟

از کتابخونه استفاده نمیکنم!.. کتابخونه خاصی داره مگه?

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


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

ببخشید شما با چی crop  می کنید؟ با کدوم کتابخانه؟

 

با این تابع میتونید توسط اینتنت کراپ کنید

Sub CropImageInGallery(Directory As String, PictureName As String)
	Dim i As Intent
 
	i.Initialize(i.ACTION_PICK, "")
	i.SetType("image/*")
    	i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
	If check=True Then
	i.PutExtra("crop", "true") 'crop ON
	i.PutExtra("aspectX", 100%x) 'crop aspects
	i.PutExtra("aspectY", 100%x) 'crop aspects
	i.PutExtra("outputX", 100%x) 'crop size
	i.PutExtra("outputY", 100%x) 'crop size
	Else 
	i.PutExtra("crop", "true") 'crop ON
	i.PutExtra("aspectX", 100%x) 'crop aspects
	i.PutExtra("aspectY", 300%x) 'crop aspects
	i.PutExtra("outputX", 100%x) 'crop size
	i.PutExtra("outputY", 300%x) 'crop size
	End If
	StartActivity(i)
End Sub
ali.1020، H@mid.RS، Keivan و 2 کاربر دیگر پسندیده اند

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


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

با این تابع میتونید توسط اینتنت کراپ کنید

Sub CropImageInGallery(Directory As String, PictureName As String)
	Dim i As Intent
 
	i.Initialize(i.ACTION_PICK, "")
	i.SetType("image/*")
    	i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
	If check=True Then
	i.PutExtra("crop", "true") 'crop ON
	i.PutExtra("aspectX", 100%x) 'crop aspects
	i.PutExtra("aspectY", 100%x) 'crop aspects
	i.PutExtra("outputX", 100%x) 'crop size
	i.PutExtra("outputY", 100%x) 'crop size
	Else 
	i.PutExtra("crop", "true") 'crop ON
	i.PutExtra("aspectX", 100%x) 'crop aspects
	i.PutExtra("aspectY", 300%x) 'crop aspects
	i.PutExtra("outputX", 100%x) 'crop size
	i.PutExtra("outputY", 300%x) 'crop size
	End If
	StartActivity(i)
End Sub

عزیز، من از همین روش استفاده میکنم ولی همین مشکلو دارم

طاها الیاس زاده پسند دیده است

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
بازم همون عکس قبلی که cropکرده بودم میاد..مشکل من کجاست؟

چیکارش کنم که وقتی crop کرد دیگه تو حافظه اش نمونه

 

برای این کار میتونی قبلش بیایی اون عکس قبلی رو پاک کنی( بهتره بجای DirRootExternal از DirInternal استفاده کنید)

If File.Exists(File.DirRootExternal, "1.jpg")=True Then
	File.Delete(File.DirRootExternal, "1.jpg")
End If
Sina پسند دیده است

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری