• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 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

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


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

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

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

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

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


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

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

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


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