CURL: Salvar página WEB como arquivo PDF

[rochinha]

Amiguinhos,

Com esta dica é possível tirar uma fotocópia da página de um site e salvar como PDF.

Assim como a postagem que salva página WEB como imagem esta também é interessante para quem tem um módulo de documentos no sistema e quer salvar para consultas posteriores para efeito de knowledge base.

request.json

Código: Selecionar todos

{
	"url":"https://amazon.com",
	"renderType":"pdf"
}

Salve o conteúdo acima dentro do arquivo request.json

Linha de comando:

Código: Selecionar todos

curl -v -k -H "Content-Type: application/json" -H "Expect:" -X POST -d @request.json "https://PhantomJScloud.com/api/browser/v2/a-demo-key-with-low-quota-per-ip-address/"  -o capture.pdf

[sygecom]

Showwwwww muito bom isso

[Softwhouse]

Olá,

Tem como colocar um exemplo prático disso ?

Compilei e só apresentou erros.

[Itamar M. Lins Jr.]

Olá!
https://curl.se/windows/
Digita no prompt CMD do windows 7....10 para ver.
CURL.EXE ... Na linha de comando.

Saudações,
Itamar M. Lins Jr.

[Softwhouse]

'Curl.exe ' não é reconhecido como um comando interno ou externo, ....

[Itamar M. Lins Jr.]

Olá!

'Curl.exe ' não é reconhecido como um comando interno ou externo, ....

Tem que baixar primeiro no link que postei, instalar ele primeiro.

Saudações,
Itamar M. Lins Jr.

[asimoes]

Desculpa Rochinha

Tinha que ver se consegiria de outra forma:

Código: Selecionar todos

   nResolve := 5 * 1000  
   nConnect := 5 * 1000  
   nSend    := 30 * 1000  
   nReceive := 30 * 1000  
   
   oServerWS := Win_OleCreateObject("MSXML2.ServerXMLHTTP")
   oXMLDoc   := Win_OleCreateObject("MSXML2.DOMDocument")

   cUrlWS := "https://PhantomJScloud.com/api/browser/v2/a-demo-key-with-low-quota-per-ip-address/"
   
   With Object oServerWS
      :SetTimeouts( nResolve, nConnect, nSend, nReceive )
      :Open( "POST", cUrlWS, .F. )
      :SetRequestHeader( "Content-Type", 'application/json; charset="utf-8"' )
      :SetRequestHeader( "Content-Length", hb_NtoS( hb_BLen( Hb_MemoRead("request.json") ) ) )
      :Send( Hb_MemoRead("request.json") )
       Do While :readyState != 4
          :WaitForResponse( 1000 )
       Enddo
       cResponseText := :responseBody
       Hb_Memowrit("teste.pdf", cResponseText )
   End 

[asimoes]

Página desse fórum usando a técnica que postei acima, salvando como jpeg

[malcarli]

Bom dia amigo, estou precisando baixar este pdf de nfse. Usei a sua rotina, tenta baixar o arquivo, mas interrompe e o mesmo fica corrompido. Como o post é antigo não sei se mudou algo nas libs. Uso minigui extendend com harbour. Abaixo usei esse link:

Código: Selecionar todos

{
   "url":"https://marilia.sigiss.com.br/nfe_ver.php?id=27407457&id_cadastro=2564295&hash=JW2VHGLH&nfe=14",
   "renderType":"pdf"
}

Se Puder dar uma luz agradeço. Bfds

Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
https://malc-informatica.ueniweb.com
Insta: @malcarli25
Email / Skype: malcarli@life.com.br

[JoséQuintas]

Já tentou o jeito normal de qualquer download ?

[malcarli]

tentei o exemplo acima e não funcionou. Não tenho outro exemplo

[JoséQuintas]

Estou na rua agora mas....
Não baixa exe, arquivos, páginas?
É a mesma coisa.
O mesmo usado pra nfe, mas sem a complicação.
Deve ter no fórum, pesquise xmlhttp
Ou talvez downloadfile, se postei a rotina

[JoséQuintas]

Comentário:

O post é sobre salvar página de internet em formato PDF.
A rotina do Rochinha não funcionou para o seu caso, porque no seu caso o endereço JÁ É PDF, não precisa converter.
Até ia dividir o post, mas seu comentário foi sobre ter usado a rotina do post, e ficaria sem sentido em outro lugar.
Por outro lado, a rotina de download ficaria perdida neste tópico sobre baixar convertido pra PDF.

Então, coloquei aqui:
https://pctoledo.org/forum/viewto ... 43&t=26878