generar pdf desde asp

dblanco · #**211** (**permalink**) 24/07/2007, 05:17

como no me puedo estar quieto he implementado la nueva función pdf.Output(). El uso es el siguiente:

Output([string nombrefiechero [, boolean descargar] [, boolean crear] [, boolean servidor])

El tercer parámetro viene implementado de serie y por lo que he visto está inutilizado, no lo he quitado por respeto al programador. El cuarto parámetro es el que indica si el fichero lo guardamos en el servidor (false) o si el cliente selecciona la carpeta (true) que es la opción por defecto.

Si el segundo parámetro está false (defecto) simplemente abrirá el .pdf en el navegador, pongamos o no un nombre de fichero.

El código:

Código:

	this.Output=function Output(xfile , xdownload , Overwrite, toserver)
		{
		var par_fopen="w"
		if (arguments.length<4) {
			toserver=false;
			if (arguments.length<3) {
				Overwrite=true;
				if (arguments.length<2) {
					xdownload=false;
					if (arguments.length<1){xfile=""};
				}
			}
		}
		;
		if(xfile==""){par_fopen="w2";xdownload=false;}
		if(this.state<3)this.Close();
		if(!(toserver)){
			if(xdownload){
						Response.ContentType = "application/octet-stream";
						Response.AddHeader("Content-disposition", "attachment; filename=" + xfile);
					}
					else
					{
						Response.ContentType = "application/pdf"
						Response.AddHeader("Content-Disposition","inline");
					}
			if (!this.hasBinary){
				Response.Write(this.buffer)}
			else{
				xfile=Server.MapPath(lib.fso.GetTempName())
				xf=lib.fopen(xfile,par_fopen+"b");
				if(xf.number)this.Error("Unable to create output file: " + xfile);
				lib.fwrite(xf,this.buffer);
				lib.fclose(xf);
				outB = Server.CreateObject("ADODB.Stream")
				outB.Type = 1
				outB.Open()
				outB.LoadFromFile (xfile)
				Response.BinaryWrite(outB.Read())
				outB.Close()
				lib.fso.DeleteFile(xfile);
				}
		}
			else

				{
				xf=lib.fopen(xfile,"wb");
				if(xf.number)this.Error("Unable to create output file: " + xfile);
				lib.fwrite(xf,this.buffer);
				lib.fclose(xf);
				}
		}

también hay que modificar la función fopen del archivo includes/basics.asp de la siguiente forma:

Código:

this.fopen=function fopen(name,params){
	switch(params.charAt(0)){
		case "r" : v = 1;c=false;p=Server.MapPath(name);break;
		case "w" : v = 2;c=true;p=Server.MapPath(name);break;
		case "w2" : v = 2;c=true;p=name;break;
		case "a" : v = 8;c=true;p=Server.MapPath(name);break;
	}
	var f = new cfile();
	try{
	f.obj=this.fso.OpenTextFile(p,v,c);
	}
	catch(e){return e;}
	f.mode=params.charAt(0);
	if (params.length>1){if (params.charAt(1)=="b"){f.isBinary = true}};
	return f;
}

ahora si que ya está

damorcor · #**212** (**permalink**) 20/08/2007, 08:10

Muy buenas,
¿Hay alguna manera de imprimir un pdf automaticamente desde un enlace sin tener que abrirlo previamente?
gracias de antemano

damorcor · #**213** (**permalink**) 21/08/2007, 06:18

Bueno, pues ya he consegido solucionarlo.
lo dejo aqui por si a alguien le puede servir o alguien lo puede mejorar.

Código:

<html>
<head>
<title>Imprimir PDF</title>
</head>
<body>
<script language="VBScript">

  sub Imprimir_PDF()
    dim i, ruta(3)

    i= 0
    ruta(0)= "c:\1.pdf"
    ruta(1)= "c:\2.pdf"
    ruta(2)= "c:\3.pdf"
  
    for i= 0 to 2
      fnShellExecuteVB ruta(i)
    next
  end sub
 
  function fnShellExecuteVB(druta)
    dim objShell
    set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute druta, "", "", "print", 1
    set objShell = nothing
            
  end function

</script>
<label onclick="Imprimir_PDF">Imprimir PDF</label>
</body>
</html>

jakjak · #**214** (**permalink**) 11/10/2007, 05:14

He leido practimante todo el hilo de la combersación.

He hecho alguna prueba con los ejemplos de la pagina en italiano y em funcionan.

Tambien he estado ojeando el origen de todo esto que parece ser que nacio para php...

Bien mi problema es que necesito crear el pdf desde otro pdf y ademas que el resultante le puede crear con una contraseña para impedir su lecturaa quien no tenga la contraseña....

Solo necesito un poco de luz.. como siempre gracias de antemano

DaniMiranda · #**215** (**permalink**) 10/01/2008, 12:59

Cita:

Iniciado por verinchi

Jaja! me pasó una vez pero el error no se parecía al tuyo!
Bueno, cosas que pasan, menos mal que encontraste el problema pronto

Respecto de tu imagen:
Lo que encontré en el foro de fpdf.asp es:

Código:

 Here's the solution:

1) In fpdf.asp find the Output() function declaration 

2) Change 

xfile=Server.MapPath(lib.fso.GetTempName())
into 

if (this.pathOutput != null && this.pathOutput != "") {    xfile = this.pathOutput + lib.fso.GetTempName()}else {    xfile = Server.MapPath(lib.fso.GetTempName())}

3) Set the PDF output path to a writable website directory with pdf.SetPathOutput(yourDir)

Now the temporary file will be written in that output directory. And since it is a temporary file, it is automatically deleted again when FPDF is finished with it.

Tenés que verificar de actualizar en la clase fpdf y verificar también que la imegen esté en el mismo directorio.
Hasta ahí todo bien.
El otro problema que vas a tener es que necesitás colocar la linea así (O por lo menos a mi me resultó solo de esta manera:

Código:

pdf.Image ("tuimagen.jpg", 150,10,172,105, "JPG");

Teniendo cuidado al colocar el nombre de la imagen, si la extensión está en mayúscula o minúscula porque es sensible a esto.

Bueno, espero te sirva.

Hola, soy nuevo en este tema y logré que en mi PC funcione perfecto. El problema que tengo es al pasarlo al servidor. Es necesario instalar el acrobat reader en el servidor? Que version hay que instalar? Los puestos clientes tambien tienen que tener el acrobat? Que version?

Muchas Gracias por sus comentarios

Shiryu_Libra · #**216** (**permalink**) 10/01/2008, 15:14

solamente las personas que miraran el documentos deberan tener el Acrobat, en tu servidor no es necesario, ya que la clase trae lo necesario para que lo ejecutes

krisiun · #**217** (**permalink**) 17/01/2008, 09:34

Hola a todos ojala puedan darme una ayudita..

Taba viendo el tema y bueno me toco hacer lo mismo que veo en este post.. y en realidad no puedo realizarlo satisfactoriamente lo cual eh aqui mi duda ..

tengo este codigo en la pagina .. (Prueba.asp)

Código HTML:

<%		
Dim d1, pdf
sql= "SELECT RUT_USUARIO AS rut FROM ADM_USUARIO where id_usuario = '1'"
set rs = server.createobject("adodb.recordset")
 rs.open sql, conn
Do While Not(rs.EOF)
d1=rs("rut")

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetFont("helvetica")
pdf.SetTextColor 0,72,156
pdf.Open()
pdf.AddPage()
pdf.Cell 18,4,d1,"L",0,"C",0
pdf.Cell 30,180,"Enhorabuena"
pdf.Close() 
loop
%>

y me arroja un error

Código HTML:

Error en tiempo de ejecución de Microsoft JScript error '800a01b6' 
El objeto no acepta esta propiedad o método 
/home/fpdf.asp, line 345

Si alguien sabe el motivo, yo no le eh metido mano al fpdf.asp a decir verdad es necesario ?
Gracias de antemano

Myakire · #**218** (**permalink**) 17/01/2008, 14:18

Cuál es la línea 345 ?

Shiryu_Libra · #**219** (**permalink**) 17/01/2008, 14:47

Cita:

Iniciado por Myakire

Cuál es la línea 345 ?

por la linea de error, ha de marcar dentro de la clase FPDF, entonces no es ahi, sino la manera en que lo hace SENSEI, se fija que este usuario utiliza un DO WHILE --- LOOP, pero jamas le dice al FPDF que saque el parametro OUTPUT(), ya sea para grabar en el disco local o mostrarlo directamente????, sino que crea un loop indefinido....

extraño noo

:

Myakire · #**220** (**permalink**) 18/01/2008, 08:21

Tienes razón Shiryu, la verdad es que respondí casi por inercia, casi sin ver el código, pero ahora que lo hago veo que efectivamente tiene varios errores y omisiones.

Le pongo un ejemplo de la creación de un pdf con un texto en varias páginas, suponiendo que eso es lo que haya querido hacer krisium

Código:

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


Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()

Do While i<10

pdf.AddPage()
pdf.SetLeftMargin(1.9)
pdf.SetRightMargin(0.5)  
pdf.SetY(40)
pdf.SetFont "Arial","B",7
pdf.Cell 21,4,"Texto",0,0,"L"
i =i + 1
loop
pdf.Close() 
pdf.Output()

%>

erasmo_intel · #**221** (**permalink**) 28/01/2008, 09:20

Hola A Todos E Intentado Insertar Una Imagen En El Pdf Con Los Distintos Codigo Y No He Podido Me Sale El Error El La Salida Del Archivo Que No Se Puede Crear Ouput Que Puedo Aser

Shiryu_Libra · #**222** (**permalink**) 28/01/2008, 10:12

Primero que nada Bienvenido al Foro

ahora para poder ayudarte mejor, pega tu codigo para mirar el posible error

erasmo_intel · #**223** (**permalink**) 28/01/2008, 10:49

hola shiryu gracias primero que nada por tu respuesta tan rapido aqui esta el error y el codigo que tengo

<B>FPDF error: </B>Unable to create output file: C:\Inetpub\wwwroot\fpdf1.00\rad4807C.tmp

<%@language=vbscript%>

<%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")

pdf.SetFont "Arial","",15
pdf.SetTextColor 0,72,156
pdf.Open()
pdf.AddPage()
pdf.ln()
pdf.Image "images/mimagen.jpg", 150,10,172,105, "JPG"
pdf.Cell 30,180,"Enhorabuena"
pdf.Output(server.MapPath("prueba.pdf")),F
pdf.Close()
%>

ademas he intentado con varios ejemplos y me sige marcado esto

<B>FPDF error: </B>Unable to create output file: C:\Inetpub\wwwroot\fpdf1.00\rad4807C.tmp

erasmo_intel · #**224** (**permalink**) 28/01/2008, 10:54

he pegado el codigo pero en la ruta de la imagen me agraga lo de forosdelweb.com lo mio es de images

Shiryu_Libra · #**225** (**permalink**) 28/01/2008, 11:11

intentalo de esta manera

Cita:

pdf.Output(server.MapPath("./") & "prueba.pdf"),F

erasmo_intel · #**226** (**permalink**) 28/01/2008, 11:16

ok ya lo intente pero sigue con el mismo error he leido casi todos los mensages de este foro y densian que eran por los privilegios de la carpeta pero ya lo hice todo esto y sigue en el mismo error son puras comiyas dobles

o tu tienes algun ejemplo facil que me sirva

Shiryu_Libra · #**227** (**permalink**) 28/01/2008, 11:29

erasmo_intel, olvida el mensaje anterior

he aqui un ejemplo de lo que puedes realizar

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
response.Charset="utf-8"
Set pdf=CreateJsObject("FPDF")
pdf.SetPath("fpdf/")

sub utilerias()
pdf.CreatePDF "P", "mm", "Letter"
pdf.SetPath("fpdf/")
pdf.LoadExtension("table")

pdf.SetLeftMargin 5
pdf.SetRightMargin 5
pdf.SetTopMargin 15

pdf.SetTitle="Titulo del PDF"
pdf.SetSubject("Objetivo")
pdf.SetAuthor("Autor")
pdf.SetCreator("Creador")

pdf.SetDisplayMode("fullwidth")
end sub

utilerias() 'asignacion de las caracteristicas de la pagina
pdf.Open()
pdf.AddPage()
pdf.ln()
pdf.Image "Virgin_Killer.jpg", 150,10,172,105, "JPG"
pdf.Cell 30,180,"Enhorabuena"

pdf.Output()
pdf.Close()
set pdf=nothing
%>

sustituye la imagen de Virgin_Killer (album de scorpions), por tu imagen, omite poner el server.mappath, y ejecutalo

prueba y comenta

erasmo_intel · #**228** (**permalink**) 28/01/2008, 11:36

ora es este el error path not found : c:\inetpub\fpdf1.00\fpdf\extends\table.ext

revise la carpeta de extends y solo hay una que es tablemulticell

lo he agregado asi y sale el error anterios que crees que pueda cer o tienes esa extencion que me la pases

Shiryu_Libra · #**229** (**permalink**) 28/01/2008, 11:43

eso quiere decir que no tienes toda la libreria del FPDF, ya que te marca error de componentes

Enlace Descarga

verifica lo que tienes contra lo que estas descargando

erasmo_intel · #**230** (**permalink**) 28/01/2008, 11:47

lo he descargado pero es en php funciona ygual que el de asp o como lo ago funcionar que no entiedo por favor me podrias explicar

la version con la que tengo es la 1.00
y si viene ese archivo que me dices ademas he creado otros pdfs con esta pero solo letras y consutas a base de datos pero no puedo con imagenes y ademas el archivo esta en asp

Shiryu_Libra · #**231** (**permalink**) 28/01/2008, 12:18

Temporalmente este link

FPDF para ASP, ejemplo incluido

erasmo_intel · #**232** (**permalink**) 28/01/2008, 12:26

ok ya lo intente si a ti te funciona a decer mi maquina lo calare proximamente en otra maquina cuando lo aga te mando una repuesta una cosa te puedo agragar a mi msn para estar en mayor comunicasion para dudas

me sale el mismo error del principio

otra cosa muy buena imagen la del ejemplo

xavireal · #**233** (**permalink**) 30/01/2008, 03:31

He leido el tema para encontrar la respuesta a la generación de un documento PDF desde ASP. He probado los ejemplos de la página en italiano, y algunos otros que publicais, pero en todos me sulta este tipo de código. Temo que me falta algo y no se que es. ¿Alguien puede ayudarme?...

Este es el resultado que me da este sencillo ejemlo:
<%@language=vbscript%>

<%

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,"Hello Word!"
pdf.Close()
pdf.Output()
%>

RESULTADO :
----------------

%PDF-1.3 3 0 obj <> endobj 4 0 obj <> stream 2 J 0.57 w BT /F1 16.00 Tf ET BT 31.19 794.57 Td (Hello Word!) Tj ET endstream endobj 1 0 obj <> endobj 5 0 obj <> endobj 2 0 obj <> >> endobj 6 0 obj << /Producer (FPDF for ASP v.0.01 beta by Lorenzo Abbati [www.aspxnet.it]) /CreationDate (D:200801394514) >> endobj 7 0 obj << /Type /Catalog /Pages 1 0 R /OpenAction [3 0 R /FitH null] /PageLayout /OneColumn >> endobj xref 0 8 0000000000 65535 f 0000000204 00000 n 0000000387 00000 n 0000000009 00000 n 0000000087 00000 n 0000000291 00000 n 0000000475 00000 n 0000000599 00000 n trailer << /Size 8 /Root 7 0 R /Info 6 0 R >> startxref 702 %%EOF

verinchi · #**234** (**permalink**) 30/01/2008, 05:57

Hola!
En algún momento pasé por lo mismo. Verificá que tenés instalado por lo menos el Acrobat Reader o algún otro lector de pdf en el equipo que se está ejecutando el ejemplo.
Dicho sea de paso, el output lo está haciendo a pantalla y no lo está guardando en ningún lugar físico. No se si te interese guardarlo, pero te comento lo que veo.

Saludos y suerte!

Heravar · #**235** (**permalink**) 04/04/2008, 15:54

Buenas!
He leido todo el thread... bastante interesante como han ido todos aprendiendo a lidiar con este componentillo... que está bueno, pero tienen sus cosas...

Por eso pregunto, x si alguien ha logrado (verinchi capaz? =P) modificar las fuentes y que no sean las que vienen por defecto?

La manera del SetFont no me funcionó, y no pude ver la documentación xq en el manual está caido el link... luego se me ocurrió modificar los archivos que vienen y el codigo del asp y tampoco lo logré (no me da error, pero me lo deja en blanco)
En el ejemplo que está para bajar viene tambien la fuente calligraph, pero tampoco funciona...

Si alguien sabe algo, se agradece =)

Saludos!

verinchi · #**236** (**permalink**) 07/04/2008, 07:22

Hola Heravar!
Mirá, yo usé siempre la fuetne Arial, pero en algún momento creo que llegué a usar la Thaoma. El SetFont() Te tiene que funcionar, pero tenes que tener en cuenta que el servidor donde ejecutes el script tenga instalada la fuente que estás solicitando.
Poné el fragmento de código donde indicas la fuente, y un poquito del contexto (algunas lineas anteriores y posteriores) como para que podamos ver si hay algo que esté haciendo que no tome bien el SetFont()
Un abrazo

Heravar · #**237** (**permalink**) 10/06/2008, 09:38

Buenas!

Primero q nada, pido disculpas por no responder antes por el tema de la fuente, capaz que alguien estaba en mi misma situacion.
La verdad q es q me confié en que por mail me avisaría si habia alguna respuesta, y se ve que lo configuré mal

Bueno, el tema de la fuente lo descarté, aburrido de probar combinaciones.
Este pos es por si a alguien más le pasa el error:

Invalid Character
Line 75
En la página basics.asp

Que vi que fue solucionado más arriba, pero no dice como.
La solución es eliminar los espacios que hay a la izquierda del "var f", o reemplazarlos por Tabs

A medida que se va solucionando, como dice arriba, va saltando el mismo error en otro lugar, pero hay que hacer eso mismo, hasta que ande =)

Saludos!

TZN_77 · #**238** (**permalink**) 19/11/2008, 06:50

Buenas compañeros,

Tengo un problemilla a la hora de mostrar imagenes en mi pdf. El error es el siguiente:

Código:

File does not begin with '%PDF-'

A mi me funciona bien, sacando texto de una base de datos SQL en un dominio (Arsys), pero ademas de ese texto, quiero añadirle la imagen correspondiente a cada material. Al añadir la siguiente linea:

pdf.Image "../ftp/1.jpg",10,20,150

me da el error anterior citado.

He leido algo que respondio verinchi, pero segun ese codigo , guarda el pdf, y eso no es lo que yo quiero. Alguien a conseguido mostrar texto e imagenes en un pdf, sin tener que guardar el archivo ?? A mi directamente se me abre en el navegador el acrobat con el pdf resultante. [ pdf.output() ]

Ayudenme porfavor, llevo unas semanas detras de esto, y solamente me falta conseguir el tema de las imagenes.

Saludos y mil gracias anticipadas!!

verinchi · #**239** (**permalink**) 19/11/2008, 08:41

Tiro a ciegas, ya que hace mucho que no trabajo con pdf...
Si ponés una ruta completa en lugar de relativa también te da error.
Por lo que yo se, tanto para guardarlo como para mostrarlo por pantalla, no deberías tener inconveniente.
Si siguen los problemas, poné el código completo en lugar de una línea a ver si por ahí hay otra falla que no hayas notado.

