Klasik ASP Temel64, image/png -> resim olarak kaydet

Question

Bu özel soru sorulmuş ve yanıtlanmıştır, fakat ne denediğime bakmadan işe yaramayacağım.

: Burada

oStream.write imagebinarydata 

yorumlarla kod şudur: Bu noktada

olursa olsun ben denemek hangi kombinasyonları, hala başarısız .. pencereden dışarı bilgisayarıma atmak için biraz hazırım

sFileName = Server.MapPath("grafer/test.png") 
ByteArray = Request.Form("imageData") 
ByteArray = [DATA-URI String] 'This string shows the image perfectly fine, in an image tag in the top of the page so it should be perfectly ok? 

response.write ("Decoded: " & Base64Decode(ByteArray)) '<- Writes 'PNG' ? 


Const adTypeBinary = 1 
Const adSaveCreateOverWrite = 2 

Set oStream = Server.CreateObject("ADODB.Stream") 

oStream.type = adTypeBinary 
oStream.open 
imagebinarydata = Base64Decode(ByteArray) 
oStream.write imagebinarydata         '<- FAILS 

'Error: 

'ADODB.Stream error '800a0bb9' 

'Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

'Use this form to overwrite a file if it already exists 
oStream.savetofile sFileName, adSaveCreateOverWrite 

oStream.close 

set oStream = nothing 

response.write("success") 

Function Base64Decode(ByVal vCode) 

    Dim oXML, oNode 

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0") 
    Set oNode = oXML.CreateElement("base64") 
    oNode.dataType = "bin.base64" 
    oNode.text = vCode 
    Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue) 
    Set oNode = Nothing 
    Set oXML = Nothing 

End Function 

Function Stream_BinaryToString(Binary) 

    Const adTypeText = 2 
    Const adTypeBinary = 1 

    'Create Stream object 
    Dim BinaryStream 'As New Stream 
    Set BinaryStream = CreateObject("ADODB.Stream") 

    'Specify stream type - we want To save text/string data. 
    BinaryStream.Type = adTypeBinary 

    'Open the stream And write text/string data To the object 
    BinaryStream.Open 

    BinaryStream.Write Binary 

    'Change stream type To binary 
    BinaryStream.Position = 0 
    BinaryStream.Type = adTypeText 

    'Specify charset For the source text (unicode) data. 
    If Len(CharSet) > 0 Then 
    BinaryStream.CharSet = CharSet 
    Else 
    BinaryStream.CharSet = "us-ascii" 
    End If 

    'Open the stream And get binary data from the object 
    Stream_BinaryToString = BinaryStream.ReadText 

End Function 

Answer 1

Eğer tam olarak sorunun ne olduğunu bu işlevi

function SaveToBase64 (base64String) 
    ImageFileName = "test.jpg" 

    Set Doc = Server.CreateObject("MSXML2.DomDocument") 
    Set nodeB64 = Doc.CreateElement("b64") 
    nodeB64.DataType = "bin.base64" 
    nodeB64.Text = Mid(base64String, InStr(base64String, ",") + 1) 

    dim bStream 
    set bStream = server.CreateObject("ADODB.stream") 
    bStream.type = 1 
    bStream.Open() 
    bStream.Write(nodeB64.NodeTypedValue) 
    bStream.SaveToFile(Server.Mappath("Images/" & ImageFileName), 2) 
    bStream.close() 
    set bStream = nothing 
end function