Convertir String - TDynArray - Archivo ZIP

[ecfisa]

Hola frankizzio.

Empezado por frankizzio

...
La documentación del web service especifica que la respuesta es un arreglo de bytes de base64,

No se si tendrá que ver con el error, pero si tenes que trabajar en base 64 intenta de este modo:

Código Delphi [-]
uses Types;

// String -> TInt64DynArray
function StringToBDA64(str: AnsiString): TInt64DynArray;
begin
  SetLength(Result, Length(str));
  Move(str[1], Result[0], Length(str));
end;

// TInt64DynArray -> String
function BDA64ToString(bda: TInt64DynArray): AnsiString;
begin
  SetString(Result, PAnsiChar(@bda[0]), Length(bda));
end;

// TInt64DynArray -> file
procedure BDA64ToFile(bda: TInt64DynArray ; const FileName: string);
begin
  with TMemoryStream.Create do
  try
    Write(bda[0], Length(bda));
    SaveToFile(FileName);
  finally
    Free;
  end;
end;

Saludos