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 ...

**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/"
	}

**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

**roro06** · 11/07/2012, 19h52

Bonjour

Faudrait déjà vérifier ce que donne xfile ... un problème avec les espaces, ou autre ...

la taille des fichiers peut aussi être un facteur. Je crois que ça se configure au niveau de IIS

**feanor91** · 12/07/2012, 08h59

Envoyé par roro06

Bonjour

Faudrait déjà vérifier ce que donne xfile ... un problème avec les espaces, ou autre ...

la taille des fichiers peut aussi être un facteur. Je crois que ça se configure au niveau de IIS

Bonjour

Au niveau du nom, vous pensez bien que c'est la première chose que j'ai vérifié, surtout su une erreur de type "File not found"..., donc ce n'est pas ça, sur à 100%

Par contre, en testant plus avant, je me suis effectivement rendu compte que des fichiers < 5Mo passait alors qu'au dessus non, j'en ai donc effectivement déduit un problème au niveau des tailles, mais ne savait pas si je pouvais le changer, donc, si on peut faire quelque chose, c'est dans ce sens qu'il faut chercher, je m'y met de suite, par contre si quelqu'un a une idée de comment faire, je suis loin d'être un exper IIS (6 au passage)

EDIT : résolu, c'était bien ça...Pour information, et au cas où certains auraient le même problème:

changer dans le fichier metabase.xml de configuration du server IIS les paramètres :
AspMaxRequestEntityAllowed
AspBufferingLimit (par défaut à 4Mo, d'où mes constations de taille de fichier)

J'ai mis les 2 à 1Go, pour être peinard, je pense que j'aurais le temps de voir venir.

Thread de référence:

http://forums.aspfree.com/microsoft-...0t-129770.html

genérer un PDF avec Response.BinaryWrite

ASP

Discussions similaires

Partager

Partager