Sub startit
Dim req As OkHttpRequest
Dim size As Long
Dim fname As String
' "Files" is the list of files to upload
icount=icount+1
If icount > files.size Then
Return
End If
fname=files.Get(icount-1)
Log ("startit " & fname)
Try
size = File.size(Main.outdir, fname)
Log (size)
Main.prot.add ("upload " & fname)
Log (size)
Log (fname)
label1.Text=fname & " (" & size & ")"
inp= File.OpenInput(Main.outdir,fname)
req.InitializePost(Main.hostname & "uploadform.asp", inp, size)
HttpClient1.Execute(req, 1)
uploadrunning=True
Catch
Log (LastException.Message)
Main.prot.Add (LastException.Message)
startit
End Try
End Sub
Sub HttpClient1_ResponseError (Response As OkHttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
' always says "Error"
Log("Error " & Reason)
Log (Response)
Log (StatusCode)
Log (TaskId)
' Msgbox (Response,Reason)
icount=icount-1
startit
End Sub
Sub HttpClient1_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
' No need to explain this code, it never comes here.
inp.Close
Dim s,s2 As String
' s=Response.GetString("UTF8")
Log ("Responsesuccess: " & icount & " " & s)
If icount<1 Then
icount=1
End If
s2=files.Get(icount-1)
Log ("sucess=" & s2)
Log ("sucess=" & s2)
hjob.Download (Main.hostname & "rename.php?from=" & s & "&to=" & Main.projectnumber & "_" & s2)
End Sub
[Code]