декодирования изображений осины

Question

HI любой орган может сказать мне, как декодировать строку base64 в осины классическом кодируемый Java с изображением

Answer 1

Передать строку 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