Sub Get_jpgbase64(im as Image) as string
Dim myPath As String = GetCanonicalPath(File.DirTemp)
Dim pngFile As String = "tmpFoto.png"
Dim jpgFile As String = "tmpFoto.jpg"
Dim result As String
If File.Exists(myPath, pngFile) Then
File.Delete(myPath, pngFile)
End If
If File.Exists(myPath, jpgFile) Then
File.Delete(myPath, jpgFile)
End If
Dim Out As OutputStream = File.OpenOutput(myPath, pngFile, False)
im.WriteToStream(Out)
Out.Close
Dim pngTojpg As pngTojpg
pngTojpg.convert(myPath & "\" & pngFile, myPath & "\" & jpgFile)
Dim In As InputStream = File.OpenInput(myPath, jpgFile)
Dim bts As Int = In.BytesAvailable
Dim Buffer(bts) As Byte
In.ReadBytes(Buffer, 0, bts)
Dim su As StringUtils
Dim eElement_Value As String = su.EncodeBase64(buffer)
'Log(eElement_Value.SubString(eElement_Value.Length-50))
In.Close
Return eElement_Value
End Sub