декодирование изображения в asp - PullRequest
Новая
       20

декодирование изображения в asp

0 голосов
/ 08 февраля 2011

HI может любое тело подсказать мне, как декодировать строку base64 в asp classic, закодированную Java из изображения

1 Ответ

0 голосов
/ 30 мая 2012

Передайте строку base64 в функцию decodeBase64 (), как показано ниже, и передайте имя файла и возвращаемое значение в процедуру writeBytes, изображение будет создано в файловой системе 

private function decodeBase64(base64)
        dim DM, EL
        Set DM = CreateObject("Microsoft.XMLDOM")
        ' Create temporary node with Base64 data type
        Set EL = DM.createElement("tmp")
        EL.DataType = "bin.base64"
        ' Set encoded String, get bytes
        EL.Text = base64
        decodeBase64 = EL.NodeTypedValue
    end function


private Sub writeBytes(file, bytes)

        Dim binaryStream
        Const TypeBinary = 1, ForWriting = 2
        Set binaryStream = CreateObject("ADODB.Stream")
        binaryStream.Type = TypeBinary
        'Open the stream and write binary data
        binaryStream.Open
        binaryStream.Write bytes
        'Save binary data to disk
        binaryStream.SaveToFile file, ForWriting
End Sub
...