' FOR CONVERTING IMAGE TO STRING SEND OVER THROUGH WEB SERVICE
Dim str64Pic As String
If strPhotoSnapName <> "" Then
Dim in As InputStream
Dim out As OutputStream
in = File.OpenInput(File.DirRootExternal, strPhotoSnapName)
out.InitializeToBytesArray(0)
File.Copy2(in, out)
Dim data() As Byte
data = out.ToBytesArray
Dim b64 As Base64
b64.BreakLines = True
b64.UrlSafe = True
b64.LineLength = 75
str64Pic = b64.EncodeBtoS(data,0,data.Length)
str64Pic = strStringUtils.EncodeUrl(str64Pic, "UTF8")
End If