Discussion :

[pitite]

Bonjour,

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
    Public Function PrintDoc(ByVal TemplateName As String, ByVal DataSource As DataSet, Optional ByVal Codage As TypeCodage = TypeCodage.NoCodage) As String 'ByVal CreateFile As String, Optional ByVal AskIfExist As Boolean = True,
 
        Dim StringPrintDoc As String
        Dim StringToBase64 As String
        Dim HashTable As New Hashtable()
 
        Dim StreamDocument As Stream
 
        HashTable = Me.ConversionHashTable(DataSource)
 
        Try
            Dim MS As New MemoryStream
            Dim wordDocument As WordprocessingDocument = WordprocessingDocument.Create(MS, WordprocessingDocumentType.Document)
            Dim mainPart As MainDocumentPart = wordDocument.AddMainDocumentPart()
 
            mainPart.Document = New Document()
            Dim body As Body = mainPart.Document.AppendChild(New Body())
            Dim para As Paragraph = body.AppendChild(New Paragraph())
            Dim run As Run = para.AppendChild(New Run())
            run.AppendChild(New Text("Ca fonctionne :)"))
            StreamDocument = mainPart.GetStream()
            StringToBase64 = StreamDocument.ToString()
            StringPrintDoc = EncodeTo64(StringToBase64)
            TextBox1.Text = StringToBase64
            TextBox2.Text = StringPrintDoc
        Catch ex As NullReferenceException
            Console.WriteLine(Err.Description)
        Catch ex As ArgumentException
        End Try
 
        Return StringPrintDoc
    End Function

Al'exécution du code devrait s'afficher "Ca fonctionne" seulement j'ai ceci "MS.Internal.IO.Zip.ZipIOModeEnforcingStream" à la pace.
Quel est le problème ?

[shayw]

Salut

Apprend à utiliser le debugger (F8) et continue pas à pas
ainsi tu pourras discerner le bug ou au moins à quelle ligne de ton code
le bug se produit

[pitite]

Merci.
J'ai déjà utiliser le Debuger et ça me dit juste où est l'erreur.

[shayw]

à quelle ligne ?

[pitite]

J'ai trouvé la solution :

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
    Public Function PrintDoc(ByVal TemplateName As String, ByVal DataSource As DataSet, Optional ByVal Codage As TypeCodage = TypeCodage.NoCodage) As String 'ByVal CreateFile As String, Optional ByVal AskIfExist As Boolean = True,
 
        Dim StringPrintDoc As String
        Dim StringToBase64 As String
        Dim HashTable As New Hashtable()
        Dim StreamDocument As Stream
        Dim SR As StreamReader
 
        HashTable = Me.ConversionHashTable(DataSource)
 
        Try
            Dim MS As New MemoryStream
            Dim wordDocument As WordprocessingDocument = WordprocessingDocument.Create(MS, WordprocessingDocumentType.Document)
            Dim mainPart As MainDocumentPart = wordDocument.AddMainDocumentPart()
            mainPart.Document = New Document(New Body(New Paragraph(New Run(New Text("Ca fonctionne")))))
 
            StreamDocument = mainPart.GetStream()
            SR = New StreamReader(StreamDocument)
 
            StringToBase64 = SR.ReadToEnd()
 
            StringPrintDoc = EncodeTo64(StringToBase64)
            TextBox1.Text = StringToBase64
            TextBox2.Text = StringPrintDoc
        Catch ex As Exception
            Console.WriteLine(Err.Description)
        End Try
 
        Return StringPrintDoc
    End Function

Par contre, maintenant, j'ai une autre erreur, mon StringToBase64 est vide