Probleme avec redirectstandartoutput

Signaler
Messages postés
19
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
29 juin 2013
-
Messages postés
14827
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 octobre 2021
-
Bonjour, mon probleme est que dans ma richtextbox1 je n'est rien qui apparait . comment faire ?

voici mon code :
Sub download()
        
        For Each a In rtb.Lines
            Dim p As New Process
            p.StartInfo.FileName = Application.StartupPath & "\bin\wget.exe"
            p.StartInfo.Arguments = "--continue --directory-prefix=" & Chr(34) & Application.StartupPath & Chr(34) & "\temp " & a
            p.StartInfo.CreateNoWindow = True
            p.StartInfo.RedirectStandardInput = True
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            p.StartInfo.UseShellExecute = False
            
            AddHandler p.OutputDataReceived, AddressOf GotData
            p.Start()
            p.BeginOutputReadLine()
            Do Until p.HasExited = True
                Application.DoEvents()
            Loop
        Next
    End Sub

    Private Sub GotData(sendingProcess As Object, outLine As DataReceivedEventArgs)
        If Not String.IsNullOrEmpty(outLine.Data) Then
            SetText(outLine.Data)
        End If
    End Sub

    Delegate Sub SetTextCallback(value As String)
    Private Sub SetText(ByVal value As String)
        If Me.RichTextBox1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {value})
        Else
            Me.RichTextBox1.AppendText(value + Environment.NewLine)
        End If
    End Sub


Merci d'avance

1 réponse

Messages postés
14827
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 octobre 2021
157
Bonjour,

As-tu essayer en pas à pas ?

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site