Problème d'accès à un fichier [Résolu]

Signaler
Messages postés
4
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
6 juillet 2007
-
Messages postés
4
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
6 juillet 2007
-
Bonjour,
             je developpe une application web en VB.net 2005 qui permet de créer des rapports crystal de façon dynamique. J'utilise la version built-in de Crystal Report et lorsqu'on veut imprimer le rapport, Crystal report pop une fenêtre(très laide soit dit en passant) me demandant les pages à imprimer avant d'exporter le fichier en pdf et ouvre adobe pour que l'utilisateur effectue l'impression du pdf.
J'ai donc décidé d'exporter moi-même le rapport vers C:\WINDOWS\Temp et rediriger l'utilisateur vers ce fichier. J'ai utilisé le code suivant :

Protected

Sub Page_Load(
ByVal sender 
As
Object, 
ByVal e 
As System.EventArgs) 
Handles
Me.Load

Dim dfdoCustomers 
As
New _CrystalDecisions.Shared.DiskFileDestinationOptions()

Dim szFileName 
As
String = (
"C:\WINDOWS\Temp\Rapport2.pdf")dfdoCustomers.DiskFileName = szFileName

With RemplirDataSet()  '// Function retournant un objet de type report document.ExportOptions.ExportDestinationType = _

CrystalDecisions.Shared.ExportDestinationType.DiskFile

.ExportOptions.ExportFormatType = _

CrystalDecisions.Shared.ExportFormatType.PortableDocFormat

.ExportOptions.DestinationOptions = dfdoCustomers

.Export()

End
WithResponse.Redirect(szFileName)

End
Sud


Je suis redirigé vers la page d'erreur(peu utile) "Impossible de trouver le serveur ou erreur DNS".
Le Rapport.pdf ce retrouve bien à l'emplacement désiré.
Immédiatement j'ai pensé à un problème de droits, mais tous les utilisateurs possibles ont les droits nécessaires sur le dossir et je ne trouve aucun usager ASPNET à ajouter.
Tout aide sera appréciée, merci
Kotor2000

1 réponse

Messages postés
4
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
6 juillet 2007

Jai trouvé
c un peu différent mais ca fait la meme chose


Dim dfdoCustomers 
As
New _CrystalDecisions.Shared.DiskFileDestinationOptions()

Dim szFileName 
As
String = Server.MapPath(
"~\exports" & Session.SessionID.ToString & 
".pdf")dfdoCustomers.DiskFileName = szFileName

With RemplirDataSet().ExportOptions.ExportDestinationType = _

CrystalDecisions.Shared.ExportDestinationType.DiskFile

.ExportOptions.ExportFormatType = _

CrystalDecisions.Shared.ExportFormatType.PortableDocFormat

.ExportOptions.DestinationOptions = dfdoCustomers

.Export()

End
With

'Response.Redirect(szFileName)Response.ClearContent()

Response.ClearHeaders()

Response.ContentType = 

"application/pdf"Response.WriteFile(szFileName)

Response.Flush()

Response.Close()

'delete the exported file from diskSystem.IO.File.Delete(szFileName)


si ca sert à qqun