ActiveDelphi

[Spyke2013]

Bom dia.
Pessoal, preciso de uma ajuda de vocês, tenho um xml nesse formato:

Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
Content-Transfer-Encoding: binary
Content-ID: <root.message@cxf.apache.org>

<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><ns7:entregarManifestacaoProcessualResposta xmlns="http://www.cnj.jus.br/tipos-servico-intercomunicacao-2.2.3.1" xmlns:ns2="http://www.cnj.jus.br/intercomunicacao-2.2.3.1" xmlns:ns3="http://www.cnj.jus.br/mni/cda-2.2.3.1" xmlns:ns4="http://www.cnj.jus.br/mni/eleicao-2.2.3.1" xmlns:ns5="http://www.cnj.jus.br/mni/criminal-2.2.3.1" xmlns:ns6="http://www.stj.jus.br/mni/v100/intercomunicacao" xmlns:ns7="http://www.cnj.jus.br/servico-intercomunicacao-2.2.3.1/"><sucesso>true</sucesso><mensagem>Manifestação processual recebida com sucesso</mensagem><protocoloRecebimento>08022910620238190041</protocoloRecebimento><dataOperacao>2023/12/20 12:59:41</dataOperacao>
<recibo><xop:Include xmlns:xop="http://www.w3.org/2004/08/xop/include" href="cid:15e39d21-fe44-4dc1-b8a4-5d09bacc6b59-1619@www.cnj.jus.br"/></recibo></ns7:entregarManifestacaoProcessualResposta></soap:Body></soap:Envelope>
--uuid:5b02092b-32c8-4c4f-9c4d-8224afcd5e0b
Content-Type: application/pdf
Content-Transfer-Encoding: binary
Content-ID: <15e39d21-fe44-4dc1-b8a4-5d09bacc6b59-1619@www.cnj.jus.br>

%PDF-1.4
%âãÏÓ
2 0 obj
<</ColorSpace/DeviceGray/Subtype/Image/Height 86/Filter/FlateDecode/Type/XObject/Width 79/Length 2469/BitsPerComponent 8>>stream
xœ­Y XSW;¢ R@\Š8®7tÜÛÂh­µbµ~~ÝÇ7:EfTªa´: ŠÕ¬¢²T€àFeUY4ÂfH€dO^ò^’÷æe/{aþï“÷î}÷ü9÷žsÏ9÷J XÅÏ7fxèÞwæa}´MÅGV»;¨Þƒ¨ƒ{†Cæ±ô*3ù~ú¤é;F}Ûñ>õ.q•ÛŸ'qºõ d”Zý¯ãxgK;+îCù¹­{èÌøÉ®ê!ÿ-™äa•ƒ Ɂ}aN¿(V</ãN‡AØU
»Óxɼ„iÇç¬ï¦Ú­]¸¸8¼p낇Ÿ3²¤«Œ>Q‹¯Êš;3Èk—¹•å¤Âyñ±—n´oÖà¡ÎèH ‘\ÞØ|Ž ˆRZX„ |V{>PËOæ4^Üíc¯U2o.ë~ځ MwÞô´”õÆÊ;U•è?v%råñíÉö.Þzùá›jQ ‚ðJ™'Ôtpu¢G@½ ˆ_ãcÛôE|®VR.­(ShH õ­HNã“Ìû;Z¥q
rž6ß-då7H|·N‘
z)[Ž`
tµtPnP•'6…»ÿu–Wê
f±BDú¨y÷Šˆªî~0—YׂcS²"E ƒ;H¾$>Äþ²\çg^Ëw;äg£8‡ïÓ»°ò¼^ûTH›øšw¾¸ë&ãè%„~b³Y:×U…òx¢¸?7¬—£+
Ëêtr¤„<Î>lžÎøSŽ G†HÈlC¬á r°ß_®Ý<Ñ‚Ibø%¨õ

Gostaria que pudessem me ajudar a como baixar esse anexo que está na TAG "recibo", pois não tenho a mínima ideia de como fazer. Alguém teria um fonte de exemplo ou pudesse me indicar um lugar que tem um exemplo pra me espelhar?

obs: utilizo delphi xe2.

Grato.

[johnny-walker]

Amigo, carrego o conteúdo do node específico para um stream e salve como pdf, pois se o conteúdo for binário dá para fazê-lo.
Exceto se estiver codificado para base64, neste caso teria de decodificar e jogar numa stream para salvar o arquivo.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[Spyke2013]

[johnny-walker]

Como disse tente verificar o formato que está codificado.

Outro coisa, tente jogar o conteúdo numa TStringStream, talvez dê certo.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[Spyke2013]

[Spyke2013]

[marcieldeg]

Este retorno não é um XML, é um multipart/form-data. Note que há dois corpos: o primeiro é o XML de resposta com dados e o segundo um PDF. Normalmente se usa multipart/form-data no body da request, mas também pode ser usado na response, apesar de pouco comum.

A forma de processar depende do componente que está utilizando na leitura. Se estiver usando o Indy, você pode tentar utilizar o TIdMultiPartFormDataStream.

Outra forma menos bonita é ler o conteúdo como Stream a partir de %PDF-... que é onde inicia o PDF. Mas para isso é necessário ler os dados como array de bytes, e não como texto, senão o resultado pode ser corrompido.
_________________
"Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!"

[Spyke2013]

[Spyke2013]

[marcieldeg]

O exemplo do link abaixo usa uma response multipart composta de um texto e uma imagem. Você pode usar de base para seu código:

https://stackoverflow.com/questions/66728692/delphi-indy-tidhttp-and-multipart-x-mixed-replace-with-text-and-jpeg-image

Correção: este tipo de retorno é multipart/x-mixed-replace, e não multipart/form-data como disse antes.
_________________
"Olha a interface da IDE! Será que ela é? Será que ela é? DELPHI!"