Dim TempFolder As String
'TempFolder = File.DirInternalCache '<-----removed
Dim Post As Boolean
Dim PostBytes() As Byte
Dim PostInputStream As InputStream
Dim PostLength As Int
End Sub
Sub Service_Create
If TempFolder = "" Then TempFolder = File.DirInternalCache '<-----new
hc.Initialize("hc")
End Sub
Sub Service_Start
If HttpUtils.Tasks.IsInitialized = False Then Return '<-----new
taskToRequest.Initialize
finishTasks = 0