funktioniert ReadProgramString() nicht mehr!?
Die Ausgabe des Programms wird direkt in die Console geschrieben!?
Ich muss aber wissen was das Programm zurückgibt.
Was kann ich tun?
Verstehe ich jetzt nicht ganz. Wer schreibt was in die Konsole?Mijikai hat geschrieben:Die Ausgabe des Programms wird direkt in die Console geschrieben!?
Ich muss aber wissen was das Programm zurückgibt.
Code: Alles auswählen
ShellPrg= RunProgram("youtube-dl", Chr(32) + Adress$, "", #PB_Program_Open | #PB_Program_Write | #PB_Program_Read | #PB_Program_Error)
AddGadgetItem(#LabAdr, 0, "Lade " + Adress$)
While WindowEvent():Wend ; updaten
If ShellPrg
While ProgramRunning(ShellPrg)
Position=0
Dummy = ReadProgramString(ShellPrg)
If Dummy <> ""
Adress$=Dummy
RPS + Dummy + #CRLF$
EndIf
Dummy = ReadProgramError(ShellPrg)
If Dummy <> ""
RPE + Dummy + #CRLF$
EndIf
Position=FindString(Adress$,"[ffmpeg] Merging formats into ")
If Position
Adress$=Mid(Adress$, (Position + 30), (Len(Adress$)))
Debug "Titel= " + Adress$
EndIf
Wend
Code: Alles auswählen
#PB_Program_Open|#PB_Program_Read|#PB_Program_Ascii|#PB_Program_Wait