birden fazla wav veya mp3 çalma

[mege]

geçen yıl aradığım ama bulamadığım procedure. aynı anda windowsa parça çaldırttırabiliyorunuz.

Kod: Tümünü seç

uses ...., MMSystem;
procedure SendMCICommand(Cmd: string);
var
  RetVal: Integer;
  ErrMsg: array[0..254] of char;
begin
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
  if RetVal <> 0 then
  begin
    {get message for returned value}
    mciGetErrorString(RetVal, ErrMsg, 255);
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMCICommand('open waveaudio shareable');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 SendMCICommand('close waveaudio');
end;

sonra formunuza butonlar ekleyin ve tıklayın

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMCICommand('play "c:\a.wav"');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMCICommand('play "c:\b.wav"');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  SendMCICommand('play "c:\c.mp3"');
end;

Kaynak : Torry'dendi ama linki kaybettim

[vampir261]

Mege abi bende wav çalıdırarak bir program yapmıştım ama bu kod mp3 te çalabiliyormuş. bende deneyeyim dedim . olmadı.wav dosyalarını çalıyor ama mp3 dosyasını çalmaya gelince tıklıyorum bir süre sonra project.exe kendini kapatıyor. acaba çözüm ne olabilir. yardımlarınız için teşekkürler

[mege]

selam

bu kodu kullanmayı problem yaratıyor. bazen aprça kilitlenip kalıyor vb.. şeyler oldu.

viewtopic.php?p=11878#11878

şu çözümü deneseniz

abi nerden çıktı ya alla alla, hüsnü hep senin yüzünden