ich bekomm hier die Fehlermeldung, dass *Parameters keine Structure hat, obwohl es definiert ist.
Komm nicht drauf, wo der Fehler liegen könnte, hab es schon mit Global versucht, aber selbes Ergebnis.
Code: Alles auswählen
Enumeration Window
#VideoConverter
#Textausgabe
#button
EndEnumeration
Structure VideoDatei
FileName$
Abschluss.i
EndStructure
Define Parameters.VideoDatei
;Global Parameters.VideoDatei
Procedure MyThread(*Parameters.VideoDatei)
Define ShellPrg, Filename$, Dummy$
Debug *Parameters\FileName$
Debug *Parameters\Abschluss
; ShellPrg= RunProgram("youtube-dl", Chr(32) + FileName$, "", #PB_Program_Open | #PB_Program_Write | #PB_Program_Read | #PB_Program_Error)
*Parameters\Abschluss = 1
EndProcedure
Procedure Download()
Define i, DelFlag, Filename$, *Parameters
For i= 1 To 9
FileName$ = GetGadgetText (i)
If FileName$ <> "" And GetGadgetState(i) = 1
Debug FileName$
*Parameters\FileName$ = FileName$
*Parameters\Abschluss = 0
; CreateThread ( @MyThread () , *Parameters.VideoDatei)
EndIf
Next
EndProcedure
Procedure Open_MainScreen()
OpenWindow(#VideoConverter, 0, 0, 400, 200, "VideoConverter",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
EditorGadget(#Textausgabe,10,10,380,40)
ButtonGadget(#button,300,170,90,20,"Download")
EndProcedure
Open_MainScreen()
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #button
Download()
EndSelect
Case #PB_Event_CloseWindow
Ende=#True
EndSelect
Until Ende=#True
Kurt