Schon wieder Video(mpg) und Mediaplayer

[winkel57]

Moin aus dem Norden!
bin neu hier und habe ca. zwei Tage gesucht - viele Beiträge gefunden aber bei mir funzt das nicht.

Zwei Fragen:
1. Ein MPG soll abgespielt werden und ich habe es über Display einer Form zugeordnet. Klappt, aber auch wenn ich mit

DisplayRect := Form.BoundsRect;

die Größe zuweise wird das Video nicht skaliert. habe alles mit AutoSize, etc. probiert.
Hat jemand eine Idee? Habe es auch schon mit der Animate Komponente probiert - klappt bei mir nicht.

2. Die Form, die das Video abspielt soll auf meinem zweiten Monitor ausgegeben werden, hmm...

Ach. bitte keinen Tipp für die DSPack Komponente, die bekomme ich aus Gründen meiner nicht ausreichenden Intelligenz leider nicht installiert :-D

Vielen Dank für Hilfe

Detlef

[loetmann]

Hallo,

für 2. hätte ich 2 Lösungsvorschläge.
Ich habe mir einen player gebaut der das Bild auf dem 2. Monitor ausgibt, dazu muß der Rechner natürlich über 2 Monitore laufen, z.B. beide mit 800x600er Auflösung. Im Projekt habe ich zwei Formulare auf einem die Steuerung auf dem zweiten die WindowsMedia-Komponente(über ActiveX eingebunden unter Delphi3) (auf 800x600 aufgezogen). Wenn das Programm startet schiebe ich das 2.Formular zum 2. Monitor (beide sind in Windows nebeneinander) und habe so die Ausgabe auf dem einen und die Steuerung auf dem anderen Monitor.

Der zweite Lösungsvorschlag: ich kann bei meinen Grafikkarte (ati) einstellen das alle Videosignale auf dem 2. Monitor ausgegeben werden. D.h. wenn sich der Player & anzeigescreen von einem Videoplayer auf dem 1.Monitor befindet wird das Bild immer auf dem 2. Monitor ausgegeben.

zu 1. zum nachträglichen Scalieren habe ich auch noch keine Lösung gefunden, nur im FormCreate kann der Player z.B. WMP1.Width:=400; verändert werden, später nicht mehr. Ich habe da auch schon einges probiert (visible=false, repaint, etc.)...

Wenn Du den WindowsMediaPlayer einbindest kannst Du alle installierte Video/Audioformate abspielen (mpeg, mp3, divx, ...).

viel Erfolg.

[winkel57]

Hi,

vielen Dank für die Tipps - komme da irgendwie nicht weiter - aber dann klappte es mit folgenden Befehl:

Left := Screen.Monitors[1].Left;
Top := Screen.Monitors[1].Top;
Width := Screen.Monitors[1].Width;
Height := Screen.Monitors[1].Height;

Aber ich habe Probleme da mein Overlay nicht immer so funktioniert.
Man hat ja so viele Möglichkeiten was falsch zu machen.

Grafikkarte (ATI) Bidschirm 1 und 2 zuordnen
Dann den Primären festlegen (kann 1 oder 2 sein)
Dann das Script siehe oben. Keine Ahnung auf was sich die Nummer bezieht - ob auf Primär = 0 oder die Nummer des Bildschirmes wie von der Grafikkarte vergeben
Bei mir klappt es nun meistens mit der 1 als Primärer, auf der auch das Overlay zu sehen ist.

Allerdings verschwindet bei 800 x 600 nun mein Overlay ;o)

Einen schönen Sonntag noch

Detlef

[loetmann]

Guten morgen,

hmm, Screen.Monitors kennt meine Delphiversion nicht, nur Screen.

Bei mir ist es der sekundäre Monitor wo ich das Videobild darstelle (hat das Häkchen Windowsdesktop erweitern).
Das Overlay funktioniert bei beiden Monitoren- wenn ich eine TV-Anwendung von einem ins andere Fenster verschiebe, sehe ich das. Das Overlay schaltet sich auf dem halben Weg um, wenn das Fenster von Moni1 nach Moni2 verschoben wird.

Kommt den ein Bild wenn Du die form etwas kleiner machst?

Benutzt Du den Windowsmedienplayer (über activeX) der den Medienplayer (TMediaPlayer)? Ich habe den über Windowsmedienplayer ActiveX eingebunden (momentan 10er Version)-Menü: "Komponente"->"ActiveX importieren".

hmm, ich weiß jetzt auch nicht weiter...

Ein Gruß
LM

[winkel57]

Guten Abend,

hej, das mit dem Overlay klappt bei mir nicht, nur bei dem Primären. Aber das mit dem Windowsmedienplayer ActiveX ist mir neu und probiere es sofort aus!

Danke schon einmal. das macht Hoffnung ;o)

Detlef

[winkel57]

Zu früh geantwortet...

Jetzt wollte ich Windowsmedienplayer ActiveX mal installieren aber ich habe das Package nicht. Weiss das jemand? Ich bin da ein wenig unbedarft.

Detlef