[Resolvido] Usando ImportFromURL com ASPPDF

Nino7 · Maio 11, 2010

Não estou conseguindo utilizar o componente para utilizar o HTML direto no ImportFromURL, como no MANUAL do próprio desenvolvedor do ASPPDF. Será que alguém me ajuda ou tem um exemplo ai?

<!–METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"–>   
<%   
' Início - Mostrar Gerador : Gerar PDF '   
    Dim Pdf, Doc, Page, str   
    Set Pdf = Server.CreateObject("Persits.Pdf")   
    Set Doc = Pdf.CreateDocument   
	Set param = Pdf.CreateParam("x=10;y=270;height=800;width=196; size=10; html=true") 
  
	Doc.ImportFromUrl "<HTML>Oi</HTML>"
	Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)   
  
        For Each Page In Doc.Pages   
            Page.Canvas.DrawText "Pág. "&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")   
        Next  
  
    Doc.SaveHttp("attachment; filename=TESTE.pdf")   

%>

xanburzum · Maio 11, 2010

ele esta gerando algum erro ???

olha este exemplo:

<!--METADATA TYPE="TypeLib" UUID="{414FEE4B-2879-4090-957E-423567FFCFC6}"-->
<%
    Dim Pdf, Doc, Page
    Set Pdf = Server.CreateObject("Persits.Pdf")
    Set Doc = Pdf.CreateDocument

        Doc.ImportFromUrl "http://www.terra.com.br"
        Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)

        For Each Page In Doc.Pages
            Page.Canvas.DrawText "Pág."Page.Index"/"Doc.Pages.Count"", "x=15, y=20", Doc.Fonts("Arial")
        Next

    Doc.SaveHttp("attachment; filename=GerarPDF.pdf")
%>

Na sétima linha:

Doc.ImportFromUrl "http://www.terra.com.br"

Colocamos o Link, que pode ser definitivo como ´http://teste.com.br/default.asp´ ou default.html, para ser gerado o nosso PDF.

Qual server será utilizado para identificar os parâmetros de bloqueio do seu PDF a ser gerado, como por exemplo, não copiar, não imprimir, dentre outros que estão nesse link (http://www.asppdf.com/manual_08.html), são referências do Componente.

E é com essa linha de comando, Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy), que colocamos os comandos de Encrypt. Inseri uma seqüência de números qualquer e você, caso queira, pode criar sua própria (acesse o manual para mais informações).

Atenção a esta linha de código:

PdfFull And (Not PDFModify) And (Not PDFCopy)

É nela que você vai colocar os parâmetros que define o que o usuário vai mexer no PDF, exemplo: eu deixei um default que é o PdfFull e bloqueei para ele não modificar e para não copiar. Veja a tabela do que você pode colocar a mais e o peso em Bit aqui:

pdfFull = HFFFFFFFC (all significant bits)

pdfPrint = H04 (Bit 3)

pdfModify = H08 (Bit 4)

pdfCopy = H10 (Bit 5)

pdfAnnotations = H20 (Bit 6)

pdfForm = H0100 (Bit 9)

pdfExtract = H0200 (Bit 10)

pdfAssemble = H0400 (Bit 11)

pdfPrintHigh = H0800 (Bit 12)

For Each Page In Doc.Pages

Page.Canvas.DrawText "Pág."Page.Index"/"Doc.Pages.Count"", "x=15, y=20", Doc.Fonts("Arial")

E por fim:

Doc.SaveHttp("attachment; filename=GerarPDF.pdf")

Nino7 · Maio 11, 2010

Na verdade eu não quero pegar a URL ja pronta pq o PDF não da pra entender nada, se você fizer o teste vai ver como fica o PDF.

Existe uma propriedade que eu jogo uma variavel com o HTML no ImportFromURL e ele gera o PDF, tendeu?

Fiz uma pagina que que gera o PDF:

http://www.insec.com.br/nino/cic/lista/pdfterra.asp

Veja como fica e depois vá no Link fora do PDF:

http://www.insec.com.br/nino/cic/lista/pdfteste.asp

Obrigado pela ajuda ae!

xanburzum · Maio 11, 2010

mas ele esta gerando algum erro ??

Vinicius Ianni · Maio 11, 2010

Você quer gerar um pdf a partir de certas variaveis que uma pagina passa como se fosse uma listagem de uma pagina asp normal ?

Não entendi direito seu segundo post.

Vi os links que você passou e no primeiro é como se fosse um relatorio, certo ?

O segundo deu erro.

Nino7 · Maio 11, 2010

Eu quero que o Relatório vai para o PDF e a pessoa grave no computador dela,

Eu coloquei o LINK errado realmente:

http://www.insec.com.br/nino/cic/lista/testepdf.asp

E como não gera bonitinho no pDF como aparece na tela,

Eu queria definir o que será gerado, ao invés de informar a URL.

Por Exemplo como tem no Site Oficial do ASPPDF mas não funciona:

ImportFromUrl "<HTML>Tabela de Preços</HTML>"

Mais ou menos isso...

Isso que está no Site Oficial explicando mas não funciona...

