Codigo QR AFIP Argentina

[Carmelo Cash]

Buen día:

Gracias por responder.

lo que no sé como hacer es :

"Codificar ese JSON en base64"

[[duilioisola]]

Yo utilizo una unidad que utiliza las librerías de windows para hacer eso...
Pasa de Stream a string y el string está codificado en Base64
También decodifica.

Para utilizarlo con un string -> string deberás crear un TMemoryStream de la cadena (JSON) y pasárselo.

Código Delphi [-]
const
  CRYPT_STRING_BASE64 = 1;

function CryptBinaryToString(pbBinary: PByte; cbBinary: DWORD; dwFlags: DWORD; pszString: PChar; var pcchString: DWORD): BOOL; stdcall;
  external 'Crypt32.dll' Name 'CryptBinaryToStringA';

function CryptStringToBinary(pszString: PChar; cchString: DWORD; dwFlags: DWORD; pbBinary: PByte; var pcbBinary: DWORD; pdwSkip: PDWORD; pdwFlags: PDWORD): BOOL; stdcall;
  external 'Crypt32.dll' Name 'CryptStringToBinaryA';

//---------------------------------------------------------------------------
// Codifica un TMemoryStrean a cadena Encode64
function StreamToStrB64(MStream: TMemoryStream; var Str: string): boolean;
var
  Size : DWORD;
begin
  Result := CryptBinaryToString(MStream.Memory, MStream.Size, CRYPT_STRING_BASE64, 0, Size);
  if Result then
  begin
     SetLength(Str, Size);
     Result := CryptBinaryToString(MStream.Memory, MStream.Size, CRYPT_STRING_BASE64, @Str[1], Size);
  end;
end;

//---------------------------------------------------------------------------
// Decodifica una cadena Encode64 a su binario original en un TMemoryStream
function StrB64ToStream(var Str: string; MStream: TMemoryStream): boolean;
var
  Size : DWORD;
begin
  Result := CryptStringToBinary(@Str[1], Length(Str), CRYPT_STRING_BASE64, 0, Size, nil, nil);
  if Result then
  begin
     MStream.SetSize(Size);
     Result := CryptStringToBinary(@Str[1], Length(Str), CRYPT_STRING_BASE64, MStream.Memory, Size, nil, nil);
  end;
end;

[[duilioisola]]

Un ejemplo de utilización completa sería:

Código Delphi [-]
procedure TFMPruebas.BBase64Click(Sender: TObject);
var
  strJSON, strBase64 : string;
  StreamOrigen, AMemoryStream : TStream;
  QR : TImage;
begin
   inherited;

   // String JSON de ejemplo
   strJSON := '{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"ptoVta":10,"tipoCmp":1,"nroCmp":94,"importe":12100,"moneda":"DOL","ctz":65,"  tipoDocRec":80,"nroDocRec":20000000001,"tipoCodAut":"E","codAut":70417054367476}';

   // Cargo JSON en un Stream
   StreamOrigen := TStringStream.Create(strJSON);
   AMemoryStream := TMemoryStream.Create;
   QR := TImage.Create(Self);
   try
      AMemoryStream.CopyFrom(StreamOrigen, StreamOrigen.Size);
      // Convierto a Base64
      StreamToStrB64(TMemoryStream(AMemoryStream), strBase64);

      // Creo imagen con código QR de string Base64
      CrearCodigoQR(QR.Picture.Bitmap, strBase64, 3);
   finally
      StreamOrigen.Free;
      AMemoryStream.Free;
      QR.Free;
   end;
end;

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

Empezado por Carmelo Cash

"Codificar ese JSON en base64"

Ya te han puesto ejemplos.
En la docwiki de embarcadero tienes información de cómo hacerlo. Las versiones nueva ya incluyen lo necesario para hacerlo.
https://docwiki.embarcadero.com/Libr...coding_Methods

Esta clase: System.NetEncoding.TBase64Encoding se describe como:
Provides methods to encode and decode data in base64 format.

Posee métodos de clase que puedes llamar directamente.
Y algún ejemplos:

For example:

Encode('Example') returns 'RXhhbXBsZQ=='.
Decode('RXhhbXBsZQ==') returns 'Example'.

[Carmelo Cash]

Buenos días:

Estoy probando la función que pasó duilioisola.


El tema es que codifica bien hasta la posición 164, luego comienzan las diferencias..



esto debería dar:

eyJ2ZXIiOjEsImZlY2hhIjoiMjAyMC0xMC0xMyIsImN1aXQiOjMwMDAwMDAwMDA3LCJwdG9WdGEiOjEwLCJ0aXBvQ21wIjoxLCJu cm9DbXAiOjk0LCJpbXBvcnRlIjoxMjEwMCwibW9uZWRhIjoiRE9MIiwiY3R6Ijo2NSwidGlwb0RvY1JlYyI6ODAsIm5yb0RvY1Jl YyI6MjAwMDAwMDAwMDEsInRpcG9Db2RBdXQiOiJFIiwiY29kQXV0Ijo3MDQxNzA1NDM2NzQ3Nn0

esto da:

eyJ2ZXIiOjEsImZlY2hhIjoiMjAyMC0xMC0xMyIsImN1aXQiOjMwMDAwMDAwMDA3
LCJwdG9WdGEiOjEwLCJ0aXBvQ21wIjoxLCJucm9DbXAiOjk0LCJpbXBvcnRlIjox
MjEwMCwibW9uZWRhIjoiRE9MIiwiY3R6Ijo2NSwiIHRpcG9Eb2NSZWMiOjgwLCJu
cm9Eb2NSZWMiOjIwMDAwMDAwMDAxLCJ0aXBvQ29kQXV0IjoiRSIsImNvZEF1dCI6
NzA0MTcwNTQzNjc0NzZ9

[[duilioisola]]

Me sucedió lo mismo con el ejemplo que enviaste...
El problema era que había un espacio de más...

En el ejemplo que escribí hay espacios de más:

Código Delphi [-]
   strJSON := '{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"ptoVta":10,"tipoCmp":1,"nroCmp":94,"importe":12100,"moneda":"DOL","ctz":65  ,"  TipoDocRec":80,"nroDocRec":20000000001,"tipoCodAut":"E","codAut":70417054367476}';

Mira :"ctz":65,"__tipoDocRec":80,"nroDocRec":

Si corriges esto la conversión a Base 64 es correcta.