Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 0
morteza520

قرار دادن عکس کاربر به عنوان پروفایل

سوال

سلام

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

دوستان اگه کسی بلده راهنمایی کنه.ممنون

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


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

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

  • 0

اول باید بیاید اون رو یک جا آپلود کنی و لینکش رو بگیری و بعد توی دیتابیس قرار بدی سپس بگی با کتابخانه پیکاسو بیاد لینک عکس رو از دیتابیس آنلاین بگیره و توی امیج ویو پروفایل ذخیره کنه کار حدودا سختی هست اما شدنی هست

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

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


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

اول باید بیاید اون رو یک جا آپلود کنی و لینکش رو بگیری و بعد توی دیتابیس قرار بدی سپس بگی با کتابخانه پیکاسو بیاد لینک عکس رو از دیتابیس آنلاین بگیره و توی امیج ویو پروفایل ذخیره کنه کار حدودا سختی هست اما شدنی هست

سینا جان. یک نمونه سورس قرار میدی؟

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

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


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

نه خو من اینجوری نمیخوام آفلاین میخوام باشه.

فقط میخوام کاربر بتونه یه عکس رو به برنامه اضافه کنه و اینکه دفعه بعد هم که وارد برنامه میشه اون عکس تو برنامه باشه

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


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

نه خو من اینجوری نمیخوام آفلاین میخوام باشه.

فقط میخوام کاربر بتونه یه عکس رو به برنامه اضافه کنه و اینکه دفعه بعد هم که وارد برنامه میشه اون عکس تو برنامه باشه

 

 

دانلود سورس و کتابخانه مورد نظر

 

توجه: در کدهام کاری کردم که اگر عکس با حجم بالا(همون عکسای دوربین گوشی) هم اگر انتخاب شد بازم خطا نده. خیلی از این چنین برنامه ها موقع انتخاب عکس سنگین خطا میگیره و فورس کلوز میزنه

 

کل کدها

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

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

Sub Process_Globals

	Dim PicChooser As ContentChooser
End Sub

Sub Globals
	Dim cat As Bitmap
Dim ImageView1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("1")

' چون در ابتدا در مسیر پایین عکسی وجود ندارد برنامه خطا میده برای همین توی ترای کچ گذاشتم
Try
ImageView1.SetBackgroundImage(LoadBitmap(File.DirRootExternal,"virayesh.jpg"))	
Catch
Log("")	
End Try
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	PicChooser.Initialize("PicChooser")
    PicChooser.Show("image/*", "انتخاب عکس از مسیر:")	
End Sub
	
Sub PicChooser_Result(Success As Boolean, Dir As String, FileName As String)
If Success = True Then
ImageView1.Visible=True

File.Copy(Dir,FileName,File.DirRootExternal,"virayesh.jpg")

Dim bt As Bitmap
bt.Initialize(File.DirRootExternal,"virayesh.jpg")
' در پایین طول و عرض عکس رو میگیریم و اگر بزرگ بود آن را کوچک میکنیم.چون اگر کوچک نکنیم عکس انتخاب نمیشه و خطا میده

If bt.Width>3264 Or bt.Height>2448 Then
Dim resiz As ResizePicture
resiz.resize(File.DirRootExternal,"virayesh.jpg", 3264, 2448, File.DirRootExternal,"virayesh2","jpg","yes")
cat.Initialize(File.DirRootExternal,"virayesh2.jpg")
ImageView1.Bitmap = cat
Else
cat.Initialize(File.DirRootExternal,"virayesh.jpg")
ImageView1.Bitmap = cat
End If

Else
ToastMessageShow("عکس انتخاب نشد", True)
End If

End Sub	
H@mid.RS، Sina و طاها الیاس زاده پسندیده اند

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


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

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

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

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

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


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

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

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


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