Dim job_camera_1 As HttpJob
Dim linkdb As String
linkdb="https://korkmazlar.club/basari/upload_file.php"
Dim su As StringUtils
Dim out1 As OutputStream
out1.InitializeToBytesArray(100) 'size not really important
File.Copy2( File.OpenInput(File.DirDocuments,"aimg.jpg"), out1)
job_camera_1.PostString(linkdb, su.EncodeBase64(out1.ToBytesArray))
out1.Close
End Sub
Sub JobDone (Job As HttpJob)
'ToastMessageShow(Job.Success&"-"&Job.GetString&"-"&Job.JobName,True)
If Job.Success = False Then
Msgbox(Job.ErrorMessage,"error")
End If
Job.Release
End Sub