13.5 Direct HTML Feed 
Starting with Service Release 1.6.0.8, the ImportFromUrl method allows you to specify an HTML string directly via the first parameter (URL). The string must contain the sub-string <HTML or <html to be recognized as a direct HTML feed and not a URL. For example: 
str = "<HTML><TABLE><TR><TD>Text1</TD><TD>Text2</TD></TR></TABLE></HTML>"
Doc.ImportFromUrl str 

If an HTML string is to include references to images, or other external objects, you must use fully qualified URLs for these objects. Fractional URLs will not be recognized since there is no "base" URL to be applied here: 

' Correct
str = "<HTML><IMG SRC=""http://localhost/images/logo.jpg""></HTML>"

xanburzum · Maio 11, 2010

Filename = Doc.Save( "e:\home\user\web\asppdf\texto.pdf", False )

response.write "Arquivo gerado com sucesso!"

response.write " Clique <a href=" & Filename & " target='_blank'>aqui</a> para visualizar o arquivo."

Nino7 · Maio 12, 2010

O que você fez? Rs*

Não tem nada ve com o que eu qro, isso ai que você postou eh o resultado na tela pra pessoa clicar e ver o PDF, o que eu to falando eh a Tabela dentro do PDF.

Qria uma ajuda de alguém que entendesse ou que ja tenha utilizado o componente, o que você está postando são coisas que já vi por ai na Internet, tudo cópia do próprio Manual ASPPDF.

Soh preciso criar uma TABELA com os dados no PDF e que fique certinho na pagina.

xanburzum · Maio 12, 2010

cria as tags da tabela no response.write

Nino7 · Maio 12, 2010

Não tem como criar com o RESPONSE.WRITE.

Mas quase consegui, soh preciso que o ImportFromURL pegue a variavel como URL...

Conseguiiiiiiiiiiiiiiiiiii... Valeu a tentativa ai de quem ajudou!!!

Vou postar o CÓDIGO pra quem precisar...

<%   
' Início - Mostrar Gerador : Gerar PDF '   
    Dim Pdf, Doc, Page
    Set Pdf = Server.CreateObject("Persits.Pdf")   
    Set Doc = Pdf.CreateDocument   
	
	Search = Request.QueryString("Search")
	Local = Request.QueryString("Local")

	Doc.ImportFromUrl ("http://www.seusite.com.br/GeraPDF.asp?Search=" & Search & "&Local=" & Local & "")

       Doc.Encrypt "7658tedk4784584754747584484584854484545", "", 40, PdfFull And (Not PDFModify) And (Not PDFCopy)   
  
'        For Each Page In Doc.Pages   
'            Page.Canvas.DrawText "Pág. "&Page.Index&"/"&Doc.Pages.Count&"", "x=15, y=20", Doc.Fonts("Arial")   
'        Next  
  
    Doc.SaveHttp("attachment; filename=Arquivo.pdf"),True

Set Pdf = Nothing
Set Doc = Nothing
Set Page = Nothing

%>

xanburzum · Maio 12, 2010

ok, parabéns

Nino7 · Junho 23, 2010

Agora eu percebi que não ta habilitado pra IMPRIMIR,

Como faço pq naum entendi...

:angry:

xanburzum · Junho 23, 2010

não entendi, o que você quer dizer sobre "Agora eu percebi que não ta habilitado pra IMPRIMIR, especifique mais, seja mais detalhado

matheusmelo · Agosto 12, 2014

Estou criando um pdf baseado em template pdf, fazendo o importFromURL, porém no pdf template tem uma imagem no cabeçalho e outra no rodapé com informações, gostaria que ele repetisse esse cabeçalho em todas as páginas, como o conteúdo é dinâmico vindo de um editor fckeditor onde os dados vão ser preenchidos e dpois exportados para o pdf, no caso a quantidade de páginas é variável então qndo o conteúdo ocupa mais de uma página a segunda página não aparece o cabeçalho nem o rodapé, fica o texto em uma página em branco.

Segue o código q estou usando:

Set Pdf = Server.CreateObject("Persits.Pdf")

Set Doc = Pdf.OpenDocument( Server.MapPath( "pdf/template.pdf" ) )

If Doc Is Nothing Then

Response.Write "This PDF is password-protected."

' Obtain a password from user and try again

Set Doc = Pdf.OpenDocument(Server.MapPath( "pdf/template.pdf" ), Pwd)

End If

cnt = cnt & request.Form("editor")

Doc.ImportFromUrl "http://www.site.com.br/gerahtmlpdf.html", "scale=0.6; hyperlinks=true; drawbackground=true"

Filename = Doc.Save( Server.MapPath("pdfgerado.pdf"), False )

Response.Redirect ("pdfgerado.pdf")

Alguém pode me ajudar ??
Preciso resolver isso com certa ugência.

Desde já agradeço a atenção de todos.

xanburzum · Agosto 13, 2014

Por favor responda apenas neste tópico.

http://forum.imasters.com.br/topic/525253-usando-importfromurl-com-asppdf-usando-template-pdf/

Para maior fluidez de nosso fórum.

Arquivado

[Resolvido] Usando ImportFromURL com ASPPDF

Recommended Posts

Nino7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nino7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nino7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nino7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nino7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Nino7 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

matheusmelo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeginiter - Orientação para Impressão

Ajuda com Extends e envio para o banco

Fixar div até atingir uma certa altura

Fóruns

Tempo Real

Informação importante