genérer un PDF avec Response.BinaryWrite

**feanor91** · 11/07/2012, 09h47

Bonjour

J'ai un gros soucis que je n'arrive pas à résoudre.

Je maintient une site en ASP/VB script et on vient de me demander d'y ajouter la possibilité de sortir des liste en pdf.

J'ai donc rechercher un outil qui me permettrait de faire ça et je suis tombé sur fpdf qui fonctionne très bien sauf que...parfois je j'ai mon pdf et parfois non. A force de tâtonnement divers et variés, j'ai trouvé où le bât blesse.

La bonne nouvelle et que quel que soit les données que je demande, le fichier pdf est bien créé sur le serveur. Le problème intervient au moment de l'envoi avec l'objet Response. Voici le code incriminé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
	//xfile=Server.MapPath(lib.fso.GetTempName())
	xfile=Server.MapPath("ProductPartsList.pdf")
	xf=lib.fopen(xfile,"wb");
	if(xf.number)this.Error("Unable to create output file: " + xfile);
	lib.fwrite(xf,this.buffer);
	lib.fclose(xf);
 
	//Response.Write(xfile);Response.End;
	Response.WriteFile(xfile);
 
	//outB = Server.CreateObject("ADODB.Stream");
	//outB.Type = 1;
	//outB.Open();
 
	//outB.LoadFromFile (xfile);
	//Response.BinaryWrite(outB.Read());
	//outB.Close();
 
	lib.fso.DeleteFile(xfile);

Je l'ai modifié pour essayer de le faire fonctionner mais rien y fait. Voici l'original :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
	xfile=Server.MapPath(lib.fso.GetTempName())
	xf=lib.fopen(xfile,"wb");
	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);

L'erreur se produit au moment du Response.BinaryWrite (ou du Response.WriteFile pour ma version modifier), sur certains fichiers, il me renvoit un File not found, alors que le fichier est bien là. En plus, il écrit depuis un stream créé à partir du LoadFromFile qui lui marche sans problème.

Je devient chèvre sur ce coup là. Si quelqu'un peut m'aiguiller, se serait sympa.

**SpaceFrog** · 11/07/2012, 09h52

Je ne capte pas bien le but final de l'opération ??
afficher un PDF local ?

ha non créer une liste et générer un pdf ...

En tout état de cause javascript n'est pas du tout adapté à cela en local...
les éléments de liste sont de quel coté ? serveur ou client ?
Ne serait il pas plus simple de gérer la création, du fichier coté serveur ?

**Bovino** · 11/07/2012, 09h52

Y a-t-il une once de rapport avec JavaScript là dedans ???

**SpaceFrog** · 11/07/2012, 10h09

En tout état de cause javascript n'est pas du tout adapté à cela en local...

c'est sans doute pour cela qu'il n'y a pas de rapport avec javascript ^^

**feanor91** · 11/07/2012, 10h15

Tout le code de fpdf est en javascript et s'exécute côté serveur (d'après ce que j'en comprend). Au départ c'est un outil en php qui à fait l'objet de tout un tas d'adaptation en différents langages dont le javascript. La requête sur la BDD est faite côté serveur, bien évidement, et le pdf est généré côté serveur. La question est pourquoi le BinaryWrite m'envoit sur les roses. Pourrait-il y avoir un lien avec la taille des fichier générés? A priori des fichiers de 5Mo passent et des fichier de plus de 10Mo non.

Pour un peu plus de clarté sur le propos, voici un exemple de code de génération d'un pdf avec fpdf:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
<%@language=vbscript%>
<!-- #include file="fpdf.asp" -->
<%
	'----------------------------------------------------------------------
	' Initialisatin de la base de données
	'----------------------------------------------------------------------
	dim Conn
	Set Conn=Server.CreateObject("ADODB.Connection")
	Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base/BASE.mdb")
 
	'----------------------------------------------------------------------
	' Variables et initialisation	
	'----------------------------------------------------------------------
	Set pdf=CreateJsObject("FPDF")
	set objInformations = server.createobject("ADODB.RECORDSET")
	objInformations.open "Select * from CodesHV order by NomCode;",conn
	pdf.CreatePDF()
	pdf.SetPath("fpdf/")
	pdf.Open()
	pdf.AddPage()
 
	'----------------------------------------------------------------------
	' Entête du document
	'----------------------------------------------------------------------
	pdf.SetFont "Arial", "",16
	pdf.SetTextColor 255,255,255
	pdf.Cell 0,10, "Entête du document",0,1,"C",1
 
	pdf.SetFont "Arial", "B",10
	pdf.SetFillColor 192,192,192
	pdf.SetTextColor 0,0,0
 
	'----------------------------------------------------------------------
	' Liste des champs de la requête
	'----------------------------------------------------------------------
	pdf.Cell 25,5, "No Code", 1,0,"C"
	pdf.Cell 140,5, "Nom Code", 1,0,"C"
	pdf.Cell 25,5, "Actif",1,1,"C"
	pdf.SetFont "Arial", "",10
	while not objInformations.EOF
 
		' Liste des résultats
		pdf.Cell 25,5, "" & objInformations("NoCodeHV"), 1,0,"C"
		pdf.Cell 140,5,"" & objInformations("NomCode"), 1,0,"L"
 
		if objInformations("Actif") = true then
			ValeurActif = "Oui"
		else
			ValeurActif = "Non"
		end if
 
		pdf.Cell 25,5,"" & ValeurActif, 1,1,"C"
 
		objInformations.movenext
	wend
 
	'----------------------------------------------------------------------
	' Affichage de l'espace pour inscrire des remarques
	'----------------------------------------------------------------------
	pdf.Cell 0,5, " ",0,1
	pdf.Cell 0,5, "Remarques" ,"TLR",1,"C"
	pdf.Cell 0,5, "" ,"LR",1,"C"
	pdf.Cell 0,5, "" ,"LR",1,"C"
	pdf.Cell 0,5, "" ,"LR",1,"C"
	pdf.Cell 0,5, "" ,"LR",1,"C"
	pdf.Cell 0,5, "" ,"LR",1,"C"
	pdf.Cell 0,5, "" ,"BLR",1,"C"
	pdf.Close()
 
	'----------------------------------------------------------------------
	' Permet d'enregistrer automatiquement le fichier dans le c:\
	'----------------------------------------------------------------------
	'pdf.Output "c:\patante.pdf"
 
	'----------------------------------------------------------------------
	' Permet d'afficher une boîte de "Save As" Pour enregistrer le document PDF créé
	'----------------------------------------------------------------------
	'pdf.Output "",true
 
	'----------------------------------------------------------------------
	' Permet d'afficher le pdf tout simplement à l'écran
	'----------------------------------------------------------------------
	pdf.Output()
 
