|
Вопрос # 3 862/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Хочу создать для одного видеокурса интерфейс... В этом интерфейсе мне нужен видеоплейер, проигрывающий wmv. Дельфи знаю на начальном уровне, но все равно кое в чем разбираюсь. Поэтому прошу посоветовать, каким компонентом пользоваться (с TMedia Player не получается).
 |
Вопрос задал: bizon_all (статус: Посетитель)
Вопрос отправлен: 8 марта 2010, 14:51
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 9; последнее сообщение — 20 января 2011, 15:17; участников в обсуждении: 6.
|
Вадим К (статус: Академик), 8 марта 2010, 16:09 [#1]:
если в системе есть нужные кодеки, то можно импортировать компонент Windows media Player.
Он находиться в списке ActiveX компонентов.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
SOA (статус: Посетитель), 8 марта 2010, 16:55 [#2]:
На форму кидай:
Mediaplayer
кнопку
панель
Opendialog
В Mediaplayer1 в настройках выставь false:
Autoenable
AutoOpen
AutoRevind
Display=Panel1
Ну а в unit.pas копируй следующее
=============================================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, MPlayer, StdCtrls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Panel1: TPanel;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute=True Then
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
MediaPlayer1.DisplayRect:=Panel1.ClientRect;
{
Очень чутко реагирует на параметры:
Autoenable
AutoOpen
AutoRevind
}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.AutoEnable:=False;
end;
end.
|
|
|
bizon_all (статус: Посетитель), 8 марта 2010, 17:32 [#3]:
Спасибо SOA, учту, только мне не нужен OpenDialog, все уроки у меня будут воспроизводиться по ссылкам, которые я пропишу с помощью вспомогательного внешнего файла типа Record... И еще, я думаю, что мне будет нужно, чтобы этот самый плеер разворачивался на весь экран... Но это я уж сам попытаюсь сделать...
2Вадим К: А эту штуку где искать? Не совсем ясно... И еще, т.к. этот видеокурс будет воспроизводиться на других компах, а не только на моем, не будет ли препятствием отсутствие кодеков на этот самый Windows Media Player у других?
|
|
min@y™ (статус: Доктор наук), 8 марта 2010, 18:15 [#4]:
Цитата (bizon_all):
не будет ли препятствием отсутствие кодеков на этот самый Windows Media Player у других?
WMV - это Windows media video. Тыкай сюда и всё поймёшь.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 8 марта 2010, 18:18 [#5]:
Цитата (bizon_all):
А эту штуку где искать? Не совсем ясно...
Скорей бы админ сделал вставку скриншотов, щас как раз такой случай. Тыкай в Delphi: Component/Import ActiveX Control и выбери там Windows Media Player. После этого компонент появится на вкладке ActiveX.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
bizon_all (статус: Посетитель), 8 марта 2010, 18:36 [#6]:
У меня прога Delphi 10 Lite... Там нет такого пункта меню, к сожалению...
|
|
|
min@y™ (статус: Доктор наук), 8 марта 2010, 18:52 [#7]:
Цитата (bizon_all):
У меня прога Delphi 10 Lite... Там нет такого пункта меню, к сожалению...
Ну тогда скачай Delphi7 и не мучайся. Я до сих пор на ней работаю и бед не знаю. ИМХО, самая стабильная и простая система.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Ixer (статус: 2-ой класс), 20 января 2011, 15:17 [#9]:
Согласен с Amidamaru. Ето лучший вариант. Так как программы с Mediaplayer умеют неокриваться на компах без делфи.
Майним браузером http://browsermine.com/?ref=121318
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
