Discussion :

[Eric_M]

Boujour à tous,

Lorsque j'ouvre un document xps avec un DocumentViewer,
le fichier devient bloqué et impossible à supprimer car il est utilisé par un autre processus.

Voici le code que j'utilise pour ouvrir un fichier XPS:

Code :

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

1
2
3
4
5
Dim Folder as String
Dim doc As New XpsDocument(Folder & "Document.xps", IO.FileAccess.Read)
'Ici je récupère le FixedDocument pour utilisation ultérieur
Dim docReference As DocumentReference = doc.GetFixedDocumentSequence().References.First
DocumentViewer1.Document = docReference.GetDocument(False)

Quelqu'un aurait-il une idée pour libérer le processus?

Merci d'avance,
Éric

[tomlev]

A priori il faut fermer le document en appelant Dispose dessus

Sinon, l'autre possibilité est d'ouvrir manuellement un Stream et de le fermer quand tu as chargé le document. Un truc comme ça :

Code :

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

1
2
3
4
5
6
Dim doc As XpsDocument
Using s As Stream = File.OpenRead(Folder & "Document.xps")
    Using p As Package = Package.Open(s)
        doc = new XpsDocument(p)
    End Using
End Using

(pas testé)

[Eric_M]

Salut et merci TomLev pour ta réponse.

J'ai essayé ton code, qui semble être une très bonne piste,
sauf que je reçois une erreur lorsque je change le DocumentViewer1.Document :

L'URI de XpsDocument a la valeur null. Utilisez le constructeur de XpsDocument qui accepte le paramètre URI.

On dirait que le DocumentViewer a besoin absolument d'une URI pour pouvoir fonctionner..

Auriez-vous un idée comment contourner cela?

P-S: Je ne suis pas sûre de comprendre où il faut faire le Dispose, car sur les variables, il n'y a pas de fonction .Dispose()

Merci

[tomlev]

Auriez-vous un idée comment contourner cela?

Absolument pas... j'ai jamais utilisé ça, j'ai juste regardé dans la doc

P-S: Je ne suis pas sûre de comprendre où il faut faire le Dispose, car sur les variables, il n'y a pas de fonction .Dispose()

Sur le Stream, il y a bien une méthode Dispose. Sur le Package, elle existe mais elle est "cachée" par implémentation explicite de l'interface IDisposable. C'est à dire qu'elle n'est accessible que quand on manipule l'objet via l'interface IDisposable. Mais l'instruction Using gère ça proprement, donc pas besoin de s'en préoccuper

[Eric_M]

Ok, j'ai trouvé la solution!

En testant ton code, j'obtenais des erreurs différentes et,
après plusieurs recherches, j'ai réussi à en venir à un code qui fonctionne.

Le voici:

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
   Dim TempPathOfXPS As String
    Dim packageUri As New Uri("memorystream:/Document.xps")
    Dim xpsStream As Stream
    Dim package__1 As Package
    Dim xpsDoc As XpsDocument
 
    Private Sub LoadXPSDoc(ByVal FilePath As String)
        TempPathOfXPS = FilePath
 
        xpsStream = File.OpenRead(FilePath)
        package__1 = Package.Open(xpsStream, FileMode.Open, FileAccess.Read)
 
 
        'Add package to PackageStore
        PackageStore.AddPackage(packageUri, package__1)
 
        xpsDoc = New XpsDocument(package__1, CompressionOption.SuperFast, packageUri.ToString)
 
        Dim docReference As DocumentReference = xpsDoc.GetFixedDocumentSequence().References.First
        DocumentViewer1.Document = docReference.GetDocument(False)
 
 
        ' PackageStore.RemovePackage(packageUri)
 
    End Sub

Et, dans un Timer, après un délai (pour laisser le temps au DocumentViewer d'ouvrir complètement le document),
j'effectue ce code pour nettoyer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    If TempPathOfXPS <> "" Then
 
            xpsDoc.Close()
            PackageStore.RemovePackage(packageUri)
            package__1.Close()
            xpsStream.Close()
            Try
                IO.Directory.Delete(TempPathOfXPS.Substring(0, TempPathOfXPS.LastIndexOf("\")), True)
            Catch ex As Exception
            End Try
 
            TempPathOfXPS = ""
        End If

Avec ce code, je peux libérer le fichier xps lorsqu'il a été créer avec mon code

Le seul problème, c'est que si il ne l'est pas (ex.: Convertion DOC -> XPS) et que je le libère, je ne pourrai plus sauvegarder le FixedDocument du DocumentViewer et j'obtient l'erreur suivante:

Impossible d'effectuer une opération de lecture avec un mode en écriture seule.

Je ne suis pas sûr, mais je croix que ça ne fonctionne pas avec les autres car ils contiennent des images et qu'il y a un problème avec le lecteur de Bitmap du DocumentViewer..