[Resolvido] Como adicionar imagens ao pdf FPDF+ASP.

eXtrem3 · Dezembro 3, 2007

Olá companheiros do fórum, a tempos venho tentando adicionar uma imagem em um relatório que codei em FPDF. Fantastico e tal mas não consigo de maneira alguma adicionar uma imagem no neste PDF. Venho pesquisando na net mas... são as mesmas explicações que já tentei, e a maioria é feita em PHP. Por favor se alguém já conseguiu fazer me da uma luz ai. Desde já agradeço.!

http://forum.imasters.com.br/public/style_emoticons/default/natal_w00t.gif

dataset · Dezembro 3, 2007

nomIma = "teste.jpg"

pdf.Image nomIma, 28, 25, 70, 20, "JPG", "http://www.se_quizer_aqui_vai_o_link.html"

eXtrem3 · Dezembro 5, 2007

nomIma = "teste.jpg"
pdf.Image nomIma, 28, 25, 70, 20, "JPG", "http://www.se_quizer_aqui_vai_o_link.html"

Obrigado Amigo mais ja tentei assim e da o seguinte erro:

<B>FPDF error: </B>Unable to create output file: c:\inetpub\wwwroot\almoxarifado\radD9648.tmp

dataset · Dezembro 5, 2007

Microsoft:

Mensagem de Erro: A arquivo <Filename>.tmp não pode ser aberto.

Essa extensão .tmp são arquivos temporários:

http://support.microsoft.com/kb/243573/pt-br

você ja testou trocar a imagem por alguma suportada pelo FPDF ? Não sei todos q ele suporta pois só usei .jpg e .gif. Creio que por não poder abrir arquivos temporários (.tmp) o FPDF ta estorando esse erro.

Troque por uma imagem no padrão e veja se abre.

Att;

eXtrem3 · Dezembro 7, 2007

Microsoft:

Mensagem de Erro: A arquivo <Filename>.tmp não pode ser aberto.

Essa extensão .tmp são arquivos temporários:

http://support.microsoft.com/kb/243573/pt-br

você ja testou trocar a imagem por alguma suportada pelo FPDF ? Não sei todos q ele suporta pois só usei .jpg e .gif. Creio que por não poder abrir arquivos temporários (.tmp) o FPDF ta estorando esse erro.

Troque por uma imagem no padrão e veja se abre.

Att;

Pois estão colega, eu estou tentando colocar uma imagem de extensão ".JPG" eu não estou tentando colocar um arquivo temporário. Já tentei imagens PNG também! Não consigo de jeito nenhum fazer tal feito. Hehe já vão interar 3 semanas que to tentando, apanhei pra caramba mais consegui fazer todas as outras coisas que queria no FPDF, mas a imagem que é bom pOOOOrrrrrrrrrrrá nenhuma! :) mas agraço de coração sua ajudo dataset!!! :P Abaixo vou colocar meu codigo pra você analizar

<%@language=vbscript %>

<!--#include file="fpdf.asp"-->

<%

Dim conn

dim sqlResultado

dim rsResultado
dim nomIma 


Set conexao= server.createObject("ADODB.Connection")

conexao.CursorLocation = 3

conexao.open ("DRIVER=Firebird/InterBase® driver; UID=SYSDBA;PWD=######; DBNAME=###/wwwroot/almoxarifado/Bd/BD.GDB")



sql= "select * from Almoxarifado where COD_FUNC='"&request.querystring("COD_FUNC")&"'"

Set rs= Server.CreateObject( "ADODB.RecordSet" )

rs.Open sql, conexao

Set pdf=CreateJsObject("FPDF")

pdf.CreatePDF()

pdf.SetPath("fpdf/")
 
pdf.SetFont "Arial","",12

pdf.Open()

pdf.AddPage()
nomIma = "logo.jpg"
pdf.Image nomIma, 28, 25, 70, 20, "JPG", "http://www.se_quizer_aqui_vai_o_link.html"
pdf.text 80,10, "TERMO DE OCORRÊNCIA"
pdf.text 20,30, "Nome: "& rs("NOME_FUNC") & ""
pdf.text 20,35, "Setor: "& rs("SETOR_FUNC") & ""
pdf.text 20,40, "Data da Admissão: "& rs("DATA_ADM") & ""
pdf.ln 40
pdf.multicell 200,5, "Declaro estar recebendo da empresa ADAR IND. COM. IMP. EXP. LTDA, os uniformes de uso pessoal, que é de minha obrigação usá-los.Sendo de minha inteira responsabilidade o manuseio correto. Declaro ainda estar ciente do uso. Obrigatório, e de devolver assim que me for solicitado.O não uso deste uniforme implicara, nas sanções determinadas pela Gerência.",0,"R","R",1
pdf.ln 10

