Base64 IdDecoderMIME a zip

[GustavoCruz]

Hola amigos del foro, estoy obteniendo unos datos de un webservice por medio de un archivo Json, en el se encuentra codificado un archivo pdf, un xml y un zip

para obtener el pdf utilizo el siguiente procedimiento

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  decode: TIdDecoderMIME;
  stream: TMemoryStream;
begin  
  Memo4.Text := RESTResponse2.JSONValue.ToJSON;

  ParseJSON(RESTResponse2.JSONValue as TJSONObject);

  // ---------------- se crea pdf ----------------
  decode := TIdDecoderMIME.Create(nil);
  stream := TMemoryStream.Create;

  decode.DecodeStream(Memo2.Text, stream);

  stream.SaveToFile('documento.pdf');
  FreeAndNil(decode);
  FreeAndNil(stream);  

end;

estos archivos vienen codificados en base64.
Lo que no he podido es obtener el archivo zip

Gracias por su tiempo

Gustavo Cruz

[dec]

Hola a todos,

¿Obtienes algún error? Quiero decir, si puedes decodificar el archivo PDF... a bote pronto no parece haber diferencia para hacer lo propio con el archivo zip...

[GustavoCruz]

Hola dec, con el archivo pdf no hay ningún error, y creí que sería lo mismo con el zip; simplemente escribir 'd:\archivo.zip', el problema surge es con el archivo zip, cuando lo voy abrir me dice que el archivo tiene un formato desconocido o está dañado

[Casimiro Notevi]

¿Y el código?

[GustavoCruz]

Hola Casimiro Notevi, quise utilizar el mismo código que para el archivo en pdf, he estado buscado en los foros para ver si había alguna solución utilizando TIdDecoderMIME, pero no he encontrado nada

Gracias por tu tiempo

[GustavoCruz]

Hola esto es parte de un código para tratar el mismo problema que tengo. está en php

Código PHP:

$filename=$response['document']['number'].'.zip';
        $data = base64_decode($response['document']['zipBase64Bytes']);
        header("Cache-Control: public");
        header("Content-Description: File Transfer");
        header("Content-Disposition: attachment; filename=$filename");
        header('Content-Type: application/zip');
        return  $data; 


yo necesito hacer eso mismo pero con delphi, actualmente estoy utilizando IdDecoderMIME o si hay alguna otra mejor opción.
Esto lo recibo como respuesta de un webservice en un archivo json