Hi Bruce,
Trying the new file upload service you talked about in last week's webinar. I am getting the below errors when compiling.
PrimeParameters routine
If p_web.xml = 0 ! incoming parameters are just url encoded, either in the URL, or as post data, or as a cookie.
If p_web.IfExistsValue('username') then username = p_web.GetValue('username').
If username = ''
p_web.AddServiceError(Error:MustNotBeBlank,'FilesUpload', 'username', 'Parameter must not be zero or blank','')
End
If p_web.IfExistsValue('password') then password = p_web.GetValue('password').
If password = ''
p_web.AddServiceError(Error:MustNotBeBlank,'FilesUpload', 'password', 'Parameter must not be zero or blank','')
End
If p_web.IfExistsValue('jobnumber') then jobnumber = p_web.GetValue('jobnumber').
If jobnumber = ''
p_web.AddServiceError(Error:MustNotBeBlank,'FilesUpload', 'jobnumber', 'Parameter must not be zero or blank','')
End
filename.Free()
If p_web.IfExistsValue('filename') then filename.SetValue(p_web.GetFileFromPost('filename')).
! p_web.RequestMethodType could be one of NetWebServer_GET, NetWebServer_PUT, NetWebServer_POST, NetWebServer_DELETE
Else ! incoming parameters are in an xml structure
strxml.SetValue(p_web.GetValue('xml'))
Clear(username)
username = strxml.between(p_web.Nocolon('<username>',Net:SingleUnderscore+Net:NoSpaces),p_web.Nocolon('</username>',Net:SingleUnderscore+Net:NoSpaces))
If username = ''
p_web.AddServiceError(Error:MustNotBeBlank,'FilesUpload', 'username', 'Parameter must not be zero or blank','')
End
Clear(password)
password = strxml.between(p_web.Nocolon('<password>',Net:SingleUnderscore+Net:NoSpaces),p_web.Nocolon('</password>',Net:SingleUnderscore+Net:NoSpaces))
If password = ''
p_web.AddServiceError(Error:MustNotBeBlank,'FilesUpload', 'password', 'Parameter must not be zero or blank','')
End
Clear(jobnumber)
jobnumber = strxml.between(p_web.Nocolon('<jobnumber>',Net:SingleUnderscore+Net:NoSpaces),p_web.Nocolon('</jobnumber>',Net:SingleUnderscore+Net:NoSpaces))
If jobnumber = ''
p_web.AddServiceError(Error:MustNotBeBlank,'FilesUpload', 'jobnumber', 'Parameter must not be zero or blank','')
End
filename.Free()
filename.SetValue(strxml.between(p_web.Nocolon('<filename>',Net:SingleUnderscore+Net:NoSpaces),p_web.Nocolon('</filename>',Net:SingleUnderscore+Net:NoSpaces)))
filename.Base64Decode()
End
Not sure what I need to set for the filename.
Ashley