Главная страница
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.011 c
1-31738
Abajun
2002-10-01 12:15
2002.10.10
вызов внешней программы


1-31782
Kotka
2002-10-02 00:40
2002.10.10
Как закрыть окно???


14-31954
DefE
2002-09-13 14:35
2002.10.10
Condoms....


1-31717
Оля
2002-09-25 16:54
2002.10.10
Циклы


4-32108
LEKSYS
2002-08-27 15:27
2002.10.10
Hide Window