Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.03.2009, 21:35   #1
2009
Пользователь
 
Регистрация: 01.03.2009
Сообщений: 31
По умолчанию разработка медиаплеера

При разработки медиаплеера с помощью компонента MediaPlayer столкнулся с несколькими проблемами:

1. Низнаю как сделать всплывающее меню, в котором будут записаны названия avi-клипов. При выборе строки из меню соответствующий клип должен загружаться и исполняться.

2. Добавил часы текущего времени, не знаю что прописать что бы выводился день недели ну, например "Ср" или "Чт" и т.д.

3. Как сделать добавление или уменьшение громкости.

4. Что надо прописать, что бы было видно, сколько длится фильм, сколько прошло минут фильма, и сколько осталось до конца фильма.


P.S. Извиняюсь, что создаю тему, которую уже ни один раз обговаривали, но ответов на свои вопросы не нашел.
2009 вне форума Ответить с цитированием
Старый 27.03.2009, 00:09   #2
Niarb
Пользователь
 
Регистрация: 23.02.2009
Сообщений: 38
По умолчанию

к пункту 1:
...из данного примера думаю будет ясно как создавать пункты меню и в дальнейшем их обрабатывать
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    procedure FormCreate(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure MenuItemClick(sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  FileList: TStringList;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   // создание списка файлов
   FileList:=TStringList.Create;
   FileList.Add('c:\1.avi');
   FileList.Add('c:\2.avi');
end;

procedure TForm1.MenuItemClick(sender: TObject);
begin
   if Sender is TMenuItem then begin
      showMessage(FileList.Strings[(sender as TMenuItem).tag]);
      // запуск файла... реализуешь сам
   end;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var mi: TmenuItem;
    i: integer;
begin
   PopupMenu1.Items.Clear;
   // создание пунктов меню
   for i:=0 to FileList.Count-1 do begin
      mi:=TMenuItem.Create(PopupMenu1);
      // назначение обработчика нажатия на данный пункт меню
      mi.OnClick:=MenuItemClick;
      mi.Tag:=i;
      mi.Caption:='File '+intToStr(i+1);
      PopupMenu1.Items.Add(mi);
   end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   FileList.Free;
end;

end.
...
к пункту 2:
Код:
FormatDateTime('dd:mm:yyyy:dddd',Now)
к пункту 3
...попробуй изменять системный звук - самый простой способ - изменить уровень громкости выходного устройства
Код:
uses MMSystem
...
waveOutSetVolume(0,$FFFFFFFF); //- звук на максимум
waveOutSetVolume(0,$0); //- звук минимум
...
Чем меньше вы знаете, тем больше я ценен как специалист...
Niarb вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Плей лист для медиаплеера S.T.A.L.K.E.R. Мультимедиа в Delphi 7 16.12.2010 20:15
Помогите с написанием программы-медиаплеера на Delphi (Вывод видео на форму) ЕКА Помощь студентам 5 12.07.2010 14:58
Проблемы при написании медиаплеера под Линукс. Прошу совета hyperworker Мультимедиа в Delphi 2 28.03.2009 14:17
Разработка PlugIn BOBAH13 Общие вопросы Delphi 12 09.02.2008 17:37