Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
1-31754
eLVik
2002-09-30 17:36
2002.10.10
playsound


1-31695
123000
2002-09-30 16:14
2002.10.10
Папки


14-31955
Igor_thief
2002-09-15 13:17
2002.10.10
Hook


14-31984
Cobalt
2002-09-13 19:13
2002.10.10
Поиск в MSDN


4-32112
anod
2002-08-22 18:00
2002.10.10
GetOpenFileName