Dear All,
I used below code to upload picture to WebServer. I wonder why I could sucess upload which a picture but failed which another one. All my picture are jpg format and <1mb. I used httpUtils2
The error message is Internal Server Error
Many thanks for any help
Jonh
Below is part my code
Dim HttpClient1 As HttpJob 'HttpClient
Sub UploadPicture(P As Pic)
mFileName=P.CustomerId & ".jpg"
If File.Exists(File.DirDefaultExternal,mFileName)=True Then
If Msgbox2("Are you sure ?","","OK Upload","","Không",Null)=DialogResponse.POSITIVE Then
IsUploading=True
ProgressDialogShow("Uploading...please wait" & CRLF & P.CustomerName)
HttpClient1.Initialize("HttpClient1",Me)
HttpClient1.PostFile("http://mmis.vn/uploadform.asp?FileName=" & P.CustomerId,File.DirDefaultExternal,mFileName)
End If
Else
ToastMessageShow("Không tìm thấy file " & mFileName,False)
End If
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success=True Then
LoadPictureFiles
Else
Msgbox("Upload failed" & CRLF & Job.ErrorMessage,"")
End If
ProgressDialogHide
IsUploading=False
lblProgress.Text="Tab here to upload"
End Sub
I used below code to upload picture to WebServer. I wonder why I could sucess upload which a picture but failed which another one. All my picture are jpg format and <1mb. I used httpUtils2
The error message is Internal Server Error
Many thanks for any help
Jonh
Below is part my code
Dim HttpClient1 As HttpJob 'HttpClient
Sub UploadPicture(P As Pic)
mFileName=P.CustomerId & ".jpg"
If File.Exists(File.DirDefaultExternal,mFileName)=True Then
If Msgbox2("Are you sure ?","","OK Upload","","Không",Null)=DialogResponse.POSITIVE Then
IsUploading=True
ProgressDialogShow("Uploading...please wait" & CRLF & P.CustomerName)
HttpClient1.Initialize("HttpClient1",Me)
HttpClient1.PostFile("http://mmis.vn/uploadform.asp?FileName=" & P.CustomerId,File.DirDefaultExternal,mFileName)
End If
Else
ToastMessageShow("Không tìm thấy file " & mFileName,False)
End If
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success=True Then
LoadPictureFiles
Else
Msgbox("Upload failed" & CRLF & Job.ErrorMessage,"")
End If
ProgressDialogHide
IsUploading=False
lblProgress.Text="Tab here to upload"
End Sub