5 respuestas en este tema

[enecumene]

Amigos, tengo el siguiente problema tengo imagenes guardados en una base de datos mysql en campo blob, esa imagen la codifico en base64 para devolverlo a traves de JSON, en delphi decodifico esa información y lo guardo en un stream para cargarlo a traves de TBitmap.LoadFromStream pero me da errores, aqui el codigo:

delphi

function DecodeImgFromBase64(AStr: WideString): TStream;
var AStream: TStream;
begin
  AStream :=  TStream.Create;
  TBlobField(DecodeBase64(AStr)).SaveToStream(AStream);
  AStream.Position := 0;
  Result := AStream;
end;

Hay una mejor forma de lograr eso?.

 

Saludos.

[Agustin Ortu]

Que errores?

[Agustin Ortu]

Deberias abstraerte de la nocion de que tu base64 esta en un campo de una base de datos. A fin de cuentas, no cambia nada, tenes siempre un TStream

 

Existen que yo sepa tres alternativas que vienen de fabrica con Delphi para trabajar con Base64:

delphi

uses
  System.SysUtils,
  System.Classes,
  System.NetEncoding,
  Soap.EncdDecd,
  IdCoderMIME,
  Data.DB;
 
// usando System.NetEncoding
function DecodeStreamNetEncoding(BlobStream: TStream): TStream;
var
  Decoder: TNetEncoding;
begin
  Result := TMemoryStream.Create;
  BlobStream.Position := 0;
  Decoder := TNetEncoding.Base64;
  try
    Decoder.Decode(BlobStream, Result);
  finally
    Decoder.Free;
  end;
end;
 
// usando Indy (unidad IdCoderMIME)
function DecodeStreamIndy(BlobStream: TStream): TStream;
var
  BlobStringSteram: TStringStream;
  Base64: string;
begin
  BlobStringSteram := TStringStream.Create;
  try
    BlobStream.Position := 0;
    BlobStringSteram.CopyFrom(BlobStream, BlobStream.Size);
    Base64 := TIdDecoderMIME.DecodeString(BlobStringSteram.DataString);
    Result := TStringStream.Create(Base64);
  finally
    BlobStringSteram.Free;
  end;
end;
 
// usando Soap.EncdDecd
function DecodeStreamEncdDecd(BlobStream: TStream): TStream;
var
  Base64: TBytes;
  BlobStringSteram: TStringStream;
begin
  BlobStringSteram := TStringStream.Create;
  try
    BlobStream.Position := 0;
    BlobStringSteram.CopyFrom(BlobStream, BlobStream.Size);
    Base64 := DecodeBase64(BlobStringSteram.DataString);
    Result := TStringStream.Create(Base64);
  finally
    BlobStringSteram.Free;
  end;
end;

Para obtener el blob como stream de un determinado campo podes usar una sencilla funcion:

delphi

function GetBlobStream(Field: TBlobField): TStream;
begin
  Result := TMemoryStream.Create;
  Field.SaveToStream(Result);
end;

La otra posibilidad es que tengas problemas con el Encoding. El tipo de datos "string" a secas no existe mas. Lo que tenes es un arreglo de caracteres que estan codificados usando un Encoding (UTF8, ANSI, ASCII,etc). Si no especificas el Encoding adecuado, podes tener perdida de informacion y eso te genera errores al convertir desde/hacia Base64

 

Para ese punto si te va a interesar el collate del campo en la BD y tambien como lo tratas en el codigo. Por que usas WideStrnig en tu funcion?

Editado por Agustin Ortu, 19 diciembre 2016 - 01:35 .

[enecumene]

Gracias Agustín, lo de Widestrin es un error, en realidad es AnsiString, porque la función DecodeBase64 tiene como parámetros ese tipo de datos, en realidad la API REST está hecho en PHP y JSON no acepta datos binarios (AL menos desconozco lo contrario), por eso debo codificarlo como base64 y en delphi debo decodificarlo, se supone debo convertir esos Bytes a Stream y es lo que no he logrardo conseguir.

[Agustin Ortu]

Yo te recomiendo usar siempre string. El compilador solo realiza la conversion UnicodeString <--> AnsiString. Por lo general emite un warning avisandote de que la conversion es implicita pero que existe.

 

Que errores te da el codigo que usaste?

[enecumene]

Pues del tipo de Exception con valores hexagesimales que ahora mismo no lo tengo a mano, pero ahora resolví eso de otra manera, ya que utilizo Slim Framework para la API REST, las imágenes son un poco tedioso, lo que hice fue crear una carpeta de imagenes fuera de slim y guardar las imágenes ahí, con la ayuda de un Helper a la clase TBitmap, introduje un procedimiento del tipo Tipo LoadFormURL y voilá!, sólo queda pelearme cómo subir imágenes desde el móvil.

 

FMX.DevGear.HelperClass

 

Saludos.