Dim job2 As HttpJob
job2.Initialize(Filename,Me)
job2.PostFile("http://myserver.com/uploadimg.php?filename=" & Filename,File.DirRootExternal & "/download/Images/", Filename)
Sub JobDone (Job As HttpJob)
Dim Filename As String
Dim Qstr As String
'Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Filename = Job.JobName
File.Delete (File.DirRootExternal & "/download/Images/",Filename)
Qstr = "DELETE FROM FilesToSend WHERE file = ?"
SQL1.ExecNonQuery2(Qstr, Array As Object(Filename))
Else
'Update DB
Filename = Job.JobName
'Qstr = "INSERT INTO FilesToSend (id, File, status) VALUES (NULL, '" & Filename & "','WAITING')"
'SQL1.ExecNonQuery(Qstr)
Qstr = "UPDATE FilesToSend SET status = ? WHERE file = ?"
SQL1.ExecNonQuery2(Qstr, Array As Object("WAITING", Filename))
End If
Job.Release
End Sub