Saving Base64 Image with ADODB.Stream and Classic ASP [duplicate]

Question

Saving Base64 Image with ADODB.Stream and Classic ASP [duplicate]

Navigation

#1 by (0 votes)

0

I'm using Classic ASP and Javascript to load and crop the images to the site. I use a script that converts the images to base64 sent by the post and is rendered on the server.

I followed the walkthrough here: Saving Base64 Image with ADODB .Stream

Preview: link

It turns out that when scaling my image to a certain size error occurs when saving:

msxml3.dll error '80004005' Error parsing 'bla bla img base64' like bin.base64 data type.

save2.asp

base64String = Trim(Request.Form("cropped2"))

response.write base64String

Set tmpDoc = Server.CreateObject("Msxml2.DOMDocument")
Set nodeB64 = tmpDoc.CreateElement("b64")
nodeB64.DataType = "bin.base64"
nodeB64.Text = Mid(base64String, InStr(base64String, ",") + 1)

set bStream = server.CreateObject("ADODB.stream")

bStream.type = 1

call bStream.Open()

call bStream.Write(nodeB64.NodeTypedValue)

caminho=Server.MapPath("/teste/imagem.png")
call bStream.SaveToFile(caminho, 2)

call bStream.close()
set bStream = nothing

Images up to 550x400 save normally, 550x450 error occurs and above these values as well.

base64 asp

asked by anonymous 13.10.2016 / 21:12

1 answer

Take the count of a ranking How to List added photos in the view?

score 0 · Answer 1

Problem solved. Instead of sending the base64 string through the HTML POST (where I loaded the string into a hidden field), I'd send it through the AJAX POST.

   document.querySelector('#btnCrop').addEventListener('click', function(){
   var img = cropper.getDataURL()
   $.post('ajax/salvar2.asp', {imagem: img});

This post can be used in PHP and ASP.

Example save base64 in ASP image. (save2.asp)

base64String = Trim(Request.Form("imagem"))
Set tmpDoc = Server.CreateObject("MSXML2.DomDocument")
Set nodeB64 = tmpDoc.CreateElement("b64")
nodeB64.DataType = "bin.base64"
nodeB64.Text = Mid(base64String, InStr(base64String, ",") + 1)
set bStream = server.CreateObject("ADODB.stream")
bStream.type = 1
call bStream.Open()
call bStream.Write(nodeB64.NodeTypedValue)
caminho=Server.MapPath("../caminho_salvaer/imagem.png")
call bStream.SaveToFile(caminho, 2)
call bStream.close()
set bStream = nothing

save.php

<?php

// Recuperando imagem em base64
// Exemplo: data:image/png;base64,AAAFBfj42Pj4
$imagem = $_POST['imagem'];

// Separando tipo dos dados da imagem
// $tipo: data:image/png
// $dados: base64,AAAFBfj42Pj4
list($tipo, $dados) = explode(';', $imagem);

// Isolando apenas o tipo da imagem
// $tipo: image/png
list(, $tipo) = explode(':', $tipo);

// Isolando apenas os dados da imagem
// $dados: AAAFBfj42Pj4
list(, $dados) = explode(',', $dados);

// Convertendo base64 para imagem
$dados = base64_decode($dados);

// Gerando nome aleatório para a imagem
$nome = md5(uniqid(time()));

// Salvando imagem em disco
file_put_contents("../img/{$nome}.jpg", $dados);