majid08

سلام من این کابخونه خوب رو چک کردم یه مشکل داره انگار البته خود کتابخونه مشکلی نداره فقط روی تارگت بالای 26 به سرور وصا نمیشه

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

سلام و خسته نباشیدموقع کلیک ارور میده java.lang.RuntimeException: Unable to start activity ComponentInfo{b4a.example/com.yuyh.library.imgsel.ui.ISListActivity}: java.lang.RuntimeException: Font asset not found iransansmobile.ttf

سلام بسیار عالی فقط یه سوال برای نمایش دادن عکس ها موقع انتخاب از چی استفاده کردین(منظورم گلاید هست یا چیز دیگه ای) چون من یه چنتا کتابخونه پیدا کردم برای انتخاب عکس به صورت چنتایی از گالری ولی همه با گلاید مشکل داشتن

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

سلام این کتابخانه رو اگر میشه دانلود کنید تشکر https://www.b4x.com/android/forum/attachments/downloadprogressviewex-zip.38639/ https://www.b4x.com/android/forum/attachments/libdownloadprogressviewv1-0-2-zip.38640/

سلام {"AdsPosts":[{"id":"1","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u0647","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u0641\u0644\u0633\u0637\u06cc\u0646","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"},{"id":"2","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u06472","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u067e\u06cc\u0631\u0648\u0632\u06cc","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"}]}

سلام اگر میشه این رو برام تبدیل کنید به PersianJson Dim parser As JSONParser parser.Initialize(Json) Dim root As Map = parser.NextObject Dim NewPosts As List = root.Get("NewPosts") For i = 0 To NewPosts.Size-1 Dim colNewPosts As Map = NewPosts.Get(i) Dim id As String = colNewPosts.Get("id") Dim onvan As String = colNewPosts.Get("onvan") Next ممنونم

سلام ایا امکان دانلود توی ترد هست یا خیر؟ دانلود یم صفحه معمولی php که جیسون میده