pdf.Cell 100,5, "MATERIAL",1,0,"L"
pdf.Cell 50,5, "OBSERVAÇÃO",1,0,"L"
pdf.Cell 40,5, "DATA: "& rs("TROCA_MAT")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_01")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_01")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_02")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_02")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_03")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_03")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_04")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_04")& "",1,0,"L"
pdf.Ln() 
pdf.Cell 100,5, ""& rs("MATERIAL_05")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_05")& "",1,0,"L"
pdf.Ln() 
pdf.Cell 100,5, ""& rs("MATERIAL_06")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_06")& "",1,0,"L"
pdf.Ln()
pdf.Ln 20
pdf.Cell 190,5, "HISTÓRICO DE TROCAS",1,0,"L"
pdf.Ln()
pdf.multiCell 190,10, ""& rs("HISTORICO_TROCA")&"",1,0,"L"
pdf.Ln 60
pdf.cell 153,10, "____________________________________________",0,0,"R","R"
pdf.Ln()
pdf.cell 200,5, ""& rs("NOME_FUNC") & "",0,"C","C","C"



pdf.Close()

pdf.Output()



rs.Close

Set rs= Nothing

conexao.close

Set conexao= Nothing
%>

dataset · Dezembro 7, 2007

Testado e aprovado:

<%@Language=VBScript%>
<!--#include file="../fpdf.asp"-->
<%

nomIma = "cadastro.jpg"

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "L", "mm", "A4"
pdf.SetPath("../fpdf/")
pdf.Open()

pdf.AddPage()

	pdf.SetTitle "Teste da Iamgem"
	pdf.Image nomIma, 28, 25, 70, 20, "JPG", "http://seu_endereco.com.br"

pdf.Close()
pdf.Output()
%>

Pega esse modelo e copia pro seu projeto, troque a imagem do tpo jpg por uma existente. Respeite a estrutura de diretórios que funciona sem erro.

Faz um teste com esse modelo e poste o resultado.

Att;

eXtrem3 · Dezembro 20, 2007

Testado e aprovado:
<%@Language=VBScript%>

<%

nomIma = "cadastro.jpg"

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "L", "mm", "A4"
pdf.SetPath("../fpdf/")
pdf.Open()

pdf.AddPage()

	pdf.SetTitle "Teste da Iamgem"
	pdf.Image nomIma, 28, 25, 70, 20, "JPG", "http://seu_endereco.com.br"

pdf.Close()
pdf.Output()
%>
Pega esse modelo e copia pro seu projeto, troque a imagem do tpo jpg por uma existente. Respeite a estrutura de diretórios que funciona sem erro.

Faz um teste com esse modelo e poste o resultado.

Att;

faaala dataset muito obrigado mano agora deu certo!!! se é o cara!!! :DDD http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif Feliz natal e um ótimo ano novo pra você irmão! :)

Vou adicionar meu codigo pro pessoal que está com dificuldades como eu.

<%@language=vbscript %>

<!--#include file="fpdf.asp"-->

<%

Dim conn

dim sqlResultado

dim rsResultado
Dim nomIma 
nomIma = "logo.jpg"

Set conexao= server.createObject("ADODB.Connection")

conexao.CursorLocation = 3

conexao.open ("DRIVER=Firebird/InterBase® driver; UID=user;PWD=senha; DBNAME=localdadb/Bd/BD.GDB")



sql= "select * from Almoxarifado where ID_FUNC='"&request.querystring("COD_FUNC")&"'"

Set rs= Server.CreateObject( "ADODB.RecordSet" )

rs.Open sql, conexao

Set pdf=CreateJsObject("FPDF")

pdf.CreatePDF()

pdf.SetPath("fpdf/")

 
pdf.SetFont "Arial","",12

pdf.Open()

pdf.AddPage()
 pdf.SetTitle "Teste da Iamgem"
 pdf.Image nomIma, 10, 1, 40, 22, "jpg", "index.asp"
 pdf.text 50,5, "ADAR IND. E COM IMP. EXP. LTDA"
 pdf.text 50,10, "Sistema Almoxarifado Três Lagoas"
 pdf.text 80,20, "TERMO DE OCORRÊNCIA"
 pdf.text 20,30, "Nome: "& rs("NOME_FUNC") & ""
 pdf.text 20,35, "Setor: "& rs("SETOR_FUNC") & ""
 pdf.text 20,40, "Data da Admissão: "& rs("DATA_ADM") & ""
 pdf.ln 40
 pdf.multicell 200,5, "Declaro estar recebendo da empresa ADAR IND. COM. IMP. EXP. LTDA, os uniformes de uso pessoal, que é de minha obrigação usá-los.Sendo de minha inteira responsabilidade o manuseio correto. Declaro ainda estar ciente do uso. Obrigatório, e de devolver assim que me for solicitado.O não uso deste uniforme implicara, nas sanções determinadas pela Gerência.",0,"R","R",1
