Mediaplayer Firemonkey

[Sir Rufo]

Nur der Vollständigkeit halber, wie man das plattformübergreifend aufbauen sollte:

• Ziel:
  
  Delphi-Quellcode:

  unit dp_186753.Forms.MainForm;
  
  interface
  
  uses
    System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
    FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media,
    FMX.Controls.Presentation, FMX.StdCtrls;
  
  type
    TMainForm = class( TForm )
      MediaPlayer1: TMediaPlayer;
      MediaPlayerControl1: TMediaPlayerControl;
      Button1: TButton;
      procedure Button1Click( Sender: TObject );
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
    end;
  
  var
    MainForm: TMainForm;
  
  implementation
  
  {$R *.fmx}
  
  uses
    FMX.Media.Helpers; // 1 unit einbinden
  
  procedure TMainForm.Button1Click( Sender: TObject );
  begin
    MediaPlayerControl1.Stretch; // stretch aufrufen
  end;
  
  end.

• Umsetzung
  
  Delphi-Quellcode:

  unit FMX.Media.Helpers;
  
  // Hier wird das Routing für die unterschiedlichen Plattformen erledigt
  
  interface
  
  uses
    FMX.Media;
  
  type
    TMediaPlayerControlHelper = class helper for TMediaPlayerControl
    public
      procedure Stretch;
    end;
  
    TMediaPlayerHelper = class helper for TMediaPlayer
    public
      procedure Stretch;
    end;
  
    TMediaHelper = class helper for TMedia
    public
      procedure Stretch;
    end;
  
  implementation
  
  uses
    FMX.Consts
  {$IFDEF MSWINDOWS}
      , FMX.Media.Win, FMX.Media.Win.Helpers
  {$ENDIF}
  {$IFDEF MACOS}
      , FMX.Media.AVFoundation
  {$IFDEF IOS}
      , FMX.Media.iOS // , FMX.Media.iOS.Helpers { TODO }
  {$ELSE}
      , FMX.Media.Mac // , FMX.Media.Mac.Helpers { TODO }
  {$ENDIF}
  {$ENDIF}
  {$IFDEF ANDROID}
      , FMX.Media.Android // , FMX.Media.Android.Helpers { TODO }
  {$ENDIF ANDROID}
      ;
  
  { TMediaHelper }
  
  procedure TMediaHelper.Stretch;
  begin
  {$IFDEF MSWINDOWS}
    // Windows
    if Self is TWindowsMedia
    then
      TWindowsMedia( Self ).Stretch;
  {$ENDIF}
  {$IFDEF MACOS}
  {$IFDEF IOS}
    // iOS
  {$ELSE}
    // OSX
  {$ENDIF}
  {$ENDIF}
  {$IFDEF ANDROID}
    // Android
  {$ENDIF ANDROID}
  end;
  
  { TMediaPlayerHelper }
  
  procedure TMediaPlayerHelper.Stretch;
  begin
    if Assigned( Media ) and ( State = TMediaState.Playing )
    then
      Media.Stretch;
  end;
  
  { TMediaPlayerControlHelper }
  
  procedure TMediaPlayerControlHelper.Stretch;
  begin
    if Assigned( MediaPlayer )
    then
      MediaPlayer.Stretch;
  end;
  
  end.

  Delphi-Quellcode:

  unit FMX.Media.Win.Helpers;
  
  interface
  
  uses
    FMX.Media,
    FMX.Media.Win;
  
  type
    TWindowsMediaHelper = class helper for TWindowsMedia
      procedure Stretch;
    end;
  
  implementation
  
  uses
    FMX.Controls,
    FMX.Forms,
    FMX.Platform.Win,
    FMX.Types,
    System.Classes,
    System.Types,
    Winapi.DirectShow9,
    Winapi.Windows;
  
  { TWindowsMediaHelper }
  
  procedure TWindowsMediaHelper.Stretch;
  var
  
    P     : TPointF;
    R     : TRect;
    Bounds: TRectF;
    Form  : TCommonCustomForm;
    // this is just an updated version of TRecF.Fit to support scaling up
    function MyRectFit( var R: TRectF; const BoundsRect: TRectF ): Single;
    var
      ratio: Single;
    begin
      Result := 1;
      if BoundsRect.Width * BoundsRect.Height = 0
      then
        Exit;
      if ( R.Width / BoundsRect.Width ) > ( R.Height / BoundsRect.Height )
      then
        ratio := R.Width / BoundsRect.Width
      else
        ratio := R.Height / BoundsRect.Height;
      // UPDATED
      R      := RectF( 0, 0, R.Width / ratio, R.Height / ratio );
      Result := ratio;
      RectCenter( R, BoundsRect );
    end;
  
  var
    leFWnd                 : HWND;
    leControl              : TControl;
    leFVMRWindowlessControl: IVMRWindowlessControl9;
  begin
    leFWnd                  := Self.FWnd;
    leControl               := TControl( FControl );
    leFVMRWindowlessControl := Self.FVMRWindowlessControl;
  
    if leFWnd <> 0
    then
      begin
        if ( leControl <> nil ) and not( csDesigning in Control.ComponentState ) and ( Control.ParentedVisible ) and ( Control.Root <> nil ) and
          ( Control.Root.GetObject is TCommonCustomForm )
        then
          begin
            Form   := TCommonCustomForm( Control.Root.GetObject );
            P      := Self.GetVideoSize;
            Bounds := TRectF.Create( 0, 0, P.X, P.Y );
            // UPDATED: Bounds.Fit(RectF(0, 0, Control.AbsoluteWidth, Control.AbsoluteHeight));
            MyRectFit( Bounds, RectF( 0, 0, Control.AbsoluteWidth, Control.AbsoluteHeight ) );
            Bounds.Offset( Control.AbsoluteRect.Left, Control.AbsoluteRect.Top );
            SetParent( leFWnd, FmxHandleToHWND( Form.Handle ) );
            SetWindowPos( leFWnd, 0, Bounds.Round.Left, Bounds.Round.Top, Bounds.Round.Width,
              Bounds.Round.Height, 0 );
            R.Create( 0, 0, Bounds.Round.Width, Bounds.Round.Height );
            if leFVMRWindowlessControl <> nil
            then
              leFVMRWindowlessControl.SetVideoPosition( nil, @R );
            ShowWindow( leFWnd, SW_SHOW )
          end
        else
          ShowWindow( leFWnd, SW_HIDE )
      end;
  end;
  
  end.