%>

Le bout de code que j'ai extrait vient de la fontion Output() de fpdf.

**SpaceFrog** · 11/07/2012, 10h18

Tout le code de fpdf est en javascript et s'exécute côté serveur

heu à ma connaissance fpdf est en php ...

**feanor91** · 11/07/2012, 10h39

Envoyé par SpaceFrog

heu à ma connaissance fpdf est en php ...

Oui, je l'ai d'ailleur dit dans le message juste au dessu du votre, sauf que là, c'est une adaptation du php au javascript

**Bovino** · 11/07/2012, 10h20

Tout le code de fpdf est en javascript

Ah... d'où le nom du fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SpaceFrog** · 11/07/2012, 10h20

ha ça existe aussi en asp ...

**feanor91** · 11/07/2012, 10h38

Envoyé par Bovino

Ah... d'où le nom du fichier :

Bien sur que c'est asp puisque c'est exécuter côté serveur...

Voici le débu de fpdf.asp:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
<!--#include file="fpdf/includes/Basics.asp"-->
<script language="jscript" runat="server">
/****************************************************************************
*                                                                           *
* Software				: 	FPDF for Asp                                    *
* Version				: 	1.01 beta                                       *
* Date					: 	2003/11/15                                      *
* Author				:   Lorenzo Abbati	                                *
* License				:  	Freeware                                        *
* Site					:	http://www.aspxnet.it	                        *
*                                                                           *
*****************************************************************************
*                                                                           *
* Author (PHP Class)    :	Olivier Plathey                                 *
* Site (PHP Class) 		:	http://www.fpdf.org   	                        *
*                                                                           *
*****************************************************************************
*                                                                           *
* You may use and modify this software as you wish.                         *
*                                                                           *
****************************************************************************/
 
function FPDF()
	{
	this.Version = "1.01 beta"
	var PATH;
	var lib=new clib()
	var page;
	var n;
	var offsets;
	var buffer;
	var pages;
	var state;
	var compress;
	var DefOrientation;
	var CurOrientation;
	var OrientationChanges;
	var fwPt;
	var fhPt;
	var fw;
	var fh;
	var wPt;
	var hPt;
	var k;
	var w;
	var h;
	var x;
	var y;
	var lMargin;
	var tMargin;
	var rMargin;
	var bMargin;
	var cMargin;
	var hasBinary = false;
	var lasth;
	var LineWidth;
	var CoreFonts;
	var fonts;
	var FontFiles;
	var diffs;
	var images;
	var PageLinks;
	var links;
	var FontFamily;
	var FontStyle;
	var underline;
	var CurrentFont;
	var FontSizePt;
	var FontSize;
	var DrawColor;
	var FillColor;
	var TextColor;
	var ColorFlag;
	var ws;
	var AutoPageBreak;
	var PageBreakTrigger;
	var InFooter;
	var ZoomMode;
	var LayoutMode;
	var title;
	var subject;
	var author;
	var keywords;
	var creator;
	var AliasNbPages;
 
	this.Interlinea=0;
 
	this.SetPath=function SetPath(value){
		this.PATH = value
		if (this.PATH.charAt(this.PATH.length-1)!="/"){this.PATH+="/"}
		this.FONTPATH = this.PATH + "fonts/"
		this.EXTENDSPATH = this.PATH + "extends/"
		this.MODELSPATH = this.PATH + "models/"
	}

genérer un PDF avec Response.BinaryWrite

ASP

Vue hybride

Discussions similaires

Partager

Partager