|
Вопрос # 5 308/ вопрос решён / |
|
Приветствую, уважаемые эксперты! Я пытаюсь создать вдео проигрыватель, но у меня это не очень хорошо получается. Не могу сделать так, чтобы видео воспроизводилось во весь экран. Если вы предложите какой-либо свой листинг. Буду очень благодарна.
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, Menus, OleCtrls, WMPLib_TLB;
-
- type
- TForm1 = class(TForm)
- MediaPlayer: TWindowsMediaPlayer;
- MainMenu: TMainMenu;
- N1: TMenuItem;
- N2: TMenuItem;
- N3: TMenuItem;
- N4: TMenuItem;
- OpenDialog: TOpenDialog;
- N5: TMenuItem;
- N6: TMenuItem;
- N7: TMenuItem;
- procedure N2Click(Sender: TObject);
- procedure N4Click(Sender: TObject);
- procedure N6Click(Sender: TObject);
- procedure N7Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.N2Click(Sender: TObject);
- begin
- if OpenDialog.Execute then
- MediaPlayer.URL:=OpenDialog.FileName;
- end;
-
- procedure TForm1.N4Click(Sender: TObject);
- begin
- Self.Close;
- end;
-
- procedure TForm1.N6Click(Sender: TObject);
- begin
- if MediaPlayer.PlayState=wmppsPlaying then
- MediaPlayer.Controls.Stop
- else
- MediaPlayer.Controls.Play;
- end;
-
- procedure TForm1.N7Click(Sender: TObject);
- begin
- if MediaPlayer.playState =wmppsPlaying then
- MediaPlayer.Controls.Pause;
- end;
-
- end.
 |
Вопрос задала: Валентинка (статус: Посетитель)
Вопрос отправлен: 23 мая 2011, 14:55
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 23 мая 2011, 15:36; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 23 мая 2011, 15:00 [#1]:
А что мешает развернуть форму на весь экран, убрав её заголовок и бордюры?
Form1.BorderStyle:= bsNone;
Form1.WindowState:= wsMaximized;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 23 мая 2011, 15:16 [#2]:
а можно сделать как нибудь так, чтобы само видео было во весь экран? У меня получается сам проигрыватель во весь экран, а видео маленький кусочек в центре экрана.
|
|
|
min@y™ (статус: Доктор наук), 23 мая 2011, 15:22 [#3]:
Цитата (Валентинка):
а можно сделать как нибудь так, чтобы само видео было во весь экран? У меня получается сам проигрыватель во весь экран, а видео маленький кусочек в центре экрана.
В инете куча примеров. Нагугли.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 23 мая 2011, 15:32 [#4]:
а вы не моглибы подсказать? я уже месяц пытаюсь это сделать, а у меня никак не получается
|
|
|
min@y™ (статус: Доктор наук), 23 мая 2011, 15:32 [#5]:
Ссылка.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Валентинка (статус: Посетитель), 23 мая 2011, 15:36 [#6]:
у меня точно такой же плеер, но видео воспроизводится в центре
|
|
|
min@y™ (статус: Доктор наук), 23 мая 2011, 15:36 [#7]:
А вот БОЛЬШАЯ ССЫЛКА.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
10 июня 2011, 19:09: Статус вопроса изменён на решённый (изменил автор вопроса — Валентинка)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
