ذخیره اطلاعات کاربر در گوشی

[top206 34]

سلام دوستان

من یه شبکه اجتماعی ساده طراحی کردم فقط یه مشکلی داره اونم اینکه کاربر که ثبت نام میکنه و وارد برنامه میشه چجوری اونو همیشه انلاین نگه دارم یا به عبارت دیگه بعد از یکبار وارد کردن یوزر و پسورد به برنامه همیشه انلاین باشه و برای دفعه های بعدی ورود دیگه نخواد login کنه!؟

نمیدونم منظورمو درست بهتون رسوندم یا نه

بهر حال اگه کسی متوجه شد و راه حلی داشت بی زحمت بگه *herher*

ممنون

موفق باشید*give_rose*

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

دفعه اول که یوزر و پسورد دادن اونو توی یه فایل txt یا دیتابیس ذخیره کن...

بعد با if شرط بزار اگه مثلا فلان فایل وجود داشت یوزر و پسورد رو ازون فایل بگیره...

[top206 34]

اینم راه درست و خوبیه ولی تو اندروید یه امکان ذخیره اطلاعات هست فک کنم اسمش prefrences هست که میشه تنظیمات کاربران رو باهاش ذخیره کرد

من کتابخونه ahprefrence رو امتحان کردم ولی بدرد کار من نمیخورد!

شما واسه اینکه بتونیم ازین قابلیت استفاده کنیم راهی نداری؟

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

نیاز نیست کارتون رو سخت کنین... از همون راه برو ساده تره....اگه هم مشکلت امنیتی میتونی خیلی راحت encrypt کنیش

[پژمان نیکروان 6,055]

این کاریه که من تو نرم افزار آنی بلاگ انجام داده بودم.

این کد رو داخل باتون لاگینت بذار. با فرض این که اسم دوتا تکست هات 1 و 2 هست.

Try
Dim user As String
Dim pass As String
user=File.ReadString(File.DirInternal,"useraniblog.txt")
pass=File.ReadString(File.DirInternal,"passaniblog.txt")
Catch
Log("felan")
End Try
If user<>EditText1.Text OR pass<>EditText2.Text Then
Dim res As Int
res=Msgbox2("نام کاربری و رمز عبور جدید نگهداری شود؟","حفظ نام کاربری","بله","خیر","",LoadBitmap(File.DirAssets,"g.png"))
If res=DialogResponse.POSITIVE Then
File.WriteString(File.DirInternal,"useraniblog.txt",EditText1.Text)
File.WriteString(File.DirInternal,"passaniblog.txt",EditText2.Text)
ToastMessageShow("نام کاربری و رمزعبور ذخیره شد",True)
End If
End If

اگه رمز یا نام کاربری جدید وارد بشه ، یعنی هرکدوم با اون قبلیه فرق داشته باشه سوال میپرسه که ذخیره بشه یانه.(متن مسیج هاشو خودت ویرایش کن دیگه)

تو ساب activity_resume هم اینو بنویس:

Try
Dim user2 As String
Dim pass2 As String
user2=File.ReadString(File.DirInternal,"useraniblog.txt")
pass2=File.ReadString(File.DirInternal,"passaniblog.txt")
Catch
Log("felan")
End Try
EditText1.Text=user2
EditText2.Text=pass2

[top206 34]

این راه بهتریه !

فقط یه سوال <> یعنی چی ؟ *fekr*

[sganji 678]

یعنی مخالف,نامساوی,نابرابر!

مثلا دستور زیر میگه اگه a (که یه متغیره) 0 نبود...

dim a as int
a = text1.Text
if a <> 0 then
.
.
.

[مجید آرتا 5,874]

میتونید از شماره سریال گوشی هم استفاده کنید.

خیلی شیک و مجلسی.