🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #179

Re: TMediaPlayer i AutoRewers

#179
From: mro... Marcin Rosiek
Date: Mon, 20 Oct 1997 00:00
31 lines
1319 bytes
On Fri, 19 Sep 1997 08:42:51 +0200, Witold Rak <W....@bss.com.pl>
wrote:

>Moze jeszcze  dorzuce jedno pytanko, w jaki sposob mozna spowodowac aby 
>odtwarzany plik posiadal wlasnosc autorewersu danego utworu, filmu czy
>czegos tam jeszcze. Bo moje rozwiazanie nie jest chyba zbyt oryginalne:
>Repeat
>  MediaPlayer.Play;
>  if (...)then MediaPlayer.Previous();
>Until (..)
>-- 
>Witold Rak 	E-mail:  W....@bss.com.pl

Czesc

O ile sie nie myle, to mozna rozwiazac to w ten sposob:
1) tworzymy sobie procedurke MediaPlayer.OnNotify - jest ona
wywolywana m.in. w momecie zakonczenia odtwarzania np. AVI.
Ustawiamy wlasciwosc MediaPlayer.Notify na true;
2) sprawdzamy sobie powod wywolania tej procedurki -> i dalej
MediaPlayer.Play.
3) i tak w kolko

Bardziej szczegolowo poczytaj sobie w helpie

Acha - sprawdzalem w Delphi 3, nie wiem jak to i czy to dziala w
poprzednich wersjach.

Pozdrawiam
Marcin
Technical Details
Message-ID: <344bd4f1.8319049@news.tpsa.pl>
Path: mbox-mo1.pugleaf.net!unknown!not-for-mail
References: <5vrhef$f44@zeus.polsl.gliwice.pl> <34221EEB.D9B55DC0@bss.com.pl>

Show Full Headers
Complete Article Headers
From: mro...@student.uci.agh.edu.pl (Marcin Rosiek)
Subject: Re: TMediaPlayer i AutoRewers
Date: 1997/10/20
Message-ID: <344bd4f1.8319049@news.tpsa.pl>
X-Deja-AN: 282132806
References: <5vrhef$f44@zeus.polsl.gliwice.pl> <34221EEB.D9B55DC0@bss.com.pl>
Newsgroups: pl.comp.lang.delphi
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit