Private Sub CustomListView1_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
'3 for x in 4 image
'1 for x in 2 image
'CellSMMListView for 4 image
'CellSMMListView3 for 2 image
For Each i As Int In PCLV.VisibleRangeChanged(FirstIndex, LastIndex)
Dim item As CLVItem = CustomListView1.GetRawListItem(i)
pnlCLV = xui.CreatePanel("")
item.Panel.AddView(pnlCLV, 0, 0, item.Panel.Width, item.Panel.Height)
Dim dataIndex As Int = item.Value
'Create the item layout
pnlCLV.LoadLayout(Starter.useCellName)
For x = 0 To Starter.uselvForx
If (dataIndex + x) <= Starter.MyM3UFileParsed.IconLink.Size Then 'Important cause there might be extra empty fields
Dim WhatListIndex As Int
WhatListIndex = (dataIndex + x) - 1
Dim GetChannelName As String
GetChannelName = StateManager.GetChannelNamewithFilters(WhatListIndex)
pnlCLV.GetView(x).GetView(1).Text = GetChannelName
pnlCLV.GetView(x).GetView(1).Tag = WhatListIndex
Dim GetIconLink As String
GetIconLink = Starter.MyM3UFileParsed.IconLink.Get(WhatListIndex)
Dim WhatFileName As String
WhatFileName = StateManager.GetIconFileNameByIconLinkName(GetIconLink)
If File.Exists(File.DirInternalCache, Starter.SelectedFolder & WhatFileName) Then
If StateManager.blnLogOn = True Then Log(WhatFileName)
Try
pnlCLV.GetView(x).GetView(0).SetBitmap(xui.LoadBitmapResize(File.DirInternalCache, Starter.SelectedFolder & WhatFileName, pnlCLV.GetView(x).GetView(0).Width, pnlCLV.GetView(x).GetView(0).Height, True))
If StateManager.smViewName = 0 Then
If Starter.WhatTabIsIt = 2 Or Starter.WhatTabIsIt = 3 Then
pnlCLV.GetView(x).GetView(1).Visible = False 'title label
End If
End If
Catch
Log("CLV: " & LastException)
End Try
Else
If GetIconLink <> "Not Available" Then
If StateManager.blnLogOn = True Then Log("ICon link available requesting...")
'Request URL to fill icon image
RequestIconLink(GetIconLink, pnlCLV.GetView(x).GetView(0), pnlCLV.GetView(x).GetView(1))
Else
' If StateManager.blnLogOn = True Then Log("IconlInk Not available")
'Add no image
pnlCLV.GetView(x).GetView(0).SetBitmap(xui.LoadBitmapResize(File.DirAssets, "No Image.png", pnlCLV.GetView(x).GetView(0).Width/2, pnlCLV.GetView(x).GetView(0).Height/2, True))
If StateManager.smViewName = 0 Then
If Starter.WhatTabIsIt = 2 Or Starter.WhatTabIsIt = 3 Then
pnlCLV.GetView(x).GetView(1).Visible = True 'title label
End If
End If
End If
End If
End If
Next
Next
End SubSub RequestIconLink(GetIconLink As String, PanelImage As B4XView, TitleLabel As B4XView)
Dim job As HttpJob
job.Initialize("Job2", Me)
job.Tag = StateManager.GetIconFileNameByIconLinkName(GetIconLink)
Dim poststr As String = GetIconLink
If StateManager.blnLogOn = True Then Log("Request Icon Url: " & poststr)
If StateManager.blnLogOn = True Then Log(" ")
job.Download(poststr)
job.GetRequest.Timeout = Starter.intIconTimeoutValue '5 seconds default
' job.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:27.0) Gecko/20100101 Firefox/27.0")
job.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36")
'Wait for download complete
Wait For (job) JobDone(job As HttpJob)
If StateManager.blnLogOn = True Then Log("JobName = " & job.JobName & ", Success = " & job.Success)
If StateManager.blnLogOn = True Then Log("JobTag = " & job.Tag)
If (job.Success = True) Then
Dim WhatFilename As String
WhatFilename = job.Tag
If StateManager.blnLogOn = True Then Log(WhatFilename)
If StateManager.blnLogOn = True Then Log(" ")
' save icon to a file (when file is available in customlistview visiblerange it will load it instead of url request)
Try
If File.IsDirectory(File.DirInternalCache, Starter.SelectedFolder) = False Then
File.MakeDir(File.DirInternalCache, Starter.SelectedFolder)
End If
'some icon did not display. i think adding user-agent solved it?
Dim out As OutputStream = File.OpenOutput(File.DirInternalCache, Starter.SelectedFolder & WhatFilename, False)
File.Copy2(job.GetInputStream, out)
out.Close
'Display bitmap to panelimage
PanelImage.SetBitmap(job.GetBitmap.Resize(PanelImage.Width, PanelImage.Height, True))
If StateManager.smViewName = 0 Then
If Starter.WhatTabIsIt = 2 Or Starter.WhatTabIsIt = 3 Then
TitleLabel.Visible = False 'title label
End If
End If
Catch
PanelImage.SetBitmap(xui.LoadBitmapResize(File.DirAssets, "No Image.png", PanelImage.Width/2, PanelImage.Height/2, True))
If StateManager.smViewName = 0 Then
If Starter.WhatTabIsIt = 2 Or Starter.WhatTabIsIt = 3 Then
TitleLabel.Visible = True 'title label
End If
End If
If StateManager.blnLogOn = True Then Log("Error Outputstream:" & LastException)
End Try
Else
PanelImage.SetBitmap(xui.LoadBitmapResize(File.DirAssets, "No Image.png", PanelImage.Width/2, PanelImage.Height/2, True))
If StateManager.smViewName = 0 Then
If Starter.WhatTabIsIt = 2 Or Starter.WhatTabIsIt = 3 Then
TitleLabel.Visible = True 'title label
End If
End If
If StateManager.blnLogOn = True Then Log("False JobDone: ")
If StateManager.blnLogOn = True Then Log(" ")
End If
job.Release
End Subhttputils2service_hc_responsesuccess (java line: 128)
java.io.FileNotFoundException: /data/user/0/whoopersx.iptv/cache/777: open failed: EISDIR (Is a directory)
at libcore.io.IoBridge.open(IoBridge.java:574)
at java.io.FileOutputStream.<init>(FileOutputStream.java:259)
at anywheresoftware.b4a.objects.streams.File.OpenOutput(File.java:449)
at whoopersx.iptv.httputils2service._hc_responsesuccess(httputils2service.java:128)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:221)
at anywheresoftware.b4a.BA$2.run(BA.java:395)
at android.os.Handler.handleCallback(Handler.java:958)
at android.os.Handler.dispatchMessage(Handler.java:99)
at android.os.Looper.loopOnce(Looper.java:230)
at android.os.Looper.loop(Looper.java:319)
at android.app.ActivityThread.main(ActivityThread.java:8919)
at java.lang.reflect.Method.invoke(Native Method)
at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:578)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1103)
Caused by: android.system.ErrnoException: open failed: EISDIR (Is a directory)
at libcore.io.Linux.open(Native Method)
at libcore.io.ForwardingOs.open(ForwardingOs.java:563)
at libcore.io.BlockGuardOs.open(BlockGuardOs.java:274)
at libcore.io.ForwardingOs.open(ForwardingOs.java:563)
at android.app.ActivityThread$AndroidOs.open(ActivityThread.java:8782)
at libcore.io.IoBridge.open(IoBridge.java:560)
... 14 moreSub hc_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
Dim job As HttpJob = TaskIdToJob.Get(TaskId)
If job = Null Then
Log("HttpUtils2Service (hc_ResponseSuccess): job completed multiple times - " & TaskId)
Return
End If
job.Response = Response
Dim out As OutputStream = File.OpenOutput(TempFolder, TaskId, False)
#if HU2_PUBLIC
job.Out = out
#end if
Response.GetAsynchronously("response", out , _
True, TaskId)
End Sub#8 line is the culprit. Just as you said.
Sub hc_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
Try
Dim job As HttpJob = TaskIdToJob.Get(TaskId)
If job = Null Then
Log("HttpUtils2Service (hc_ResponseSuccess): job completed multiple times - " & TaskId)
Return
End If
job.Response = Response
Dim out As OutputStream = File.OpenOutput(TempFolder, TaskId, False)
#if HU2_PUBLIC
job.Out = out
#end if
Response.GetAsynchronously("response", out , _
True, TaskId)
Log("TaskId" & TaskId)
Log("TAG: " & job.Tag)
Log(" ")
Catch
Log("I found error here: " & TempFolder)
Log("TaskId" & TaskId)
Log("TAG: " & job.Tag)
Log(" ")
End Try
End Subim not sure about this.
