Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Converting to Base64
Message
De
26/08/2010 09:42:57
 
 
À
26/08/2010 03:28:57
Information générale
Forum:
ASP.NET
Catégorie:
Autre
Versions des environnements
Environment:
VB 9.0
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01478537
Message ID:
01478593
Vues:
32
>Not clear how the two bits join up. IAC isn't all you really need something like this:
'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 Function
Basically, 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.
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform