Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

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

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

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


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

к пункту 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


18:15.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru