Autor Beitrag
catweasel
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 487
Erhaltene Danke: 1

Win 7 64bit
Delphi 7 Second Sedition V7.2
BeitragVerfasst: Sa 20.07.02 01:08 
Hi,

Die Frage ist hier im Forum im Prinzip schonmal aufgetaucht, aber auf sound bezogen.
Es geht darum AVI Dateien, deren (Pfad)Namen in einer ListBox stehen nacheinander abzuspielen. (Also im Eine Wiedergabeliste so wie im Orginal...) 8)
Wenn also ein Video zuende ist soll automatisch mit der Wiedergabe des nächsten videos begonnen werden.
In den älteren Postings dazu war die einzig halbwegs brauchbare Info:
"Das hat irgendwas mit dem OnNotify Event zu tun".
Nur:Die wird auch ausgelöst, wenn der Benutzer auf Pause, etc drückt..
Aber bei Filmende wird sie bei mir nie ausgelöst... :?
Kann mir einer mal ein paar Tips geben wie diesen OnNotify arbeitet...
Wäre cool

Catweasel
matze
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 4613
Erhaltene Danke: 24

XP home, prof
Delphi 2009 Prof,
BeitragVerfasst: Sa 20.07.02 10:26 
jo, dieselbe frage wollt ich auch grad stellen :D

_________________
In the beginning was the word.
And the word was content-type: text/plain.
toms
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1099
Erhaltene Danke: 2



BeitragVerfasst: Sa 20.07.02 14:54 
Hi,

Im OnNotify kannst du überprüfen, ob der Mode auf mpStopped ist.
Dann ist das Abspielen zu Ende.
Im SDC findest du Code.

tom
matze
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 4613
Erhaltene Danke: 24

XP home, prof
Delphi 2009 Prof,
BeitragVerfasst: Sa 20.07.02 15:46 
kannst du mal den Code posten ???

_________________
In the beginning was the word.
And the word was content-type: text/plain.
b.brecht
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 81



BeitragVerfasst: Mo 22.07.02 10:57 
du kannst aber auch folgendes machen:

ausblenden Quelltext
1:
2:
3:
4:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
If MediaPlayer1.Position = Mediaplayer1.Length then MediaPlayer1.FileName:=NextFile; //NextFile ist natürlich nru Beispielhaft!
end;
catweasel Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 487
Erhaltene Danke: 1

Win 7 64bit
Delphi 7 Second Sedition V7.2
BeitragVerfasst: Mo 22.07.02 15:02 
Titel: thanks
Hi,

Yo, danke, hat geholfen....
(Statt über die position mach ich dasaber über state [mpStopped])

Catweasel
b.brecht
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 81



BeitragVerfasst: Mo 22.07.02 16:05 
Kein problem, kannste machen, wie du willst!
matze
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 4613
Erhaltene Danke: 24

XP home, prof
Delphi 2009 Prof,
BeitragVerfasst: Mo 22.07.02 16:29 
Titel: Re: thanks
catweasel hat folgendes geschrieben:

Statt über die position mach ich dasaber über state [mpStopped]


Kannst du mir mal den Code dafür verraten ??

_________________
In the beginning was the word.
And the word was content-type: text/plain.