0

Помогите, пожалуйста. Нужен код простенького видеоплеера, который бы при событии OnClick на Image воспроизводил бы видеофайл, заранее указанный в коде.

Добавлено.

Вы знаете, я сделала вот так:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  MediaPlayer.Display:=Loading; 
  MediaPlayer.FileName := 'C:Documents and SettingsОльгаРабочий столЭлектрон. справочникaWelcome.avi'; 
  MediaPlayer.Open; 
  MediaPlayer.Play; 
end;

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  MediaPlayer.Play;
end;

procedure TForm1.Button3Click(Sender: TObject); 
begin 
  MediaPlayer.Stop;
end;

Loading - это панель. А как можно сделать, чтоб кроме ави еще какое-нибудь расширение читал?

1
  • Вроде бы TMediaPlayer - это обертка для api windows media player'а и должен воспроизводить все, что может встроенный проигрыватель. Commented 9 июл. 2015 в 12:09

1 ответ 1

1

Используй TMediaPlayer, вот тут пример.

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.