Форум: "Media";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизОбсудим мой код проигрывания мидишек? Найти похожие ветки
← →
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 вся ветка
Форум: "Media";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c