ABCpdf
ABCpdfO componente ABCpdf permite que você gere arquivos no formato *.pdf dinamicamente através de scripts Asp. Em plataformas Windows 2003 está disponibilizado as versões 5 e 8 do componente ABCPdf, enquanto em Windows 2008 o mesmo está disponibilizado da seguinte forma: Windows 2008 32 bits (ABCPdf 5) e Windows 2008 64 bits (ABCPdf 8). Gerando um arquivo PDFArquivo: abcpdf.asp (por exemplo) <% 'Declara as variáveis a serem utilizadas no script Dim ABCpdf, theF1, theF2 'Instancia o componente. Componente instalado em Windows 2003 e Windows 2008 (32 bits) SET ABCpdf = Server.CreateObject("ABCpdf5.Doc") 'Instancia o componente. Componente instalado em Windows 2003 e Windows 2008 (64 bits) 'SET ABCpdf = Server.CreateObject("ABCpdf8.Doc") 'Define o tamanho da fonte ABCpdf.FontSize = 25 'Define a cor da fonte ABCpdf.Color = "255 0 0" 'Adicionando a primeira página ABCpdf.Page = ABCpdf.AddPage() 'Define o tipo da fonte theF1 = ABCpdf.AddFont("Times-Roman") 'Define a fonte em negrito theF2 = ABCpdf.AddFont("Times-Bold") 'Adicionando a fonte e informando o texto da página ABCpdf.Font = theF1 ABCpdf.AddText "Teste do componente ABCpdf - página 1" 'Adicionando a fonte em negrito e informando o texto para a segunda página ABCpdf.Font = theF2 ABCpdf.Page = ABCpdf.AddPage() ABCpdf.AddText "Teste do componente ABCpdf - página 2" 'Centralizando a figura ABCpdf.Rect.Inset 50, 100 ABCpdf.FrameRect 'Adicionando uma figura 'Remova o comentário e indique o caminho da imagem no servidor 'ABCpdf.AddImage "e:\home\Seu_Login_FTP\web\images\figura.jpg" 'Para quem utiliza serviços da REVENDA conosco 'ABCpdf.Save "E:\vhosts\DOMINIO_COMPLETO\httpdocs\images\figura.jpg" 'Salvando o arquivo .pdf na sua área de hospedagem 'Você pode utilizar esta forma especificando o caminho completo do servidor onde salvar o arquivo 'ABCpdf.Save "e:\home\Seu_Login_FTP\web\pdf\arquivo.pdf" 'Para quem utiliza serviços da REVENDA conosco 'ABCpdf.Save "E:\vhosts\DOMINIO_COMPLETO\httpdocs\pdf\arquivo.pdf" 'Ou você pode indicar o caminho relativo utilizando ./ em conjunto com o Server.MapPath() ABCpdf.Save Server.MapPath("./pdf/arquivo.pdf") response.write "<font color='blue'><b> Arquivo gerado com sucesso !</b></font><br>" response.write "<br>Clique <a href='./pdf/arquivo.pdf' target='_blank'>aqui</a> para visualizar o arquivo." 'Remove a referência do objeto da memória SET ABCpdf = Nothing SET theF1 = Nothing SET theF2 = Nothing %>
Gerando arquivo PDF a partir de URLArquivo: abcpdfURL.asp (por exemplo) <% 'Instancia o componente. Componente instalado em Windows 2003 e Windows 2008 (32 bits) Set theDoc = Server.CreateObject("ABCpdf5.Doc") 'Instancia o componente. Componente instalado em Windows 2003 e Windows 2008 (64 bits) 'Set theDoc = Server.CreateObject("ABCpdf8.Doc") theDoc.Rect.Inset 20, 20 'Margens da página theDoc.Page = theDoc.AddPage() arquivo = "Nome_Arquivo" 'Busca a URL desejada theDoc.AddImageUrl("http://www.site.com.br") For i = 1 To theDoc.PageCount theDoc.PageNumber = i theDoc.Flatten Next 'Agora vamos salvar o arquivo PDF no servidor para ser usado posteriormente, lembrando que a pasta onde vamos salvar deve ter permissão de escrita. No caso usaremos a pasta "pdf". theDoc.Save Server.MapPath("/pdf/" & arquivo & ".pdf") 'agora abrimos o arquivo PDF direto do servidor response.Redirect("http://www.seusite.com.br/pdf/" & arquivo & ".pdf") %>
Veja tambémLinks |
||||