Ver Mensaje Individual
  #2  
Antiguo 21-03-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola frankizzio.
Cita:
Empezado por frankizzio Ver Mensaje
...
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita