When you think ASP, think...
Recent Articles
All Articles
ASP.NET Articles
ASPFAQs.com
Message Board
Related Web Technologies
User Tips!
Coding Tips

Sections:
Sample Chapters
Commonly Asked Message Board Questions
JavaScript Tutorials
MSDN Communities Hub
Official Docs
Security
Stump the SQL Guru!
XML Info
Information:
Feedback
Author an Article
ASP ASP.NET ASP FAQs Message Board Feedback

The 4 Guys Present: ASPFAQs.com

Jump to a FAQ
Enter FAQ #:
..or see our 10 Most Viewed FAQs.

4GuysFromRolla.com : ASP FAQS : Strings


Question:

How can I convert binary data into a string?


[Print this FAQ]

Answer: Sometimes you will run across a situation where you need to convert binary data that represents text back into text. An example of this is getting the results of an HTTP operation from an XMLHttp request in binary form, because you are retrieving non-English unicode text from the site you're querying. Check out this article for more details on getting binary data from XMLHttp.

Whatever the reason, native ASP has a lot of trouble with actually converting binary to text, but ADO can handle the job. The following function uses a disconnected recordset object to convert binary data to text. First we declare the function, setup some constants and create a new recordset (the parameters will be explained in a moment).

<%
Function BinToText(varBinData, intDataSizeInBytes)    ' as String
    Const adFldLong = &H00000080
    Const adVarChar = 200
    Set objRS = Server.CreateObject("ADODB.Recordset")

Next, we add a field to this recordset of type adVarChar (character field), with our own name of "txt" and including the intDataSizeInBytes parameter we took - this is the number of bytes contained in the binary data that will be converted into text. The last parameter is a setting that allows us to use the AppendChunk method (explained below). Then we open the recordset.

        objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

Now we need to add a record, append the data in binary form and return it in string form.

        objRS.AddNew
        objRS.Fields("txt").AppendChunk varBinData
        BinToText = objRS("txt").Value

AppendChunk takes the binary data and places it into the field called "txt" in our recordset. Because our recordset is a VarChar type, ADO silently converts our data to it's text equivalent when we access the field to return the data on the next line.

Here is the whole function, (along with the cleanup of the objRS variable):

<%
    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '        Function to convert binary data to text
    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Function BinToText(varBinData, intDataSizeInBytes)    ' as String
        Const adFldLong = &H00000080
        Const adVarChar = 200
        Set objRS = Server.CreateObject("ADODB.Recordset")

        objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppendChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function
%>


Here is an example of it's use:

<%
    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '        Function to return binary data
    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Function GetHTMLBin(strURL)
        Dim objXMLHTTP, strReturn
        Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.Send Cstr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
    End Function


    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    '        Function to convert binary data to text
    ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Function BinToText(varBinData, intDataSizeInBytes)    ' as String
        Const adFldLong = &H00000080
        Const adVarChar = 200
        Set objRS = Server.CreateObject("ADODB.Recordset")

        objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppendChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
    End Function

    Response.Write BinToText(GetHTMLBin("http://www.4guysfromrolla.com/"), 35000)
%>


FAQ posted by Richard Lowe at 2/11/2001 2:00:05 PM to the Strings category. This FAQ has been viewed 76,971 times.

Do you have a FAQ you'd like to suggest? Suggestions? Comments? If so, send it in! Also, if you'd like to be a FAQ Admin (creating/editing FAQs), let me know! If you are looking for other FAQs, be sure to check out the 4Guys FAQ and Commonly Asked Messageboard Questions!

Most Viewed FAQs:

1.) How can I format numbers and date/times using ASP.NET? For example, I want to format a number as a currency. (761643 views)
2.) I am using Access and getting a 80004005 error (or a [Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)' error) when trying to open a connection! How can I fix this problem? (207777 views)
3.) How can I convert a Recordset into an array? Also, how can I convert an array into a Recordset? (202549 views)
4.) How can I quickly sort a VBScript array? (196039 views)
5.) How can I find out if a record already exists in a database? If it doesn't, I want to add it. (156019 views)
6.) How do I display data on a web page using arrays instead of Do...While...MoveNext...???... (152331 views)
7.) When I get a list of all files in a directory via the FileSystemObject, they aren't ordered in any reasonable way. How can I sort the files by name? Or by size? Or by date created? Or... (140381 views)
8.) For session variables to work, must the Web visitor have cookies enabled? (110162 views)
9.) Can I send emails without using CDONTS? (107083 views)
10.) How can I take the result of a SELECT...MULTIPLE or a group of same-named checkboxes and turn it into a query? That is, if the user selects 3 answers, how can I construct a query that looks for all 3? (106308 views)
Last computed at 9/17/2007 3:22:00 AM


ASP.NET [1.x] [2.0] | ASPMessageboard.com | ASPFAQs.com | Advertise | Feedback | Author an Article