Hallo erstmal,
ich möchte gerne den Movieplayer in einer Schleife laufen lassen. Dabei sollte er immer für eine definierte Zeit laufen,
danach sich das nächste Video laden und wieder für die definierte Zeit laufen.
Mein Problem: mit dem Time Delay bleibt das Video nach kurzer Zeit stehen.
for i as integer = s to window1.Listbox1.ListCount-1
f=GetFolderItem(Videoname)
if f<>nil then
MoviePlayer1.movie=f.OpenAsMovie
MoviePlayer1.Position=VideoPosition
MoviePlayer1.play
While ticks - z < spielzeit*50
'Wait
Wend
end if
next i
Beim Play-Befehl innerhalb der While-Schleife läuft das Video zwar durch, aber es flackert dann!
Vieleicht kann mir da jemand helfen.
Vielen Dank im voraus!
Michael Dinse