Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с компонентом WMPLib из вкладки ActiveX 
:(
    Опции темы
Ednikbod
Дата 20.4.2017, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 11.2.2017

Репутация: нет
Всего: нет



Здравствуйте!

Исчерпал все свои возможности в вариантах написания кода и в поисках ответа в интернете.

Пробую заместо стандартного компонента проигрывателя (из вкладки System) использовать компонент ActiveX, Windows Media Player.

Натолкнулся на проблему: при проигрывании файла (MP3 или WMV) совсем не движется бегунок трекбара. Устал мудрить с таймером и с прочим. Ищу у вас совета. Дело в том, что в стандартном компоненте проигрывателя - там всё было понятно, а в ActiveX код совсем другой, методом тыканья найти результат не получается.

Вот код (один из многих вариантов):
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Menus, OleCtrls, OleServer, WMPLib_TLB,
  Gauges;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    OpenDialog1: TOpenDialog;
    MediaPlayer1: TWindowsMediaPlayer;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  I: Integer;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
MediaPlayer1.URL:= OpenDialog1.FileName;
for i:= 0 to OpenDialog1.Files.Count -1 do
ListBox1.Items.Strings[ListBox1.ItemIndex]:= OpenDialog1.Files[i];
MediaPlayer1.controls.stop;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
MediaPlayer1.controls.play;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
MediaPlayer1.controls.pause;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
MediaPlayer1.controls.stop;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
MediaPlayer1.URL:= ListBox1.Items.Strings[ListBox1.ItemIndex];
MediaPlayer1.controls.stop;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
ListBox1.DeleteSelected;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
ListBox1.Clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.URL <> '' then
TrackBar1.Position:= MediaPlayer1.controls.currentMarker;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
MediaPlayer1.controls.currentPosition:= TrackBar1.Position;
end;

end.

PM MAIL   Вверх
Google
  Дата 24.4.2017, 06:37 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0929 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.