'Save >Dim lcXml As String = "<Test>Hello</Test>" >Dim writer As New System.IO.StreamWriter("c:\Save") >writer.Write(Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(lcXml))) >writer.Close() > >'Restore >Dim reader As New System.IO.StreamReader("c:\Save") >Dim lcXmlback As String = System.Text.Encoding.Default.GetString(Convert.FromBase64String(reader.ReadToEnd())) >reader.Close()Here is what I have now. I have adjusted as per your code:
' Convert to Base64 Public Function ConvertToBase64() As Boolean Dim lcXml As String = "" Dim llSuccess As Boolean = False Dim loStreamReader As System.IO.StreamReader = Nothing Try loStreamReader = New System.IO.StreamReader(cFile) lcXml = loStreamReader.ReadToEnd() loStreamReader.Close() cXML = Convert.ToBase64String(System.Text.Encoding.Default.GetBytes(lcXml)) llSuccess = True Catch loError As Exception cError = loError.Message End Try Return llSuccess End Function ' Convert from Base64 Public Function ConvertFromBase64() As Boolean Dim lcXml As String = "" Dim llSuccess As Boolean = False Dim loStreamWriter As System.IO.StreamWriter = Nothing Try loStreamWriter = New System.IO.StreamWriter(cFile) loStreamWriter.Write(System.Text.Encoding.Default.GetString(Convert.FromBase64String(cXML))) loStreamWriter.Close() llSuccess = True Catch loError As Exception cError = loError.Message End Try Return llSuccess End FunctionBasically, at the startup, I have a a.jpg file of 28k. Once I do the reverse process, I end up a Result.jpg file of 27k. So, I need to adjust something. Basically, I believe I have the same situation as with my previous code. There is something else that need to be adjusted.