Обсудим мой код проигрывания мидишек?

← →
Olegek (2002-06-08 17:52) [0]

Почему этот код после проигрывания MIDI не хочет воспроизвотить следующую выбранную мидишку?
Выводит такие сообщения:
"MMSYSTEM275 Указанный файл не найден. Проверьте правильность ввода пути и имени файла." и "No MCI device open."

//Code:
uses
MPlayer;

var
mp: TMediaPlayer;

//Исходная надпись на кнопке - Тест
procedure TForm1.ColorBtn5Click(Sender: TObject);
begin
with Sender as TButton do
case Tag of
0 :
begin
Tag := 1;
mp := TMediaPlayer.CreateParented(Handle);
mp.DeviceType := dtSequencer;
mp.FileName := PChar(Label5.Caption);
mp.Wait:= True;
mp.Open;
mp.Play;
//Началось воспроизведение
//Изменяем надпись на кнопке на Стоп
ColorBtn5.Caption := "Стоп";
end;
1 :
begin
Tag := 0;
mp.Wait := True;
mp.Stop;
mp.Free;
end;
end;
end;

← →
Song (2002-06-08 18:22) [1]

Смотри на винограде, я написал там тебе работающую процедуру.

Обсудим мой код проигрывания мидишек? Найти похожие ветки