Sub UploadSignSales(strfld As String) As ResumableSub
ProgressDialogShow2("wait,Upload Sign...",True )
Dim strhasil As String
Try
Dim job As HttpJob
job.Initialize("UploadFileSignSales" , Me)
Dim S As String = "http://192.168.5.80:54340/v1.0/FileUploading/UploadFileSignSales"
job.PostFile(S ,strfld , "sign=202305.jpg")
'job.GetRequest.SetContentType("application/form-data")
wait for (job) JobDone (job As HttpJob)
job.Release
Catch
Log(LastException)
End Try
ProgressDialogHide
Return strhasil
End Sub