estou a tentar salvar uma tmemorystrem mas preciso de fazer o download apenas do que esta no content id
se alguem me ajudar pago um café
codigo
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.KeyFile:= appDir + AllianzKey;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.CertFile:= appDir + AllianzCertificado;
IdHTTP1.Request.ContentType := 'application/xop+xml';
IdHTTP1.Request.UserAgent := 'User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36';
IdHTTP1.HandleRedirects := true;
IdHTTP1.Request.RawHeaders.Text;
try
WorkStream:=TMemoryStream.Create;
IdHTTP1.Post(URL, Entrada, WorkStream);
RichEdit1.Lines.LoadFromStream( WorkStream); // load stream contents into rich
WorkStream.Seek(1,soFromCurrent);
try
finally
end;
// WorkStream.SaveToFile('c:\temp\test.txt');
// WorkStream.Free;
finally
WorkStream.SaveToFile('c:\temp\t.zip');
WorkStream.Position := 1;
xml da resposta
--MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3
Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
Content-Transfer-Encoding: binary
Content-ID: <0.8398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org>
<?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Body><ns:getFileResponse xmlns:ns="http://ws.allianz.com"><ns:return><swa:DownFileServiceResponse xmlns:swa="http://ws.allianz.com"><swa:msg><?xml version="1.0" encoding="ISO-8859-1"?><DownFileResponse><ReturnCode>0</ReturnCode><ReturnText></ReturnText></DownFileResponse></swa:msg><swa:file href="idfile:PMTP.O0002878.F171031.ZIP"><xop:Include xmlns:xop="http://www.w3.org/2004/08/xop/include" href="cid:1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org"/></swa:file></swa:DownFileServiceResponse></ns:return></ns:getFileResponse></soapenv:Body></soapenv:Envelope>
--MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3
Content-Type: application/octet-stream
Content-Transfer-Encoding: binary
Content-ID: <1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org>
PK r_K
POLIZA.CSVìK#É‘ û¼ÀþGŸÙYñ~@§H’™Í¾$s{ûVê.µJº…ªja~Óü„¹ :#@'Ýö6˜ÃbìiÿÀ~fô2˜LV¦˜UÅÌ`ø#Ì=,üannnnþål<š£Eùå/¾.¦Åõ¢¬Be1[Y,ÿ>ÇâW–¨ùb66ëŬœ-Ê«mhxµ\¬ÖÅÔ˜.†Åt2*FnªõôÆ™OÜв\ÜLV¼Ì]Í‹Õp2Ï׋Vô°(×….æ£+'^q$Ÿe9¯ÿTNoA´Õ`Û‰wPî<¼;Q‚|'Š`õø¥Øú÷¡>s?fçáx¦…¢€“ùd¨5ºº™ÌŒýÓ'Å|3-þ¢5Ú”•ïæjYÜZx iá\ó¡”Êðï#Sû‹Û¿Î‡“BÃW )ÙúÙèo·Šž‚^—‹©¤\O–â,®_Ž‡ëÅ‹ëñ̬Ʒ›R"‡‹‘Ym®¥™•OVËò?f“õ4»Òp è H¸v $Ls’ßõ¸4CyÃ]1]à]4.€äØ@rlH„B@"\€¸ .@Ò íH„u$¢ê¡RÜ«5 ô3é:”þj-•8¡‰¾ž¹›õ¢œ|«Íâ¿ÿ·/}Ïý0äùRˆ®„<þ‚ öj?îÿÏ_NŠ¹Á½µííÀøÑbF¥ã×îĆm* ¢4ñ¼LÞz7™f¾¸+4⦘A.†Å@ r?ó‚, <C ð‚(ÌOy^ôÂK^øy*õé/<Ÿ@.Ð<€.IÏŒ_ æçI%û`ž¼è¤v)„êeú6”µñlPÅÃ…¹^NfUTÑ[‡žçkqQ„?ñ²4ô¼<'”Ém±¡[¯HC„á%˱™ñºñÔ¬&³Åxe‚0æ)×ÀÄfd¤òŒÙ©8RWMH¹ÂlàGÄòbA@¢äç lõÍC‰‘_;ûéWo~ÿæ?ß¾ùÉ,_½•6,Á ô¢vš7?þæõ›·?i´1Ûh±` eø¯×ïªç†ñÒÚy_ p÷æûWfùöÍ_}ÿjÀO?ÿªÎŸ´ LæÃé†aŒdX¾y÷ÝOïÌø÷ÿç»÷oß4H?öøà¯_ÿøΔ¯ýöͯß
--MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3
Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
Content-Transfer-Encoding: binary
Content-ID: <0.8398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org>
<?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Body><ns:getFileResponse xmlns:ns="http://ws.allianz.com"><ns:return><swa:DownFileServiceResponse xmlns:swa="http://ws.allianz.com"><swa:msg><?xml version="1.0" encoding="ISO-8859-1"?><DownFileResponse><ReturnCode>0</ReturnCode><ReturnText></ReturnText></DownFileResponse></swa:msg><swa:file href="idfile:PMTP.O0002878.F171031.ZIP"><xop:Include xmlns:xop="http://www.w3.org/2004/08/xop/include" href="cid:1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org"/></swa:file></swa:DownFileServiceResponse></ns:return></ns:getFileResponse></soapenv:Body></soapenv:Envelope>
--MIMEBoundary_b398f51aae924238e75fca7d9461ee55b0930e2b150787c3
Content-Type: application/octet-stream
Content-Transfer-Encoding: binary
Content-ID: <1.9398f51aae924238e75fca7d9461ee55b0930e2b150787c3@apache.org>
PK r_K
POLIZA.CSVìK#É‘ û¼ÀþGŸÙYñ~@§H’™Í¾$s{ûVê.µJº…ªja~Óü„¹ :#@'Ýö6˜ÃbìiÿÀ~fô2˜LV¦˜UÅÌ`ø#Ì=,üannnnþål<š£Eùå/¾.¦Åõ¢¬Be1[Y,ÿ>ÇâW–¨ùb66ëŬœ-Ê«mhxµ\¬ÖÅÔ˜.†Åt2*FnªõôÆ™OÜв\ÜLV¼Ì]Í‹Õp2Ï׋Vô°(×….æ£+'^q$Ÿe9¯ÿTNoA´Õ`Û‰wPî<¼;Q‚|'Š`õø¥Øú÷¡>s?fçáx¦…¢€“ùd¨5ºº™ÌŒýÓ'Å|3-þ¢5Ú”•ïæjYÜZx iá\ó¡”Êðï#Sû‹Û¿Î‡“BÃW )ÙúÙèo·Šž‚^—‹©¤\O–â,®_Ž‡ëÅ‹ëñ̬Ʒ›R"‡‹‘Ym®¥™•OVËò?f“õ4»Òp è H¸v $Ls’ßõ¸4CyÃ]1]à]4.€äØ@rlH„B@"\€¸ .@Ò íH„u$¢ê¡RÜ«5 ô3é:”þj-•8¡‰¾ž¹›õ¢œ|«Íâ¿ÿ·/}Ïý0äùRˆ®„<þ‚ öj?îÿÏ_NŠ¹Á½µííÀøÑbF¥ã×îĆm* ¢4ñ¼LÞz7™f¾¸+4⦘A.†Å@ r?ó‚, <C ð‚(ÌOy^ôÂK^øy*õé/<Ÿ@.Ð<€.IÏŒ_ æçI%û`ž¼è¤v)„êeú6”µñlPÅÃ…¹^NfUTÑ[‡žçkqQ„?ñ²4ô¼<'”Ém±¡[¯HC„á%˱™ñºñÔ¬&³Åxe‚0æ)×ÀÄfd¤òŒÙ©8RWMH¹ÂlàGÄòbA@¢äç
lõÍC‰‘_;ûéWo~ÿæ?ß¾ùÉ,_½•6,Á ô¢vš7?þæõ›·?i´1Ûh±` eø¯×ïªç†ñÒÚy_
p÷æûWfùöÍ_}ÿjÀO?ÿªÎŸ´ LæÃé†aŒdX¾y÷ÝOïÌø÷ÿç»÷oß4H?öøà¯_ÿøΔ¯ýöͯß
↧
download de um ficheiro em zip mime boundary
↧
SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)
<soapenv:Header>
<wsse:Security soapenv:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"
xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
<wsse:UsernameToken wsu:Id="XXXXXXXXXX">
<wsse:Username>uuuuuuuuuuu</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">
ppppppppppp</wsse:Password>
</wsse:UsernameToken>
</wsse:Security>
</soapenv:Header>
Alguém me consegue ajudar ? (php)
↧
↧
Como alterar um servidor ftp?
Olá,
Tenho um servidor ftp e o seu visual não é muito apelativo, por isso gostaria de alterar um pouco o seu design. Como faço isso?
Obrigado.
↧
Como alterar um servidor ftp?
um servidor FTP não tem "visual", deves estar a referir-te ao teu clleinte de FTP.é simples ... usa outro
↧
RGPD
Nos últimos tempos muito se tem falado sobre uma determinada sigla… a GDPR ou RGPD… aqui na PROGRAMAR decidimos dar uma olhadela neste assunto. Para ficarmos esclarecidos e ajudarmos o leitor a ficar mais esclarecido. E é este o motivo pelo qual este artigo surgiu.
Assim sendo vamos a isto… em português a sigla significa Regulamento Geral de Proteção de Dados (RGPD), também conhecida por GDPR – General Data Protection Regulation.
Todos nós sabemos que cada vez mais informação é poder. Vivemos num mundo em que tecnologia e informação andam cada vez mais de mãos dadas.
Ler mais…
↧
↧
Utilizar Webservices da AT
Se me queres citar, usa uma frase que eu tenha dito (escrito)!
↧
Programador Web (PHP+JS+CSS) Freelancer
Boa tarde,
Procuro programador web freelancer para desenvolvimentos à medida ou customização de aplicações web existentes.
Cumprimentos,
Pedro Vieira
↧
Desafio procuro
Também estou no 12º Ano e também tenho Aplicações Informáticas. A nossa professora dá-nos fichas frequentemente e, apesar de eu (e provavelmente tu também) achar os exercícios bastante fáceis, pode ser que te entretenhas. Aqui tens
↧
SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)
ftuc,
Não sei PHP, mas qual é a tua dúvida em relação ao WS? É a forma como passas a autenticação?
Artur
↧
↧
SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)
Em relação ao tópico posso adiantar o seguinte:
As aplicações para a versão 1 dos WS deverão ser certificadas até 30 de Novembro. Nesta data vai ser feita a discussão sobre a versão 2 que deverá entrar em modo de qualidade no princípio de Dezembro.
Tenho neste momento muita coisa pronta para tentar a certificação para a versão 1. Algumas questões relacionadas com o tema e que eu possa ajudar, digam.
Artur
↧
SAFT-PT: debate de dúvidas e ideias
O UnitPrice pode ser zero? Quando o desconto é 100%?
Uma vez que: "4.1.4.19.7. * Preço unitário (UnitPrice) Preço unitário deduzido dos descontos de linha e cabeçalho, sem incluir impostos."
↧
Carro rc com braços hidráulica
Boas
eu estou a pensar por um modelo à escala, 1/16 , já vi vidéos no YouTube e sei de sites onde vendem os hidráulicos a óleo tal como na realidade , só não sei do que preciso pra poder por uma a funcionar , nem sei de quantos canais preciso no rádio
↧
retirar valores da list box
Por favor ajudem rapido amanhã tenho teste
2.4. Crie o código necessário para que ao clicar num
número da lista esse número seja removido (Sub
EliminarDaLista()) da lista e adicione à lista um novo número
que é o resultado da multiplicação do número removido por
3 (Function AlterarNumeroDaLista ()). Utilize a passagem de
parâmetros por referência (ByRef) sempre que for possível.
↧
↧
SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)
Estou a ter dificuldades na parte de autenticação, no SoapUI já consegui. Em código não estou a encontrar documentação para colocar no cabeçalho
↧
SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)
Posso colocar em vb a forma como o estou a fazer. Achas que ajuda?
↧
retirar valores da list box
Pedir trabalhos feitos é contra as regras do forum.
Reformula a tua pergunta explicando claramente o que já tentaste fazer e quais os pontos concretos em que tens duvidas, caso contrário o tópico será bloqueado.
E lembra-te, um trabalho feito por outra pessoa hoje não te ajudar a fazer o teste de amanhã!
↧
Utilizar Webservices da AT
Estive a dar uma olhada a isto...
Há um projecto em Delphi para comunicar com Smart Cards. É um bocado antigo, feito em D2007.
Fiz um fork e converti para unicode, e parece que está a funcionar OK.
No entanto, para receberes os dados, precisas de enviar o pedido ao cartão, enviando um APdu (uma string hexadecimal com o pedido), e recebendo a resposta de volta.
A questão está mesmo aí: Não faço a mínima ideia de quais APdu se deve enviar para receber o NIF (ou qualquer outro dado).
Mas se quiseres dar uma olhada, tens aqui a minha versão para testares:
https://github.com/nunopicado/PCSCSmartCardComponent
↧
↧
retirar valores da list box
eu tenho um exercicio onde tenho uma duvida que é :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedIndex <> -1 Then
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End If
End Sub
como faço quando elemino um valor da listbox faço com que ele apareça vezes 3 (triplo)
↧
retirar valores da list box
Antes de o remover, atribui-o a uma variável.
Removes o item da listbox
Multiplicas a variável por 3
Adicionas o resultado à lista
↧
Subformulário
Oi
Tenho uma tabela com campos:
Tbl_Produtos
IdProduto - autonum
NomeProduto - txt
ValorProduto - moeda
CustoFixo - s/n
Tbl_PlanilhaCalculo
idCalculo - autonum
SubTotal - moeda
Total - moeda
Tbl_Custos
idCustos - autonum
NomeProdutoCustoFixo - txt
ValorProdutoCustoFixo - moeda
NomeProdutoCustoVariado - txt
ValorProdutoCustoVariado - moeda
Estou criando um formulário de cálculo de custos onde penso em criar dois subformulário: um, Somente com Custo Fixo e outro só com Custo Variável.
A minha pergunta é:
1 - Preciso relacionar esta tabela de produtos na tabela de cálculo?
2 - Posso usar a mesma tabela para criar dois subformulários?
3 - Para separar os registros de custos eu uso fonte de controle: CustoFixo = false esta correto?
4 - Ou seria melhor criar duas tabelas: tbl_CustoFixo e tbl_CustoVariavel?
Qualquer ajuda será bem vinda.
kklo
↧