رفتن به مطلب
  • 0

استفاده از دو httpjob


amir1999

سوال

سلام

از این کدها برای لود اطلاعات داخل مولتی پنل استفاده میکنم...(آنلاین)


Sub JobDone(Jobe As HttpJob)
	If Jobe.Success Then
	Private a As String
	a = Jobe.GetString
	Private b() As String = Regex.Split("<br>",a)
	For i = 0 To b.Length-1
		Private n() As String = Regex.Split("#",b(i))
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,load,100%x,100%y)
		load = load + 200dip
		p.LoadLayout("view")
		Label3.Text = n(1)
		Label4.Text = n(2)
		Label5.Text = n(4)
        Buttonopen.Tag = n(3)
		ScrollView1.Panel.Height = load+53dip
	Next
	ToastMessageShow("همه چی حله!",False)
	Else
	StartActivity(falsenet)
	Activity.Finish
	End If
    
End Sub

و حالا یک کد هم زدم برای اضافه کردن یک استرینگ به دیتابیس به صورت زیر:

Sub Buttong_Click
	Dim iz As Button
	iz = Sender
	ht.PostString("http://myapptest.ir/amir1/insert1.php","link=" & iz.tag)
	ProgressDialogShow("در حال گزارش...")
End Sub

همه چیز درسته اما وقتی buttong کلیک میشه آیتم به دیتابیس آنلاین اضافه میشه اما برنامه فورس کلوز میده :(

لطفا راهنمایی کنید

حتی اگه بشه یجوری قبل از بسته شدن برنامه با یه کدی چیزی اکتیویتی رو ادامه داد خیلی خوب میشه

خودم احتمال میدم که چون ساب جاب دان شرطی در این مورد نداره فورس کلوز میده

ممنون میشم کمک کنید:give_rose:

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

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

ارسال های توصیه شده

مشکلم حل شد

باید به هرکدوم از httpjob هارو با اسم مختلف اینشیالایز میکردم و توی sub jobdone باید میگفتم اگه اسم فلان بود فلان کار رو بکن

HttpJob1.Initialize("ahtp",Me)

اینم کدی که توی ساب جاب دان گذاشتم

If job.JobName = "ahtp" Then
		ProgressDialogHide
		Msgbox("با موفقیت انجام شد ","result")
End If

 

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...