ImgToBase64

[Neftali [Germán.Estévez]]

A mi me parece una buena opción.

¿Dónde está el error? ¿En la codificación, en la decodificación?
¿Qué librería estás utilizando para hacerlo?

[D1360666]

En el foro he visto que usan la api de Windows pero siendo para Android no creo que me sirva mucho.
Estuve mirando los componentes encodermime y decodermime no se si estoy en lo correcto. Lo que necesito es como codificar y decodificar la imagen en la aplicación así luego se la envío a node como base 64 y el servidor se encarga de realizar el sql con la bd.
Espero haber sido más explícito en mi respuesta. Desde ya agradezco los aportes

[[AgustinOrtu]]

No has comentado que error te da y que biblioteca estas usando

Como ya se hablo hace no mucho, existen varias formas en Delphi de trabajar con Base64

El problema que tenes puede que sea por el Encoding; basicamente Base64 codifica/decodifica bytes, no necesariamente texto (string, caracteres), asi que hay que "elegir" un encoding cuando se realiza el proceso

Revisa estos links que hay diferentes codigos de ejemplo, usando las bibliotecas de Indy, Soap y NetEncoding

Results of DecodeBase64 only 1 Byte on Android?

BASE64 Encode and Decode is not working

[D1360666]

Gracias voy a revisar los links. Con soap vi q hay una libreria encdcd algo así pero como tengo un server nodejs en lugar de soap utilizo el componente tidhttp con sus funciones post get. Me ha parecido más sencillo en el tema comunicación pero me complique con esto q nunca utilicé. Lo que había probado era cargar la imagen como un stream y con encodermime codificarlo pero no se si está bien la idea.
Desde ya gracias por los aportes.

[[escafandra]]

Independientemente de las librerías que puedan usarse, me he tomado la libertad de escribir una Unit para codificar y decodificar en BASE64 sin utilizar la API de Windows ni librerías de terceros.

Dejo aquí el código:

Código Delphi [-]
unit BASE64;

interface

type
  TAByte = Array of Byte;
  PAByte = ^TAByte;

  function Decode64(S: String): TAByte;
  function Encode64(Bin: PByte; Count: integer): String;

implementation

const
 SB64 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

type
  SAByte = Array[0..0] of Byte;
  PSAByte = ^SAByte;

function find(C: CHAR): integer;
begin
  Result:= 0;
  while (SB64[Result+1] <> C) and (Result < 64) do inc(Result);
end;

function Decode64(S: String): TAByte;
var
  B0, B1, B2, B3: BYTE;
  L, n, i: integer;
begin
  n:= 1;
  i:= 0;
  L:= Length(S);
  SetLength(Result, (Length(S)*3) div 4);
  repeat
    B0:= find(S[n]);
    B1:= find(S[n+1]);
    B2:= find(S[n+2]);
    B3:= find(S[n+3]);

    Result[i]:=   (B0 shl 2) or (B1 shr 4);
    if B2 = 64 then break;
    Result[i+1]:= (B1 shl 4) or (B2 shr 2);
    if B3 = 64 then break;
    Result[i+2]:= (B2 shl 6) or B3;
    inc(n, 4);
    inc(i, 3);
  until n>L;
end;


function Encode64(Bin: PByte; Count: integer): String;
var
  B0, B1, B2: BYTE;
  ABin: PSAByte;
  Add, L, n, i: integer;
begin
  if Count = 0 then exit;
  ABin:= PSAByte(Bin);
  n:= 0;
  i:=1;
  L:= ((Count+2) div 3)*4;
  SetLength(Result, L);
  repeat
    B0:= ABin^[n];
    B1:= 0; B2:= 0;
    if (Count - n) > 0 then B1:= ABin^[n+1];
    if (Count - n) > 1 then B2:= ABin^[n+2];
    Result[i]:=   SB64[(B0 shr 2) and $003F +1];
    Result[i+1]:= SB64[((B0 shl 4) or (B1 shr 4)) and $003F +1];
    Result[i+2]:= SB64[((B1 shl 2) or (B2 shr 6)) and $003F +1];
    Result[i+3]:= SB64[(B2 and $3F) +1];
    inc(n,3);
    inc(i,4);
  until n >= Count;
  if n - Count >= 1 then Result[L]:=   '=';
  if n - Count = 2  then Result[L-1]:= '=';
end;

end.

Espero que sea de utilidad.


Saludos.

[D1360666]

En ese caso lo que tendría que hacer sería pasar a cadena de texto el stream imagen y codifiicarla o decodificarla no?

[[escafandra]]

Las funciones codifican y de codifican. En el caso de un stream, éste se usará para el buffer binario. Las funciones se pueden modificar para aceptar stream en lugar de un array. He usado un array para que el código sea totalmente independiente de elementos externos al mismo, como la propia VCL.

Saludos.

[D1360666]

Net Encoding me parece la mejor opción, estoy revisando como funcionaría exactamente, y ni bien tenga funcionando(si lo logro), subo el ejemplo.

[D1360666]

Perdón no había visto el ejemplo, lo voy a probar, muchas gracias por el aporte!!