Converts data between ByteArray (safearray of bytes) and Base64. Works as a Base64 encoder and decoder from binary (bytearray) or from Unicode String.
Base64Data = ByteArray.Base64 ([maxLineChars as Long = 76])
ByteArray.Base64 ([maxLineChars as Long = 76]) = Base64Data
|maxLineChars||Long||yes||76||Maximum line characters for Base64 encoded data|
Base64 returns ByteArray
You can use the property to do Base 64 encoding and decoding of data stream. Base64 property accepts UNICODE String (VT_BSTR) or binary data (VT_UI1 | VT_ARRAY) as an input.
maxLineChars has no meaning for property put.
See also live sample of this method at On-line base64 decoder and encoder page.
|You can simply encode a binary or text file to a Base64 string using this sample code. The base64 string can be stored to a file using SaveAs method.|
'Convert a string to Base64 Dim ByteArray Set ByteArray = CreateObject("ScriptUtils.ByteArray") 'Convert a File to a Base64 ByteArray.ReadFrom "F:\data\vbs\del.vbs" 'Convert contents of the file to a base64 Base64String = ByteArray.Base64.String Wscript.Echo "Base64 encoded file:" & vbCrLf & _ Base64String 'Save Base64 encoded data to a disk ByteArray.Base64.SaveAs "F:\data\vbs\base64-del.vbs"
'Convert a string to a Base64 Dim ByteArray Set ByteArray = CreateObject("ScriptUtils.ByteArray") 'Put some characters to the bytearray. ByteArray.String = "Put some characters to the bytearray." 'Write the characters in original (windows-1250) charset Dim Base64String Wscript.Echo "Source data:" & vbCrLf & _ ByteArray.String Base64String = ByteArray.Base64.String Wscript.Echo "Base64 encoded string:" & vbCrLf & _ Base64String Base64String = ByteArray.Base64(30).String Wscript.Echo "Base64 encoded string with short lines:" & vbCrLf & _ Base64String Wscript.Echo "Part of data encoded to base64:" & vbCrLf & _ ByteArray.Mid(3,3).Base64.String 'Convert a File to a Base64 ByteArray.ReadFrom "F:\data\vbs\del.vbs" Base64String = ByteArray.Base64.String Wscript.Echo "Base64 encoded file:" & vbCrLf & _ Base64String
Works with safearray binary data - save/restore binary data from/to a disk, convert to a string/hexstring, codepage/charset conversions, Base64 conversion, etc.
ByteArray is a COM class specially designed to work with Microsoft Windows Scripting engines - VB Script and JScript in Active Server Pages or WSH and in CHM or HTA applications. It also works with VB Net, Visual basic (VBA - VB 5, VB 6, Word, Excel, Access, …), C#, J#, C++, ASP, ASP.Net, Delphi and with T-SQL OLE functions - see Use ByteArray object article. You can also use the object in other programming environments with COM support, such is PowerBuilder.
Source code for ByteArray is available within distribution license, please see License page for ASP file upload and ScriptUtilities.
Huge ASP upload is easy to use, hi-performance ASP file upload component with progress bar indicator. This component lets you upload multiple files with size up to 4GB to a disk or a database along with another form fields. Huge ASP file upload is a most featured upload component on a market with competitive price and a great performance . The software has also a free version of asp upload with progress, called Pure asp upload , written in plain VBS, without components (so you do not need to install anything on server). This installation package contains also ScriptUtilities library. Script Utilities lets you create hi-performance log files , works with binary data , you can download multiple files with zip/arj compression, work with INI files and much more with the ASP utility.
© 1996 - 2011 Antonin Foller, Motobit Software | About, Contacts | e-mail: email@example.com