Mediaplayer Firemonkey

[holgerderchsler]

Hallo und einen schönen Tag.

Ich habe in meiner plattformübergreifenden Anwendung einen Mediaplayer integriert. Nun wollte ich das Bild auf dem ganzen Bildschirm darstellen, finde aber keine Möglichkeit dies zu tun. Der Mediaplayer und auch das notwendige MediaplayerControl bieten weder eine Skalierung noch Zoomfunktionen an. Hat da eventuell jemand eine Idee?

Liebe Grüsse

Holger

[Perlsau]

Du kannst aber doch die Properties Width und Height der Komponente an deinen Bildschirm anpassen, oder etwa nicht?

[holgerderchsler]

Ja, die Eigenschaften kann ich schon ändern, aber das Bild bleibt immer gleich gross oder besser klein.

[Harry Stahl]

Ich kenne da leider auch keine Standardmöglichkeit. Es wird maximal die Größe des Videos ausgegeben. Das Bild des Videos wird direkt auf den Screen gerendert, daher helfen alle Umgehungsversuche nicht (z.B. die Mediaplayer-Komponente in ein Scaled-Layout zu legen und dieses zu skalieren).

Für Windows wird die Videoplayer-Funktion in FMX.Media.Win implementiert, die Ausgabegröße des Fensters dort in der procedure "UpdateMediaFromControl" festgelegt. Hier könntest Du evtl. eigene Anpassungen machen (z.B. statt "Bounds.Fit", die Größe des Monitors als Grundlage eines Ausgabe-Rects verwenden).

Du müsstest da natürlich alles selber berechnen, damit die Ausgabe des Bildes die richtige Vergrößerung hat und mit den entsprechenden Offests richtig in das Ausgabefenster reingeht, aber das sollte machbar sein.

Du könntest hier entweder eine eigene Ableitung der Komponente machen, oder eine Kopie der FMX.Media.Win.pas in Dein Projektverzeichnis legen und dort die entsprechenden Änderungen in der Datei vornehmen.

[holgerderchsler]

Erst mal Danke und schön, dass ich nichts einfaches übersehen habe. Das klingt einleuchtend. Ich könnte mir allerdings vorstellen, dass ich nicht der erste bin, der dieses Problem. Eine Komponente direkt gibt es wohl nicht?

Gruss Holger

[hathor]

Da gibt es was:

Delphi-Quellcode:

uses ... FMX.Media.Win,..., mediaPlayerStretchFix;

procedure TfrmMain.Button2Click(Sender: TObject);
var mp: TWindowsMedia;
   filename : String;
begin
filename:= 'F:\_ForExportOnly\SDXC64\TEST6.mp4'; // DEIN Videofile !
  mp:= TWindowsMedia.create(filename);
  mp.Control:= MediaPlayerControl1; 
  mp.Play;
  mp.Stretch; // <--------------
end;

---------------------

Delphi-Quellcode:

unit mediaPlayerStretchFix;  //20150927

interface

uses  Winapi.Windows, FMX.Platform.Win, FMX.Media.Win, FMX.Forms, System.Types,
      FMX.controls, System.Classes, Directshow9;

type

  TMediaPlayerTurbo = class helper for TWindowsMedia
  private
    function getFWnd: HWND;
    function getFControl: TControl;
    function getVMRWC: IVMRWindowlessControl9;
    property leFWnd:HWND read getFWnd;
    property leControl:TControl read getFControl;
    property leFVMRWindowlessControl:IVMRWindowlessControl9 read getVMRWC;
  public
    procedure Stretch;
  end;

implementation

procedure TMediaPlayerTurbo.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;

begin
  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;

function TMediaPlayerTurbo.getFControl: TControl;
begin result:=TControl(fCOntrol); end;

function TMediaPlayerTurbo.getFWnd: HWND;
begin result:=self.fWnd; end;

function TMediaPlayerTurbo.getVMRWC: IVMRWindowlessControl9;
begin result:=self.FVMRWindowlessControl; end;

end.

[Harry Stahl]

Ja klar, Classhelper geht natürlich auch (oft).

Hier nur 3 kurze Anmerkungen:

1. Man muss nicht unbedingt ein eigenes Media-Objekt erzeugen. Man kann die ergänzte Funktion auch bei den üblicherweise verwendeten Komponenten mit

TWindowsMedia (Mediaplayer1.Media).stretch; aufrufen.

2. Das ist natürlich nur eine Lösung für Windows, wollte man eine Plattform-übergreifende Lösung, müsste man auch Classhelper für FMX.Media.Mac.pas, FMX.Media.iOS.pas und FMX.Media.Android.pas erstellen.

3. Gut wäre auch, man macht einen Feature-Request und regt beim Quality-Portal an, eine entsprechende Erweiterung in die bestehende Komponente einzubauen.

[mkinzler]

http://www.fmxexpress.com/record-pla...droid-and-ios/

[hathor]

Zitat von Harry Stahl:

Man kann die ergänzte Funktion auch bei den üblicherweise verwendeten Komponenten mit

TWindowsMedia (Mediaplayer1.Media).stretch; aufrufen.

Ja, das funktioniert sehr gut:

Delphi-Quellcode:

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

[holgerderchsler]

Super, viele Ideen. werde heute Abend am PC die tollen Ideen probieren umzusetzen, sage euch dann, wie es gelaufen ist.

Liebe Grüsse und vielen Dank.

Holger