Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Emerson Placido

Img no PDF

Recommended Posts

<?php/*AKI EU CRIO O PDF MAS A IMG NÃO APARECE */require("conexao.php");require("rotation.php");define("FPDF_FONTPATH","font/"); $us=$cliente;class PDF extends PDF_Rotate{//Page headerfunction Header(){//Marca D agua no Relatorio $this->SetFont('Arial','B',59); $this->SetTextColor(255,192,203); $this->RotatedText(15,260,'PERFIL DO SERVIDOR',55);}function RotatedText($x,$y,$txt,$angle){//Text rotated around its origin $this->Rotate($angle,$x,$y); $this->Text($x,$y,$txt); $this->Rotate(0);}function Footer(){ $this->SetLineWidth(0.5); $this->Line(209, 285, 1, 285); $this->SetY(-15); $this->line(10, $this->GetY()-2, $this->GetX(), $this->GetY()-2); $this->SetX(0); $this->SetFont('Arial', 'BI', 10); $data = strftime("%d/%m/%Y às %Hh:%mm"); $this->Cell(130, 10, "©Impressão de Perfil - Impresso : ".$data, 0, 0, 'R');}}//Instanciation of inherited class$pdf=new PDF();$pdf->Open();$pdf->AliasNbPages();$pdf->AddPage();$pdf->SetFont('Times','',12);for($i=1;$i<=40;$i++)$pdf->AliasNbPages(); $pdf->SetXY(10,3);$pdf->SetFillColor(255); // Cor de Preencimento da Celula$pdf->SetTextColor(56); //Cor da fonte $pdf->SetDrawColor(0,0,0); $pdf->SetLineWidth(.3); $pdf->SetFont('Courier','B',13);$pdf->Cell(200,6,"MINISTERIO ",0,2,'C',0);$pdf->Cell(200,6,"DEPARTAMENTO ",0,2,'C',0);$pdf->Cell(200,10,"Perfil - 2005",0,2,'C',0);$pdf->Cell(100,5,"",0,1,'C',0);$pdf->SetXY(5,31); // Will place the table at X coordinate 100 // Colors and Line Widths for Header Cells $pdf->SetFillColor(40,58,101); // Cor de Fundo das Celulas $pdf->SetTextColor(255); // text color inside cells $pdf->SetDrawColor(0,0,0); // color of the cell borders $pdf->SetLineWidth(.3); // width of the cell borders $pdf->SetFont('Courier','B',8); // font of text inside cells // Largura 50, Altura 7, Texto, Com borda, Proximo na mesma Linha, Texto Centralizado, filled cell$pdf->SetFont('Courier','B',14); // font of text inside cells $pdf->Cell(200,5,"DADOS PESSOAIS",1,1,'C',1);$pdf->SetX(10,35); //Cor e fonte para linha de dados$pdf->SetFillColor(234,234,235); $pdf->SetTextColor(0); $pdf->SetFont(''); $pdf->SetX(10,35); if($ora_conecta){######################################################### $sql = "select nr_cpf, cd_pessoa, no_pessoa, cd_matricula, to_char(dt_nasc,'dd/mm/yyyy'), "; $sql .= "st_civil, cd_senha, lot_cd_lotacao, sg_uf_nasc, ds_e_mail, cd_municipio_nasc, "; $sql .= "lc_bairro, lc_logradouro, cep_cd_cep, nr_titulo, nr_secao_titulo, nr_zona_titulo, "; $sql .= "nr_cnh, nr_ci, cd_orgao_exp, to_char(dt_exp_id,'dd/mm/yyyy'), nr_reservista, "; $sql .= "nr_pis_pasep, cd_banco, nr_agencia, nr_conta, no_mae, no_pai, st_sexo, lc_compl, "; $sql .= "cd_municipio_res, sg_uf_res "; $sql .= "from tb_pessoa "; $sql .= "where nr_cpf='$us'"; $sql_se = @OCIParse ($ora_conecta,$sql) or die("<center><font class=erro> Falha na Clausula SQL!!! </font></center>"); @OCIExecute($sql_se, OCI_COMMIT_ON_SUCCESS) or die("<center><font class=erro> ERRO NA SELEÇÃO DOS DADOS!!! </font></center>"); if(OCIFetch($sql_se)){/* SE O CPF E SENHA SÃO VÁLIDOS ENTÃO */ /* CARREGA OS DADOS DO SERVIDOR NAS VARIAVEIS ABAIXO */ $nr_cpf = OCIResult($sql_se,1);//Numero do CPF $cd_pessoa = OCIResult($sql_se,2);//Codigo do Servidor $no_pessoa = OCIResult($sql_se,3);//Nome do Servidor $cd_matricula = OCIResult($sql_se,4);//Numero da Matricula do Servidor $dt_nasc = OCIResult($sql_se,5);//Data de Nascimento $st_civil = OCIResult($sql_se,6);//Status Civil do Servidor $cd_senha = OCIResult($sql_se,7);//Codigo da Senha do Servidor $cd_lotacao = OCIResult($sql_se,8);//Codigo da Lotação do Servidor $sg_uf_nasc = OCIResult($sql_se,9);//Unidade Federativa do Servidor $e_mail = OCIResult($sql_se,10);//e-mail do Servidor $cd_municipio_nasc = OCIResult($sql_se,11);//Municipio do Servidor $lc_bairro = OCIResult($sql_se,12);//Bairro do Servidor $lc_logra = OCIResult($sql_se,13);//Endereço do Servidor $cd_cep = OCIResult($sql_se,14);//CEP do Servidor $nr_titulo = OCIResult($sql_se,15);//Numero do Titulo de Eleitor $nr_secao = OCIResult($sql_se,16);//Numero da Seção do Titulo $nr_zona = OCIResult($sql_se,17);//Numero da Zona $nr_cnh = OCIResult($sql_se,18);//Numero da CNH $nr_ci = OCIResult($sql_se,19);//Numero do RG $orgao_exp = OCIResult($sql_se,20);//Orgão Expedidor $dt_exp = OCIResult($sql_se,21);//Data de Expedição $nr_resev = OCIResult($sql_se,22);//Numero do Reservista $nr_pis = OCIResult($sql_se,23);//Numero do Pis Pasep $cd_banco = OCIResult($sql_se,24);//Codigo do Banco $nr_agencia = OCIResult($sql_se,25);//Numero da Agencia $nr_conta = OCIResult($sql_se,26);//Numero da Conta $no_mae = OCIResult($sql_se,27);//Nome da Mãe $no_pai = OCIResult($sql_se,28);//Nome do Pai $st_sexo = OCIResult($sql_se,29);//Status do Sexo $lc_compl = OCIResult($sql_se,30);//Complemento $cd_muni_res = OCIResult($sql_se,31);//Codigo do Municipio da Residencia $sg_uf_res = OCIResult($sql_se,32);//Sigla da UF da Residencia// }/* Select do Codigo do Cargo do Servidor */ $sql = "select * "; $sql .= "from tb_foto "; $sql .= "where cd_pessoa='$cd_pessoa' "; $sql_siape = OCIParse($ora_conecta,$sql) or die("Falha na Clausula SQL."); OCIExecute($sql_siape) or die("Erro na Seleção dos Dados!!!"); if(OCIFetch($sql_siape)){ $im_foto = OCIResult($sql_siape,'IM_FOTO'); } $pdf->Cell(45, 5,'Foto:', 0, 0, 'L',0); $pdf->Cell(100, 5, $im_foto, 0, 1, 'L',0);$pdf->Ln(2);}################################################################################################### $pdf->Output("perfil.pdf","F"); echo "<script> window.open(\"perfil.pdf\",\"_blank\",'scrollbars=yes,toolbar=no,directories=no,width=800,height=600'); </script>";?>

Compartilhar este post


Link para o post
Compartilhar em outros sites
Emerson tenta colocar a imagem utilizando a função Image()

 

$pdf->Image('arquivo','x','y, 'largura', 'altura', 'extensão(se não informado-auto)');

 

 

 

Se não me engano não tem como inserir imagem utilizando Cell no fpdf;.... a alternativa e a função Image...

Qualquer duvida da um toque

E realmente não funciona sera que existe outra maneira de criar este PDF mesmo que não seja com FPDF ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

você tentou com Image() ----- se quiser tentamos juntos a fazer o script?

estou tentando como este code aki mais leve (Obs: O campo Blo do Oracle esta gravando em Bynary), vamos tentar então...
$pdf->Ln(10);$pdf->SetX(5,35); $pdf->SetFont('Courier','B',14); // font of text inside cells $pdf->Cell(200,5,"FOTO SERVIDOR",1,1,'C',1);	/* Select da TB_FOTO */	$sql  = "select * ";	$sql .= "from tb_foto ";	$sql .= "where cd_pessoa='$cd_pessoa' ";	$sql_foto= OCIParse($ora_conecta,$sql)		   or die("Falha na Clausula SQL. Linha 156");	@OCIExecute($sql_foto)	   or die("Erro na Seleção dos Dados. Linha 158");	$i= 1;	while (OCIFetch($sql_foto)){			$foto	   = OCIResult($sql_foto,'IM_FOTO');			}

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.