Sujet Précédent Sujet Suivant

Probleme avec redirectstandartoutput

cracken35 Messages postés 19 Date d'inscription mercredi 19 mai 2010 Statut Membre Dernière intervention 29 juin 2013 - 29 juin 2013 à 11:10
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 29 juin 2013 à 16:02
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

Réponse 1 / 1
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
29 juin 2013 à 16:02
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
0
Rejoignez-nous