|
#1
|
|||
|
|||
медиаплеер
Привет всем.
У меня вопрос к вам. Можно ли компонентом медиаплеер воспроизвести звук и видео в форматах мр3 и ави? И как заставить кнопкам чтобы они работали? открыть, плай, стоп и т д. Самое главное это кнопка открыть. Потом я сам буду разбирать)))) Например я на форме добавил компонентов медиаплеер и панель и хочу добавить видео или мп на этот панель и из этой панели кнопки плай, стоп и т д будут взять данные. |
#2
|
||||
|
||||
Код:
type TForm1 = class(TForm) MediaPlayer1: TMediaPlayer; ButtonOpen: TButton; OpenDialog1: TOpenDialog; procedure ButtonOpenClick(Sender: TObject); ... procedure TForm1.ButtonOpenClick(Sender: TObject); begin if OpenDialog1.Execute then begin MediaPlayer1.FileName:=OpenDialog1.FileName; MediaPlayer1.Open; end; end; остальныен кнопки уже есть. TMediaPlayer воспроизведет любой формат, если соотв. кодек установлен в системе. Пишу программы за еду. __________________ |