Saludos!

TZN_77 · #**240** (**permalink**) 20/11/2008, 02:55

Cita:

Iniciado por verinchi

Tiro a ciegas, ya que hace mucho que no trabajo con pdf...
Si ponés una ruta completa en lugar de relativa también te da error.
Por lo que yo se, tanto para guardarlo como para mostrarlo por pantalla, no deberías tener inconveniente.
Si siguen los problemas, poné el código completo en lugar de una línea a ver si por ahí hay otra falla que no hayas notado.

Saludos!

Poniendo la ruta absoluta (pdf.Image "http://www.garcamps.net/ftp/1.jpg") me da error :

Código:

Server.MapPath() error 'ASP 0173 : 80004005' 

Carácter de ruta de acceso no válido 

/espanol/fpdf/includes/images.asp, línea 33 

Se especificó un carácter no válido en el parámetro Path para el método MapPath.

La linea 33 de images es la que esta en negrita aqui abajo (es el images.asp original) :

Código:

this.Open=function Open(pFileName){
	this.FileName = pFileName
	this.Buffer=Server.CreateObject("ADODB.Stream");
	this.Buffer.CharSet ="ISO-8859-1";
	this.Buffer.Type = 2
	this.Buffer.Open()
	//Response.Write(Server.MapPath(pFileName));Response.End;
	this.Buffer.LoadFromFile(Server.MapPath(pFileName));
	this.Buffer.Position = 0
	this.size=this.Buffer.Size;
	this.extension = pFileName.substring(pFileName.lastIndexOf(".")+1).toLowerCase();

El codigo anterior es este :

Código:

Set pdf=CreateJsObject("FPDF") 
pdf.CreatePDF() 
pdf.SetPath("fpdf/") 
pdf.SetFont "Arial","",16 
pdf.Open() 
pdf.AddPage() 
pdf.Cell 42,0,"Listado productos"
pdf.ln()
pdf.Cell 42,15,""
pdf.ln()
pdf.SetFont "Helvetica","",10
pdf.Image "../ftp/1.jpg",10,20,150
pdf.Output()
pdf.Close()

Bueno tengo entremedias los datos de los productos, pero para probar las imagenes he omitido todo ese codigo ya que es irrelevante.

Si comento la linea pdf.Image , me funciona bien , pero si quito la ruta realativa y pongo la de arriba (pdf.Image "../ftp/1.jpg",10,20,150) me da el error :File does not begin with '%PDF-'

La verdad que no he conseguido de ninguna manera mostrar imagenes...y ya no se si el tema esta en el servidor de dominio que tenemos contratado o nose....pero me tiene desquiciadito!!

A ver si alguien me echa una mano, que ya no se que mas revisar

Saludoss