[insert]

мне нужно чтоб при запуске программы проигрывалась музыка, а после оканчания она повторялась.
возможноли ауди трек впихнуть в программу?

знаю что можно с помощью библиотки Bass.dll но никак не получается(

подскажите кто знает

[Ama]

Используй компонент tmediaplayer.

[insert]

хы, знать бы что tmediaplayer делает

а можно по подробнее

[Ama]

Вообще-то в справке все написано. Ща просто без компа. Или в разделе faq поищи. Там есть статьи об компоненте

[M.A.D.M.A.N.]

SndPlaySound.

[M.A.D.M.A.N.]

SndPlaySound.

[insert]

куда эту функцию вставлять ?

[movnet]

Сообщение от insert

куда эту функцию вставлять ?

Код:

uses
  mmsystem;

// PLAY
sndPlaySound('C:\You_sound_ file.wav', SND_ASYNC);

// Loop Mode (зацикливание)
sndPlaySound('C:\You_sound_ file.wav', SND_ASYNC + SND_LOOP);

//STOP
sndPlaySound(nil, SND_ASYNC);

[Лунтик-Некрофил]

Короче кидай mediaplayer и пиши

Код:

mediaplayer.filename:='музон.mp3';
mediaplayer.open;
mediaplayer.play;

По поводу остального - почитай. Видел дофига статей на сайте, все остальное самостоятельно найдешь в инете.

[ryderx34]

Сообщение от insert

знаю что можно с помощью библиотки Bass.dll но никак не получается(

Код:

var
  SN: DWORD;

// FormCreate
BASS_Init(-1, 44100, 0, handle, nil);

// Play
SN:=Bass_StreamCreateFile(false, PChar('C:\music.mp3'),0,0,0);
BASS_ChannelPlay(SN, false);

// FormClose
BASS_StreamFree(SN);
BASS_Free();

а после оканчания она повторялась

Код:

// Timer
if BASS_ChannelGetPosition(SN,BASS_POS_BYTE)=BASS_ChannelGetLength(SN,BASS_POS_BYTE) then
  begin
    BASS_ChannelStop(SN);
    BASS_ChannelPlay(SN, false);
  end;

[insert]

чет она у меня вобще непроигрывается(
может я не так библиотеку подключил?
bass.pas, bass.dll, bass.bpg в корень проекта положить?

зы delphi 7 пользуюсь

[ryderx34]

Сообщение от insert

чет она у меня вобще непроигрывается(
может я не так библиотеку подключил?
bass.pas, bass.dll, bass.bpg в корень проекта положить?

bass.dll, bass.pas, bass.bpg, bass.dcu в папку с проектом.
SN: DWORD; (можно SN: Cardinal) нужно писать в тот var, который до implementation
Код для bass 2.4, у других версий может отличаться.
Или зайди сюда я выкладывал там исходник плеера на bass 2.4.