[holgerderchsler]

So habe mal den Quellcode, wie es hathor geschrieben hat umgesetzt. Die unit mediaPlayerStretchFix; //20150927 eingebunden und tatsächlich, eine neue Funktion stretch steht bereit. Ich habe den MediaControl auf Client gestellt, aber leider wird das Bild nicht grösser.

Wo habe ich was falsch gemacht oder übersehen?

Liebe Grüsse

Holger

[hathor]

Ohne Sourcecode kann man nicht einmal raten...

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
if (MediaPlayer1.State = TMediaState.Playing) then
TWindowsMedia (Mediaplayer1.Media).stretch;
end;

Nichts vergessen?

[holgerderchsler]

Alles klar.

Delphi Quellcode

Delphi-Quellcode:

unit unitmedia;
interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Media.Win,
  FMX.Controls.Presentation, FMX.StdCtrls,mediaPLayerStretchFix,
  FMX.Media, FMX.Objects;

type
  Tplayer = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    MediaPlayerControl1: TMediaPlayerControl;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure OpenDialog1Close(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  player: Tplayer;

implementation

{$R *.fmx}

procedure Tplayer.Button1Click(Sender: TObject);
var pfad: String;
begin
     pfad := 'D:\PROGRAMME\SEHTEST mit externen Bildern V3\Win32\Debug\Filme\';
     OpenDialog1.InitialDir := pfad;
     OpenDialog1.Execute;
end;

procedure Tplayer.Button2Click(Sender: TObject);
begin
  MediaPlayer1.Play;
end;

procedure Tplayer.Button3Click(Sender: TObject);
begin
  MediaPlayer1.Stop;
end;

procedure Tplayer.Button4Click(Sender: TObject);
begin
     if (MediaPlayer1.State = TMediaState.Playing) then
     begin
      TWindowsMedia(MediaPlayer1).stretch;
     end;

end;

procedure Tplayer.OpenDialog1Close(Sender: TObject);
begin
    MediaPlayer1.FileName := OpenDialog1.FileName;
end;

end.

die unit mediaPLayerStretchFix habe ich genau so eingegeben, wie von Dir geschrieben.





Wäre denn ein OleContainer für einen externen Player auch möglich, so wie der vcl player ?


Liebe Grüsse Holger

[hathor]

Du solltest den Code in Resize aufrufen:

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
if (MediaPlayer1.State = TMediaState.Playing) then
TWindowsMedia (Mediaplayer1.Media).stretch;
end;

Sei NICHT so stur - mit dem Button macht das keinen Sinn!

Wenn Du es UNBEDINGT mit dem Button machen willst:
Lösche den OnResize-Eintrag und mache es so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
FormResize(Self);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
if (MediaPlayer1.State = TMediaState.Playing) then
TWindowsMedia (Mediaplayer1.Media).stretch;
end;

[holgerderchsler]

Keine Ahnung, wie Du darauf kommst, ich sei stur, aber egal...
Ich habe das jetzt in Resize eingegeben, der Button war ja zunächst als Versuchsobjekt gedacht, später sollte das automatisch laufen auch egal..
Leider bleibt das Bild in der Ausgangsgrösse..

Liebe Grüsse Holger

[hathor]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
   MediaPlayer1.FileName:= OpenDialog1.Filename;
   MediaPlayer1.Play;
   FormResize(Self);
end;

[mkinzler]

Besser

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  begin
    MediaPlayer1.FileName:= OpenDialog1.Filename;
    MediaPlayer1.Play;
    FormResize(Self);
  end;
end;

Sonst wird ein Teil des Codes auch ausgehührt wenn der Dialog abgebrochen wird.

[hathor]

Typisch "Flüchtigkeitsfehler". Alles klar, danke!

[mkinzler]

Zitat von hathor:

Typisch "Flüchtigkeitsfehler". Alles klar, danke!

Das habe ich mir gedacht.