Tema: ImgToBase64
Ver Mensaje Individual
  #13  
Antiguo 15-03-2016
D1360666 D1360666 is offline
Miembro
 
Registrado: mar 2008
Posts: 53
Reputación: 17
D1360666 Va por buen camino
Muchas gracias por el aporte amigos.
Les dejo una forma que llegué con NetEncoding, la cual me resultó bastante facil(por decir porq me costo además que nunca había hecho esto).
También aparece en el código el envío al servidor Node, el cual guarda en la base de datos Mysql en un campo Longblob.
Hasta ahí me funcionó impecable, para decodificar la imagen nuevamente también lo hice con netencoding.
En la decodificación lo que me está faltando es procesar la consulta que hago al servidor, la cual el servidor devuelve la consulta en formato json y el campo de la imagen en formato buffer, como hago para convertir el buffer a base64, estoy viendo para que el servidor lo devuelva, sino lo tengo que procesar en Delphi.

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
SS: TStringStream;
V, resultado: string;
  enco : TNetEncoding;
  lparamlist: TStringList;
  cadena, res: string;
  obj : tjsonobject;

begin
enco :=  TNetEncoding.Create;
  SS := TStringStream.Create('');
  image1.Bitmap.LoadFromFile('c:\img\imgextintor\2.jpg');
  Image1.Bitmap.SaveToStream(SS);
  V := SS.DataString;
  resultado := enco.Base64.Encode(V);
  memo1.lines.add(resultado);
  memo1.Lines.SaveToFile('c:\memo.txt');
  lparamlist := TStringList.Create;
  lparamlist.Add('idImg=5');
  lparamlist.Add('imagen=' + resultado);

  res := http.Post('http://localhost:3000/subiFoto', lparamlist);
 showmessage(res);
  lparamlist.Free;

end;
------------------------------------
decodifico

Código Delphi [-]
  V := enco.Base64.Decode(resultado);
  SS := TStringStream.Create(V);
  Image2.Bitmap.LoadFromStream(SS);
Responder Con Cita