hojat63

در 11 ساعت قبل، محمدرضا شاهپیری گفته است :

سلام و درود. من متوجه نشدم مشکل از کجاس عزیز. دانلود مشکل داره یا وب ویوتون. بیشتر توضیح بدید لطفا

سلام

لینک ایجاد میشه ولی حجم فایل رو 0 میزنه

و بعد دانلود خطا 0 بایت رو میزنه 

سلام

من از طریق وب ویو یه سایت رو باز می کنم

وقتی روی لینک کلیک می کنم 

از طریق 

Sub web_download_onDownloadStart (Url As String, userAgent As String, contentDisposition As String, mimetype As String, contentLength As Long)
	Log(contentLength)
	Log(mimetype)
	If contentLength>0 Then
		Log(Url)
		Log(userAgent)
		Log(contentDisposition)
		Log(mimetype)
		dnlid =	per.download(Url,"vrod_site_uesrs")
		Log(dnlid)
	End If
End Sub

لینک دانلود رو میگیرم و درخواست رودانلود می کنم

ولی contentLength حجم فایل لینک رو صفر می زنه

و دانلود انجام نمی شه 

ممنون می شم راهنمایی کنید 

خیلی گیرم

یه هفته که هر روز 14 تا 15 ساعت دارم رو کار می کنم

و به نتیجه نمی رسم

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

واسه اندروید 6 تست کردم مشکلی نداشت

ولی توی اندروید 8 و بالاتر نوتیفیکیشن رو نشون نمیده

ممنون میشم راهنماییم کنید

شرمنده

کد تنظیم هشدار

Dim prmodel As PersianAlarmModel
    prmodel.initialize(AlarmService)
    prmodel.putStringExtra("keytime1",dif_time2)
    pralarm.setRepeating(prmodel,pralarm.AlarmManager_RTC_WAKEUP,pralarm.FLAG_UPDATE_CURRENT,1,pralarm.TimeUnit_SECONDS,20,20)

کد سرویس هم این هستش

#Region  Service Attributes
    #StartAtBoot: False
    
#End Region

Sub Process_Globals

End Sub

Sub Service_Create
End Sub

Sub Service_Start (StartingIntent As Intent)
    Service.StopAutomaticForeground
    Dim alarmmdl As PersianAlarmModel
    Dim almid As String=StartingIntent.GetExtra("keytime1")

    alarmmdl.initialize(Null)
    
    Dim n As Notification
    CreateNotificationChannel(n.IMPORTANCE_HIGH)
    n.Initialize2(n.IMPORTANCE_HIGH)
    n.Icon="icon"
    n.Sound=True
    n.SetInfo("یادآوری","تعداد پیامک های امروز " &almid ,Main)
    n.Notify(alarmmdl.GenerateUniqId)
    
End Sub

Sub CreateNotificationChannel(ImportanceLevel As Int)
    Dim p As Phone
    If p.SdkVersion>=26 Then
        Dim ctxt As JavaObject
        ctxt.InitializeContext
        Dim channelId As String = "channel_" & ImportanceLevel
        Dim channel As JavaObject
        channel.InitializeNewInstance("android.app.NotificationChannel",Array(channelId,Application.LabelName,ImportanceLevel))
        
        channel.RunMethod("setShowBad",Array(False))
        
        Dim manager As JavaObject = ctxt.RunMethod("getSystemService",Array("notification"))
        manager.RunMethod("createNotificationChannel",Array(channel))
    End If
End Sub

Sub Service_Destroy

End Sub

ولی وقتی اجرا می کنم این خطا میاد

java.lang.RuntimeException: Object should first be initialized (PersianAlarmModel).

سلام آره سرویس رو ساختم به این شکل

#Region  Service Attributes
    #StartAtBoot: False
    
#End Region

Sub Process_Globals

End Sub

Sub Service_Create
End Sub

Sub Service_Start (StartingIntent As Intent)
    Service.StopAutomaticForeground
    Dim alarmmdl As PersianAlarmModel
    Dim almid As String=StartingIntent.GetExtra("keytime1")

    alarmmdl.initialize(Null)
    
    Dim n As Notification
    CreateNotificationChannel(n.IMPORTANCE_HIGH)
    n.Initialize2(n.IMPORTANCE_HIGH)
    n.Icon="icon"
    n.Sound=True
    n.SetInfo("یادآوری","تعداد پیامک های امروز " &almid ,Main)
    n.Notify(alarmmdl.GenerateUniqId)
    
End Sub

Sub CreateNotificationChannel(ImportanceLevel As Int)
    Dim p As Phone
    If p.SdkVersion>=26 Then
        Dim ctxt As JavaObject
        ctxt.InitializeContext
        Dim channelId As String = "channel_" & ImportanceLevel
        Dim channel As JavaObject
        channel.InitializeNewInstance("android.app.NotificationChannel",Array(channelId,Application.LabelName,ImportanceLevel))
        
        channel.RunMethod("setShowBad",Array(False))
        
        Dim manager As JavaObject = ctxt.RunMethod("getSystemService",Array("notification"))
        manager.RunMethod("createNotificationChannel",Array(channel))
    End If
End Sub

Sub Service_Destroy

End Sub

ممنون میشم راهنمایی کنید

فقط نمی دونم کی سرویس رو راه اندازی کنم

سلام خدمت تمامی دوستان

من از این کتابخانه استفاده کردم و تمام نکات آموزشی رو انجام دادم وقتی که اجرا می کنم این خطا می یاد

java.lang.RuntimeException: Object should first be initialized (PersianAlarmModel).

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

اینم سورس

    Dim prmodel As PersianAlarmModel
    prmodel.initialize(AlarmService)
    prmodel.putStringExtra("keytime1",dif_time2)
    pralarm.setRepeating(prmodel,pralarm.AlarmManager_RTC_WAKEUP,pralarm.FLAG_UPDATE_CURRENT,1,pralarm.TimeUnit_SECONDS,20,20)