Progressbar einrichten? Vb .net

Hallo,

ich programmiere mir gerade eine Gui zu einen Konsolenprogramm.(genauer gesagt ist es rtmpdump, mit den man ein RTMP-Stream herunterladen kann) Soweit habe ich alles mit den Parametern. Nun will ich aber noch eine Progressbar haben, um den Status zu sehen.(von den Download) Aber wie richte ich die Progressbar ein damit sie richtig funktioniert?
Die Konsolenanwendung zeigt den Status nach diesen Musteraktualisiert etwa jede Sekunde)
1243 KB <3,8%>

Wie kann ich den Downloadstatus einbinden?

lg josias12

 

über die windows api funktioniert es so:

* eine pipe erzeugen
* die pipe in die startupinfo als standardout eintragen
* rtmpdump per createprocess (natürlich mit der startupinfo) starten
* regelmäßig die pipe per fileread auslesen und auswerten

 

hab ich jetzt nicht ganz verstanden. Also am besten(bin noch nicht so erfahren) jemand gibt mir gleich den Code. Meine Angaben:
-habe rtmpdump.exe über Befehl shell gestartet
-rtmpdump.exe zeigt so an 1243KB <12,8%>
-Das soll in die Progressbar1

lg josias12

 

kann mir da niemand mal schnell helfen?

 

Wie wäre es wenn du mal deinen Code zeigst ? Dann kann man dir auch gezielt helfen.

Ich kenne rtmpdump jetzt nicht, aber wie du schon schreibst ist es eine Konsolenanwendung, die jede Sekunde ihren Status aktuallisiert. Demzufolge ist die erste Frage: Hast du den aktuellen Status schon in VB abgefragt und ihn ggf. in einer Variable ? Falls ja ist der Rest ein Kinderspiel. Falls nein solltest du erstmal dieses Problem lösen und dir den aktuellen Status in dein VB Programm holen um es dann entsprechend weiter zu verarbeiten.

 

Ich habe eine Textbox3 in der dann die Parameter stehen:
z.B. -o "C:\Videos\test.flv" -r "rtmp://wasweissich.net"
und dann habe ich ein Download Button mit den Event:
Process.Start("rtmpdump.exe " & TextBox3.Text)

Funktioniert soweit auch. Dann startet die RTMPdump.exe und lädt es herunter. Nach dem Muster zeigt sie den aktuellen Status an:

1084 KB <42,4%>

Das soll in eine ProgressBar. Ich hab aber überhaupt keinen Plan wie ich das machen soll.

lg josias12.

 

lass mir mal die anwendung rtmpdump zukommen. denn ich find nirgendwo einen download für das ganze.

wäre nämlich ungemein praktisch wenn man die anwendung hat zum testen

 

so hab ich hochgeladen(mit source und binary)
http://ul.to/2kaiq4
Dazu soll die Progressbar

 

okay ich schaus mir an, sobald ich die zeit dazu finde und seh was sich machen lässt

 

Kann hier mir jemand überhaupt helfen, oder bastelt ihr Tag und Nacht dra rum?

 

in der zeit in der du hier pusht hättest du auch mal selber suchen können...

http://www.devx.com/dotnet/Article/7914/0/page/5

 

tut mir Leid das ich gepusht habe, aber irgendwie kann ich damit nichts anfangen.
Kann mir jemand den Code dafür geben?:
-rtmpdump.exe starten (ist eine Konsolenanwendung, Screenshot angehangen)
Diese exe zeigt den Status nach diesen Muster an : 8249 KB <62,9%>
-Das soll in die Progressbar1(Der Fortschritt)
Es ist mir egal wie, Hauptsache es geht!

Danke

lg josias12

 

So, hab mich jetzt da richtig reingedacht, aber irgendwie funktioniert das nicht. Wer kanns verbessern?

Code:

Dim myProcess As Process = New Process()
    
        myProcess.StartInfo.UseShellExecute = False
        myProcess.StartInfo.CreateNoWindow = True
        myProcess.StartInfo.RedirectStandardInput = True
        myProcess.StartInfo.RedirectStandardOutput = True
        myProcess.StartInfo.RedirectStandardError = True
        myProcess.Start()

        Dim sIn As StreamWriter = myProcess.StandardInput
        Dim sOut As StreamReader = myProcess.StandardOutput
        Dim sErr As StreamReader = myProcess.StandardError
        sIn.AutoFlush = True
        sIn.Write("dir c:\windows\system32\*.com" & System.Environment.NewLine)
        sIn.Write("exit" & System.Environment.NewLine)

        If Not myProcess.Ha***ited Then
            myProcess.Kill()
        End If

        sIn.Close()
        sOut.Close()
        sErr.Close()
        myProcess.Close()
        Dim my1Process As Process = New Process()

        myProcess.StartInfo.FileName = "rtmpdump.exe " + TextBox3.Text
        myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
        myProcess.EnableRaisingEvents = True
        ProgressBar1.Value = Int(Fortschritt(sOut.ToString) * ProgressBar1.Maximum / 100)

Und das ist die Funktion Fortschritt

Code:

Dim Data() As String = split(Input, "<")
        Data(1) = replace(Data(1), "%>", "")
        Return Data(1)

 

merkwürdig, dass es nicht funktioniert

immerhin startest du erstmal GARKEIN programm,
myProcess.StartInfo.FileName =????

tust so als wäre es nach wie vor der command prompt,
sIn.Write("dir c:\windows\system32\*.com" & System.Environment.NewLine)
sIn.Write("exit" & System.Environment.NewLine)

würgst es einfach mal preventiv hart ab
If Not myProcess.HasExited Then
myProcess.Kill()
End If

und dann machst du erst recht dein eigenes ding ohne io redirection....