گرفتن حجم عکس

[MR.B4A 126]

سلام به همه

چه طوری میشه حجم یک عکس رو نمایش داد؟

یعنی مثلا عکس 3 مگابایته و وقتی انتخاب میشه، بشه حجمشو دید.

[MR.B4A 126]

در ۱۴۰۳/۲/۲۷ در ۱۳:۳۳، امین شاهدی گفته است:

سلام کتابخونه AriaFile رو تست کنید : 

	'dar surati ke address uri :
	Dim ariafile As AriaFile
	ariafile.initialize4(uri)
	Dim afu As AriaFileUtils
	Dim size As Long = afu.SizeOfFile(ariafile)
	
	'Path string
	Dim size As Long = afu.SizeOfFile2(FULLPATH)
	Dim size As Long = afu.SizeOfFile3(Di,FileName)
	
	Log(size)
	Log(afu.CalcSize_EN(size))
	Log(afu.CalcSize_FA(size))

 

ببخشین میشه یه ذره دقیق تر بکین

مثلا uri از چه نوعیه؟!
و این که میشه در کتابخونه ContentChooser ازش استفاده کرد؟

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)

Endif

از مسیری که به عنوان ورودی این ساب آمده میتوان توی سورس شما استفاده کرد؟!

[محمدرضا شاهپیری 5,583]

درود.

از دستور File.Size میتونید استفاده کنید

[MR.B4A 126]

۵ ساعت قبل، محمدرضا شاهپیری گفته است:

درود.

از دستور File.Size میتونید استفاده کنید

سلام استاد

ببینید این دستور آدرس عکسو میخواد که من آدرسو با کتابخونه BSFileChooser مسیر عکسو گرفتم که وقتی FilePath رو به عنوان ورودی میدم، برام عدد 0 برمیگردونه!!
مشکلم الان اینه

[MR.B4A 126]

up

[امین شاهدی 5,773]

سلام کتابخونه AriaFile رو تست کنید : 

	'dar surati ke address uri :
	Dim ariafile As AriaFile
	ariafile.initialize4(uri)
	Dim afu As AriaFileUtils
	Dim size As Long = afu.SizeOfFile(ariafile)
	
	'Path string
	Dim size As Long = afu.SizeOfFile2(FULLPATH)
	Dim size As Long = afu.SizeOfFile3(Di,FileName)
	
	Log(size)
	Log(afu.CalcSize_EN(size))
	Log(afu.CalcSize_FA(size))