من می خوام در برنامه اپ خودم غکسم با شماره موبایل رو در دیتا بیس آنلاین ذخیره کنم
اما عکسم با نام bitmap ذخیره میشه در حالی که یک نام اختصاصی به صوزت زیر به اون بدم
datetime+poster.png (تاریخ و زمان را بگیره و در آخر poster.png رو به اون اضافه کنه)
اما شماره موبایلم ذخبره نمیشه
کد بیسیک من:
Sub Btnsabt_Click
img=ImageView2.Bitmap
picname = img&DateTime&"poster.png"
Dim poster1 As HttpJob
poster1.Initialize("poster1", Me)
poster1.Download2("http://fater.bartar124.ir/phpfile/poster.php", _
Array As String("Action", "Register", _
"shopmobile", ETmobile.Text, _
"image",img))
ProgressDialogShow("در حال ثبت اطلاعات...")
End Sub
Sub JobDone (Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String, action As String
res = Job.GetString
Dim parser As JSONParser
parser.Initialize(res)
Select Job.JobName
Case "Register"
action = parser.NextValue
If action = "Mail" Then
Msgbox("پوستر شما تکمیل و پس از بازبینی منتشر خواهد شد" , "با تشکر از شما")
StartActivity(sendposter)
Activity.Finish
' Else If action = "MailInUse" Then
' Msgbox("نام است '" & ETostan.Text & "' یا رمز عبور (" & ETshahr.Text & ") قبلا استفاده شده", "ثبت نام")
' Else
' Msgbox("نتیجه ای در بر نداشت", "ثبت نام")
End If
End Select
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
سوال
rezanaseri 6
با سلام
من می خوام در برنامه اپ خودم غکسم با شماره موبایل رو در دیتا بیس آنلاین ذخیره کنم
اما عکسم با نام bitmap ذخیره میشه در حالی که یک نام اختصاصی به صوزت زیر به اون بدم
datetime+poster.png (تاریخ و زمان را بگیره و در آخر poster.png رو به اون اضافه کنه)
اما شماره موبایلم ذخبره نمیشه
کد بیسیک من:
Sub Btnsabt_Click img=ImageView2.Bitmap picname = img&DateTime&"poster.png" Dim poster1 As HttpJob poster1.Initialize("poster1", Me) poster1.Download2("http://fater.bartar124.ir/phpfile/poster.php", _ Array As String("Action", "Register", _ "shopmobile", ETmobile.Text, _ "image",img)) ProgressDialogShow("در حال ثبت اطلاعات...") End Sub Sub JobDone (Job As HttpJob) ProgressDialogHide If Job.Success Then Dim res As String, action As String res = Job.GetString Dim parser As JSONParser parser.Initialize(res) Select Job.JobName Case "Register" action = parser.NextValue If action = "Mail" Then Msgbox("پوستر شما تکمیل و پس از بازبینی منتشر خواهد شد" , "با تشکر از شما") StartActivity(sendposter) Activity.Finish ' Else If action = "MailInUse" Then ' Msgbox("نام است '" & ETostan.Text & "' یا رمز عبور (" & ETshahr.Text & ") قبلا استفاده شده", "ثبت نام") ' Else ' Msgbox("نتیجه ای در بر نداشت", "ثبت نام") End If End Select Else ToastMessageShow("Error: " & Job.ErrorMessage, True) End If Job.Release End Sub
کد php من:
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.