Работа с классом UdxMediaPlayer. Ошибка. Directshow.

[villain10]

Написал простенький видео плеер используя Directshow и класс UdxMediaPlayer.

Я сделал следующее:

1. Подключил Directshow указав путь к папке с pas'никами.
2. Закинул файл UdxMediaPlayer.pas и dcu в C:\Program Files\Borland\Delphi7\Lib

Здесь, сделал вроде бы все правильно.

При компиляции выходит debugger с таким предупреждением:



Вот в этой строке:



Подскажите в чем проблема?

Выложу исходники и UdxMediaPlayer

[ZuBy]

procedure TForm1.MediaNotify(var Msg: Tmessage);
var
  EventCode: Integer;
  Param1, Param2: Integer;
begin
  while MediaPlayer.GetEvent(EventCode, Param1, Param2, 0) = S_OK do
  begin
    if EventCode = EC_Complete then
    begin
      MediaPlayer.Stop;
      MediaPlayer.SetPlayingPosition(0);
    end;
    inherited;
  end;
end;

[ZuBy]

а как в этом коде сделать чтобы .flv-шные файлы выводились на панель, а не на ActiveMovie Window?

[villain10]

добавил inherited, не помогло.

[ZuBy]

не может быть, у меня все норм.

[villain10]

Сообщение от ZuBy

не может быть, у меня все норм.

Странно, добавил куда надо.
Может это зависит от ОС? у меня Win7

Если не затруднит, можешь скинуть сюда исходники?)

P.S. где-то в нете видел пример как flv. файлы воспроизводить на panel к примеру. Если найду, сюда скину пример)

[ZuBy]

лови исходник

[villain10]

Спасибо, я сравнил наши исходники, ты там изменил:

{******************************************************************************}
{** Открытие нового мультимедиа файла                                        **}
{******************************************************************************}
procedure TForm1.Button1Click(Sender: TObject);
var
Volume: longint;
begin
  if OpenDialog1.Execute then
  begin
    if SUCCEEDED(MediaPlayer.Initialize(WideString(openDialog1.FileName))) then
    begin
      Caption := 'Small Media Player: ' + openDialog1.FileName;

      TrackBar1.Max := MediaPlayer.FrameCount div 100;

      MediaPlayer.RegisterEventMessage(Handle, WM_MEDIA_NOTIFY);

      MediaPlayer.SetWindowPosition(Rect(0, 0, Panel1.ClientRect.Right,
        Panel1.ClientRect.Bottom));
        
      if SUCCEEDED(MediaPlayer.GetVolume(Volume)) then
        TrackBar1.Position := 10 - Volume div 100;
    end;
end;
end;

изменил на:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    if SUCCEEDED(MediaPlayer.Initialize(WideString(openDialog1.FileName))) then
    begin
      Caption := 'Small Media Player: ' + openDialog1.FileName;

      TrackBar1.Max := MediaPlayer.FrameCount div 100;
      TrackBar1.Position := 0;

      MediaPlayer.RegisterEventMessage(Handle, WM_MEDIA_NOTIFY);

      MediaPlayer.SetWindowPosition(Rect(0, 0, Panel1.ClientRect.Right,
        Panel1.ClientRect.Bottom));

      MediaPlayer.SetVolume(TrackBar2.Position * 1000);

     { hnd := FindWindow('VideoRenderer', 'ActiveMovie Window');
      if hnd > 0 then
        ShowMessage('find'); }
        
      MediaPlayer.Play;
    end;
  end;
end;

Я сделал так же, но все ровно, у меня при компиляции дебагер выходит. Какая у тебя ось?

[ZuBy]

проверял на xp sp3

[villain10]

Сообщение от ZuBy

проверял на xp sp3

Решил заново написать все, скопировал ваш код, все заработало. Единственное, я добавил компонент Xpmanifiest)))