Обсудим мой код проигрывания мидишек? [D3, D5, Win95/98, WinME]
Olegek © (2002-06-08 17:52:00)
Почему этот код после проигрывания 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:00) [1]
Смотри на винограде, я написал там тебе работающую
процедуру.
Наверх 
ЧАТ |
Орешник |
|