pdf.ln 10

pdf.Cell 100,5, "MATERIAL",1,0,"L"
pdf.Cell 50,5, "OBSERVAÇÃO",1,0,"L"
pdf.Cell 40,5, "DATA: "& rs("TROCA_MAT")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_01")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_01")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_02")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_02")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_03")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_03")& "",1,0,"L"
pdf.Ln()
pdf.Cell 100,5, ""& rs("MATERIAL_04")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_04")& "",1,0,"L"
pdf.Ln() 
pdf.Cell 100,5, ""& rs("MATERIAL_05")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_05")& "",1,0,"L"
pdf.Ln() 
pdf.Cell 100,5, ""& rs("MATERIAL_06")&"",1,0,"L"
pdf.Cell 90,5, ""& rs("OBS_06")& "",1,0,"L"
pdf.Ln()
pdf.Ln 20
pdf.Cell 190,5, "HISTÓRICO DE TROCAS",1,0,"L"
pdf.Ln()
pdf.multiCell 190,10, ""& rs("HISTORICO_TROCA")&"",1,0,"L"
pdf.Ln 60
pdf.cell 153,10, "____________________________________________",0,0,"R","R"
pdf.Ln()
pdf.cell 200,5, ""& rs("NOME_FUNC") & "",0,"C","C","C"



pdf.Close()

pdf.Output()



rs.Close

Set rs= Nothing

conexao.close

Set conexao= Nothing
%>

Leonardo Rocha · Novembro 18, 2008

Olá pessoal,

É o seguinte utilizei o código acima, mas os dados vieram todos bagunçados, alguém sabe o que fazer neste caso?

%PDF-1.3 3 0 obj <>>>] /Contents 4 0 R>> endobj 4 0 obj <> stream 2 J 0.57 w BT /F1 12.00 Tf ET q 113.39 0 0 62.36 28.35 776.69 cm /I1 Do Q BT 141.73 827.72 Td (ADAR IND. E COM IMP. EXP. LTDA) Tj ET BT 141.73 813.54 Td (Sistema Almoxarifado Três Lagoas) Tj ET BT 226.77 785.20 Td (TERMO DE OCORRÊNCIA) Tj ET BT 56.69 756.85 Td (Nome: Sociedade Agrícola e Comercial dos Vinhos Messias, S/A) Tj ET BT 56.69 742.68 Td (Registro: 8) Tj ET BT 56.69 728.50 Td (Processo: 21000.003035/96-78) Tj ET BT 40.24 689.47 Td (Declaro estar recebendo da empresa ADAR IND. COM. IMP. EXP. LTDA, os uniformes de uso pessoal,) Tj ET BT 36.86 675.29 Td (que é de minha obrigação usá-los.Sendo de minha inteira responsabilidade o manuseio correto. Declaro) Tj ET BT 73.53 661.12 Td (ainda estar ciente do uso. Obrigatório, e de devolver assim que me for solicitado.O não uso deste) Tj ET BT 262.98 646.95 Td (uniforme implicara, nas sanções determinadas pela Gerência.) Tj ET BT 165.65 427.26 Td (____________________________________________) Tj ET endstream endobj 1 0 obj <> endobj 5 0 obj <> endobj 6 0 obj <> stream endstream endobj 2 0 obj <> /XObject << /I1 6 0 R >> >> endobj 7 0 obj << /Producer (FPDF for ASP v.1.01 beta by Lorenzo Abbati [www.aspxnet.it]) /Title (Teste da Iamgem) /CreationDate (D:2008101292047) >> endobj 8 0 obj << /Type /Catalog /Pages 1 0 R /OpenAction [3 0 R /FitH null] /PageLayout /OneColumn >> endobj xref 0 9 0000000000 65535 f 0000001222 00000 n 0000001566 00000 n 0000000009 00000 n 0000000212 00000 n 0000001309 00000 n 0000001405 00000 n 0000001679 00000 n 0000001829 00000 n trailer << /Size 9 /Root 8 0 R /Info 7 0 R >> startxref 1932 %%EOF

Arquivado

[Resolvido] Como adicionar imagens ao pdf FPDF+ASP.

Recommended Posts

eXtrem3 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dataset 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

eXtrem3 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dataset 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

eXtrem3 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

dataset 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

eXtrem3 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leonardo Rocha 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lendo RSS com PHP mostrando a imagem de preview

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

Fóruns

Tempo Real

Informação importante