Jump to content
PirateClub.hu

delphi mediaplayer


Csillagfény
 Share

Recommended Posts

Sziasztok!

Egy kis magyarázatot szeretnék kérni a delphi mediaplayer komponenséhez.

Arra lennék kíváncsi, hogy hogy tudom "érzékelni" esetleg 1 logikai értékkel azt hogy véget ért e az aktuális szám. A problémám megoldása sürgős mert vizsgaprogiról van szó (mp3 lejátszó amiben van playlist is).

 

Eddig arra jutottam, hogy a számok elérési útját elmenti a progi 1 fájlba, de sajna csak az elsőt játsza le. Ha tudnám azt, hogy mikor ér véget akkor beolvastatnám a következőt.

Link to comment
Share on other sites

ez valami hasonló:

 

http://delphi.about.com/od/multimedia/l/aa112800a.htm

 

egyébként pedig:

 

TMediaPlayer.OnNotify

 

Description

 

OnNotify occurs upon the completion of a media control method (Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, Resume, Rewind, StartRecording, Step, or Stop) when the Notify property is set to True before the call to the media control method. After an OnNotify event, the Notify property must be reset to True for the next OnNotify event to occur.

 

The following code declares an array of strings named ModeStr, indexed by the TMPModes type. The Caption of a form displays the string describing the current mode of the device.

 

Note: before running this example, initialize the Notify property of TMediaPlayer1 to True.

 

const

  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin
  with Sender as TMediaPlayer do
  begin
    Form1.Caption := ModeStr[Mode];
    { Note we must reset the Notify property to True }
    { so that we are notified the next time the }
    { mode changes }
    Notify := True;
  end;
end;

Link to comment
Share on other sites

  • 1 month later...

a mediaplayer events fulon talalsz egy OnNotifity esemenyt click reaja

 

ezt a kodot

 

begin

with Sender as TMediaPlayer do

begin

Form1.Caption := ModeStr[Mode];

{ Note we must reset the Notify property to True }

{ so that we are notified the next time the }

{ mode changes }

Notify := True;

end;

 

copy bele

********************************************************

ezt ide

 

var

Form1: TForm1;

const

 

ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

 

 

ezeket atirhatod magyar nyelvure is

 

notifity egyebkent ertesit kozol

 

 

na most a rizsa

 

A notifity true allitasaval a mediaplayer meghivja a media control metodusait Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, Resume, Rewind, StartRecording, Step, or Stop) de ezzel meg nem vagyunk sehol

letre kell hozni egy tombot lsd fent aminek az egyes elemei tmpnodes tipusuak es amikor esemeny van

pl pause vagy play a mediaplayer sikit hogy mi tortent :)

 

Az angol forditas persze nem szo szerint ez de a lenyeg benne van

 

itt mazsolazhatsz egyebkent

http://www.prog.hu/kereses/?expr=mediaplayer&ndid=4550&oc=20

sok sikert

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Hozzászólás a témához...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Jelenleg olvassa   0 members

    • No registered users viewing this page.
×
×
  • Create New...