درود دوباره و ممنون از پاسخگویی سریعتون
خب این کد های سرویس من هست که اسم سرویس MyJob هستش
#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Dim MyPFN As PersianFastNetwork
Dim API As String = "https://xxxxxxxxxxxx.ir/Android/API"
End Sub
Sub Service_Create
MyPFN.initialize("pr").WithSSL.Build
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub
Sub Service_Destroy
End Sub
Sub pr_onPostStringErrorListener(Error As ResponseError , Tag As String)
Log(Error.ErrorBody)
End Sub
Sub pr_onPostJSONObjectErrorListener(Error As ResponseError , Tag As String)
LogColor(Error.ErrorBody,Colors.Blue)
End Sub
Sub pr_onPostJSONObjectOkListener(JsonString As String , Tag As String)
Log(JsonString)
End Sub
Sub pr_onPostStringOkListener(Result As String , Tag As String)
Log(Result)
End Sub
و در کدماژولی به اسم MyCode تابعی نوشتم که درخواست هارو انجام بده به شکل زیر
Public Sub POST(url As String,sPost As String,tag As String)
Dim POSTR As PostRequest
POSTR = MyJob.MyPFN.BuildPostQuery(MyJob.API&url,tag)
If sPost <> "" Then
Dim PostDatas() As String = Regex.Split("&",sPost)
For i = 0 To PostDatas.Length - 1
Dim d() As String = Regex.Split("=",PostDatas(i))
Dim sKey As String = d(0)
Dim sVal As String = d(1)
POSTR.addParametrs(sKey,sVal)
Next
Else
POSTR.addParametrs("value","val")
End If
POSTR.executRequestAsJSONObject
End Sub
لازم به ذکر مه من از اون یکی متد اجرای درخواست هم یعنی executRequesAsString استفاده کردم ولی نشد
و درآخر وقتی میخام توی اکتیویتی ازش استفاده کنم به شکل زیر میشه
Sub Activity_Create(FirstTime As Boolean)
StartService(MyJob)
End Sub
Sub btn_Click
MyCode.POST("/System/CheckVersionApplication","","CheckVersionApplication")
End Sub
Sub btn2_Click
ProgressDialogShow2("لطفا کمی صبر کنید...",False)
MyCode.POST("/User/Login","Username="&"Mkabir"&"&Password="&"123123123","Login")
End Sub
متاسفانه کار نمیکنه ولی وقتی کدهای سرویس رو منتقل میکنم به اکتیویتی Main مثلا و فقط توی متد POST تو ماژول کد MyCode بجای اینکه از سرویس بخونم تغییرش بدم به Main خیلی درست کار میکنه.
ی نظر میدم برای کتابخونه البته جسارت نباشه شما خودتون استادید اگر موقعی initialize بپرسه که تارگت ماژول ت چیه دقیقا شبیه کتابخونه httpjob فک کنم مشکل حل بشه