Spille av en lydfil

Du kunne os bare bruge MCI... Så vidt jeg ved, så bruger TMediaPlayer også MCI. På http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_multimedia_command_strings.asp kan du læse mere

Hilsen Mark Jensen

DNA er naturens array

Du kan bruge komandoen

PlaySound('C:\\Lyd.wav', null, SND_FILENAME);

Men playsound kan det sværer ikke afspille andet end wav

Du kan bruge denne:

If MediaPlayer1.Position = MediaPlayer1.TrackLength[0] then
begin
  MediaPlayer1.Stop;
  MediaPlayer1.Play;
end;

hehe
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 09/02-04 22:01:19 af Rune Jensen (RoZ)]

Hmm ja du kan sætte flere TMediaPlayer på din form. De er ikke afhængige af hinanden. Du siger bare til hvis du skal have hjælp til det.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du kan bruge komandoen

PlaySound('C:\\Lyd.wav', null, SND_FILENAME);

Men playsound kan det sværer ikke afspille andet end wav

Hmm.. Det virket ikke med "null", og med "SND_FILENAME" stopper hele programmet, og venter til lyden er ferdig.

Dette virker, men den første avspillingen stopper:
PlaySound('lydfil.wav', 0, SND_ASYNC); //denne stopper
PlaySound('lydfil.wav', 0, SND_ASYNC); //denne avspilles

Jeg vil gjerne:
PlaySound('lydfil.wav', 0, SND_ASYNC); //denne avspilles
PlaySound('lydfil.wav', 0, SND_ASYNC); //denne avspilles + den andre

Hvis du forstår hva jeg mener.

DiZpel

[Redigeret d. 07/02-04 21:09:11 af DiZpel]

Lav det med to mediaplayere!
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Lav det med to mediaplayere!
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Det blir litt vanskelig når jeg har en timer, og lydfilen skal spilles av hvert 100 ms og skal spilles "over" hverandre om dere forstår?

Jeg kan jo kanskje bruke 10 TMediaPlayere og bruke denne koden?:

  if MediaPlayer1.Position > 0 then
  begin
    if MediaPlayer2.Position > 0 then
    begin
      //osv. osv.
    end
    else
    begin
      MediaPlayer2.Open;
      MediaPlayer2.Play;
    end;
  end
  else
  begin
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end;

DiZpel

[Redigeret d. 08/02-04 17:34:23 af DiZpel]

Du kan også bruge if mediaplayer1.stopped then... Bar sæt det ind i en TTimer med et interval på 1000
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

MediaPlayer1.Stopped virker ikke. - Undeclared identifier: 'stopped'

DiZpel

[Redigeret d. 08/02-04 19:58:03 af DiZpel]

Lukker det bare da jeg ikke får noen bedre svar...

DiZpel