سلام مجدد این کلاس واسه کتابخانه زدین پال هست توش از OkHttp استفاده شده که کتابخانه شما با این مشکل داره اگر زحمت بکشید کدهاش رو تبدیل کنید به کتبخانه خودتون ممنون میشم هم قسمت جیسونش و هم دانلودش 2 تا کتابخانه رو هم گرفتم این لینک گیت هاب GitHub - Seyyed-Morteza-SeyyedAghaei/ZarinPal-Sample-For-B4A اینم کدهاش #Event : ResultPaymentRequest(Result As ResultPaymentRequest) #Event : ResultVerificationPayment(Result As ResultVerificationPayment) Private Sub Class_Globals Private MERCHANT_ID_PARAMS = "MerchantID" As String Private AMOUNT_PARAMS = "Amount" As String Private DESCRIPTION_PARAMS = "Description" As String Private CALLBACK_URL_PARAMS = "CallbackURL" As String Private MOBILE_PARAMS = "Mobile" As String Private EMAIL_PARAMS = "Email" As String Private AUTHORITY_PARAMS = "Authority" As String Private PAYMENT_GATEWAY_URL = "https://www.zarinpal.com/pg/StartPay/" As String Private PAYMENT_REQUEST_URL = "https://www.zarinpal.com/pg/rest/WebGate/PaymentRequest.json" As String Private VERIFICATION_PAYMENT_URL = "https://www.zarinpal.com/pg/rest/WebGate/PaymentVerification.json" As String Type ResultPaymentRequest(Status As Int,Authority As String,Url As String,Intent As Intent) Type ResultVerificationPayment(IsPaymentSuccess As Boolean,RefID As String,Payment As ZPaymentRequest) Type ZPaymentRequest(MerchantID As String,Amount As Long,Description As String,CallbackURL As String,Email As String,Mobile As String,Authority As String) Private vPayment As ZPaymentRequest Private event As String Private target As Object End Sub 'Initializes the object. You can add parameters to this method if needed. Public Sub Initialize(EventName As String,TargetModule As Object) event = EventName target = TargetModule End Sub Private Sub getPaymentRequestJson(ZPaymentRequest As ZPaymentRequest) As String Dim jg As JSONGenerator jg.Initialize(CreateMap(MERCHANT_ID_PARAMS : ZPaymentRequest.MerchantID,AMOUNT_PARAMS : ZPaymentRequest.Amount,DESCRIPTION_PARAMS : _ ZPaymentRequest.Description,CALLBACK_URL_PARAMS : ZPaymentRequest.CallbackURL,MOBILE_PARAMS : ZPaymentRequest.Mobile, _ EMAIL_PARAMS : ZPaymentRequest.Email)) Return jg.ToString End Sub Public Sub StartPayment(ZPaymentRequest As ZPaymentRequest) Dim SP As HttpJob SP.Initialize("StartPayment",Me) vPayment = ZPaymentRequest SP.PostString(PAYMENT_REQUEST_URL,getPaymentRequestJson(ZPaymentRequest)) SP.GetRequest.SetContentType("application/json") End Sub Private Sub JobDone(Job As HttpJob) If Job.Success Then Dim jp As JSONParser jp.Initialize(Job.GetString) Dim Result As Map = jp.NextObject Select Job.JobName Case "StartPayment" Dim Intent As Intent,Url As String = PAYMENT_GATEWAY_URL&Result.Get("Authority") Intent.Initialize(Intent.ACTION_VIEW,Url) Dim ResultPayment As ResultPaymentRequest ResultPayment.Initialize ResultPayment.Authority = Result.Get("Authority") ResultPayment.Intent = Intent ResultPayment.Status = Result.Get("Status") ResultPayment.Url = Url vPayment.Authority = ResultPayment.Authority CallSub2(target,event&"_ResultPaymentRequest",ResultPayment) Case "VerificationPayment" Dim ResultVarification As ResultVerificationPayment ResultVarification.Initialize ResultVarification.IsPaymentSuccess = True ResultVarification.RefID = Result.Get("RefID") ResultVarification.Payment = vPayment CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification) End Select Else Select Job.JobName Case "StartPayment" Try Dim ResultPayment As ResultPaymentRequest ResultPayment.Initialize ResultPayment.Authority = Null ResultPayment.Intent = Null ResultPayment.Status = Result.Get("Status") ResultPayment.Url = Null CallSubDelayed2(target,event&"_ResultPaymentRequest",ResultPayment) Catch Log(LastException) End Try Case "VerificationPayment" Try Dim ResultVarification As ResultVerificationPayment ResultVarification.Initialize ResultVarification.IsPaymentSuccess = False ResultVarification.RefID = Null ResultVarification.Payment = vPayment CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification) Catch Log(LastException) End Try End Select End If Job.Release End Sub Public Sub VerificationPayment(Intent As Intent) If Intent = Null Or Not(Intent.IsInitialized) Then Return Dim r As Reflector r.Target = Intent r.Target = r.RunMethod("getData") If r.Target = Null Or vPayment = Null Or Not(r.RunMethod("isHierarchical")) Then Return Dim VP As HttpJob VP.Initialize("VerificationPayment",Me) Dim jg As JSONGenerator Dim vAuthority As String = r.RunMethod2("getQueryParameter","Authority","java.lang.String") If vAuthority <> vPayment.Authority Or Not(r.RunMethod2("getQueryParameter","Status","java.lang.String") = "OK") Then Dim ResultVarification As ResultVerificationPayment ResultVarification.Initialize ResultVarification.IsPaymentSuccess = False ResultVarification.RefID = Null ResultVarification.Payment = vPayment CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification) End If jg.Initialize(CreateMap(AUTHORITY_PARAMS : vPayment.Authority,MERCHANT_ID_PARAMS : vPayment.MerchantID,AMOUNT_PARAMS : vPayment.Amount)) VP.PostString(VERIFICATION_PAYMENT_URL,jg.ToString) VP.GetRequest.SetContentType("application/json") End Sub ممنونم

سلام چرا با کتابخانه OkHttp مشکل داره؟ Convert byte code - optimized dex. Error Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokhttp3/internal/platform/JdkWithJettyBootPlatform$JettyNegoProvider; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$1; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$2; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$Watchdog; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Base64; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer$1; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer$2; UNEXPECTED TOP-LEVEL EXCEPTION: java.lang.RuntimeException: Translation has been interrupted at com.android.dx.command.dexer.Main.processAllFiles(Main.java:689) at com.android.dx.command.dexer.Main.runMultiDex(Main.java:368) at com.android.dx.command.dexer.Main.run(Main.java:277) at com.android.dx.command.dexer.Main.main(Main.java:247) at com.android.dx.command.Main.main(Main.java:106) Caused by: java.lang.InterruptedException: Too many errors at com.android.dx.command.dexer.Main.processAllFiles(Main.java:681) ... 4 more

سلام یک مسل دارم فقط اونم اینه که موقع اپلود فایل درصد که میخام بگیرم بجاش انگاز سایز اپلود میده نه درصد پطور درصد بگیرم ازش؟

سلام با تشکر از کتابخانه خوبتون میشه این مشکل اپلود فایل من رو حل کنید کدهای بیسیک Dim pr As PersianFastNetwork Private upl As UploadRequest pr.initialize("pr") upl=pr.BuildUploadQuery(all_D_cod.hostname&"/up_image_post.php","image_post1") upl.addMultipartFile("image",fp) upl.startUploadAsJSONObject Sub pr_onJSONObjectUploadOK(JsonString As String , Tag As String ) ProgressDialogHide Log(JsonString) End Sub و طرف php <?php // Path to move uploaded files $target_path = "up_image_post/"; // array for final json respone $response = array(); // final file url that is being uploaded if (isset($_FILES['image']['name'])) { $target_path = $target_path . basename($_FILES['image']['name']); try { // Throws exception incase file is not being moved if (!move_uploaded_file($_FILES['image']['tmp_name'], $target_path)) { // make error flag true $response['error'] = true; $response['message'] = 'Could not move the file!'; } } catch (Exception $e) { // Exception occurred. Make error flag true $response['error'] = true; $response['message'] = $e->getMessage(); } } echo json_encode($response); ?> ممنونم میشم راهنمایی کنید

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

سلام بله حله فقط این رو من میخام تبدیل کنم ارور میده میشه راهنمایی کنید Private Sub getPaymentRequestJson(ZPaymentRequest As ZPaymentRequest) As JSONGenerator Dim jg As JSONGenerator jg.Initialize(CreateMap(MERCHANT_ID_PARAMS : ZPaymentRequest.MerchantID,AMOUNT_PARAMS : ZPaymentRequest.Amount,DESCRIPTION_PARAMS : _ ZPaymentRequest.Description,CALLBACK_URL_PARAMS : ZPaymentRequest.CallbackURL,MOBILE_PARAMS : ZPaymentRequest.Mobile, _ EMAIL_PARAMS : ZPaymentRequest.Email)) Return jg.ToString End Sub Dim SP As HttpJob SP.Initialize("StartPayment",Me) vPayment = ZPaymentRequest SP.PostString(PAYMENT_REQUEST_URL,getPaymentRequestJson(ZPaymentRequest)) SP.GetRequest.SetContentType("application/json") این با کتابخانه httputils بوده میخام عوض کنم ارور میده این رو نوشتم Dim download As PersianFastNetwork download.initialize("download").BuildPostQuery(PAYMENT_REQUEST_URL,"StartPayment") _ .addJSONParametrs(getPaymentRequestJson(ZPaymentRequest)) _ .executRequesAsString

سلام و خسته نباشید واقعلا کتابخونه پرسرعت وعالی هست دارم توی چنتا پروژه بزرگ استفاده میکنم فقط الان یه چیزی کم داره

سلام و خسته نباشید واقعلا کتابخونه پرسرعت وعالی هست دارم توی چنتا پروژه بزرگ استفاده میکنم فقط الان یه چیزی کم داره SetContentType("application/json") این قسمت رو نداره نمیشه SetContentType کرد اگر لطف کنید اضافه کنید عالی میشه ممنونم

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

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

سلام میگم نمیشه برای AriaAsyncTaskDownloader یک هدر ست کرد این رو SetHeader("Accept-Language", "FA") ممنونم