Discussion :

[geof]

BOnjour,
Je suis sur une appli asp.net, et je veux afficher dans le nvigateur client le fichier docx créé sur le serveur.
voici mon code:

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
 'Dim fmObj As New OPUS_USL.FileManager("azerty.docx")
                Dim fmObj As New OPUS_USL.FileManager("test.docx")
                'rempli Buffer
                Dim buffer() As Byte = fmObj.FileManager("c:\test.docx")
                Response.ClearHeaders()
                Response.AddHeader("content-disposition", "attachment; filename=test.docx")
                Response.ClearContent()
                Response.ContentEncoding = System.Text.Encoding.UTF8
 
                Response.ContentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
 
                'on envoie le contenu dans le navigateur
                Response.OutputStream.Write(buffer, 0, buffer.Length)
                Response.OutputStream.Close()
 
                Response.Flush()

Avec ce code, j'ai bien une fenetre de téléchargement qui s'affiche, si je fais "ouvrir", à l'ouverture j'ai le message suivant

Impossible d'ouvrir le fichier test[1].docx. Des problemes ont été décelés dans le contenu

Détails

Impossible d'ouvrir le fichier. Le fichier est corrompu"

Impossible de trouver d'ou ca vient et sur le net pas vu gd chose, ou tj incomplet...
Si qqn peut m'aider
Merci

[cougarg]

Bonjour,

Je ne connais pas la réponse (pas le temps d'approfondir), mais j'ai une piste.
Tu es sûr que le contenu de ton fichier est en UTF8 ?
Si non, est-tu obligé de préciser l'encodage, lors du DL ?

J'espère que cela peut t'aider.

[geof]

merci de ton interet.
Mon fichier est bien UTF8, mais effectivement ca ne coute rien de le préciser dans les propriété du "context.response".
J'ai modifier mon code est ca fonctionne à présent, par contre je ne pourrai pas dire ce qui diffère, sauf peut etre la fermeture du fileStream...
Je le met en ligne pour ceux que ca intéressent.

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
   Dim stream As FileStream = File.Open(Lfichier, FileMode.Open)
                Dim filename As String = Path.GetFileName(Lfichier)
                Response.ClearHeaders()
                Response.ClearContent()
                Response.ContentEncoding = System.Text.Encoding.UTF8
                Context.Response.ContentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
                Context.Response.AddHeader("Content-disposition", "attachment; filename= " & filename)
                Dim buffer(stream.Length) As Byte ' = New Byte(4056)
                Try
                    Dim bytesRead As Integer = 0 'buffer.Length
                    bytesRead = stream.Read(buffer, 0, buffer.Length)
                    While (bytesRead > 0)
                        Context.Response.OutputStream.Write(buffer, 0, bytesRead)
                        bytesRead = stream.Read(buffer, 0, buffer.Length)
                    End While
                Catch ex As Exception
                   CMsgAlerte.Show(ex.Message)
                Finally
                    stream.Close()
                End Try
                Response.End()

Voilà en espérant que ca pourra en aider certains