[gelöst] Video abspielen

[juelin]

Hallo,
ich habe Lazarus 4.2 mit FPC 3.2.2 auf Windows 11.
Nicht böse sein, ich weiss diese Frage ist bestimmt schon 1000mal gestellt worden.
Ich habe auch das Forum durchsucht, aber nix brauchbares gefunden.
Also nochmal entschuldigung fürs nerven.
In meinem Programm spiele ich schon Audiofiles mit der Komponente
MPlayerControl (aus den Online Packages) ab.
Das funktioniert auch ganz gut und man kann auch zwischendrin wieder stoppen.
Nun wollte ich auch Videos (mp4 und wmv) abspielen.
Aber das klappt nicht mit dem MPlayerControl bei mir.
Weis Jemand was man da im MPlayerControl einstellen muss
oder muss ich ganz was anderes benutzen? (Wenn Ja dann was).
Vielleicht habe ich auch das Falsche im MPlayerControl1.MPlayerPath drin.
MPlayerControl1.MPlayerPath:='C:\Program Files (x86)\Windows Media Player\wmplayer.exe';

Danke für Eure Mühe.
Gruß
Jürgen

[Joh]

Moin Jürgen,

wie wäre es mit dem vlc-Player?
Unter https://wiki.videolan.org/LibVLC/ steht dazu was...

der Windows Media Player ist doch eh nur Mist.

[charlytango]

https://github.com/paweld/PasLibVlc

und erfreulicherweise scheint paweld der aktuelle maintainer zu sein, was es leicht macht an Hilfe zu kommen

[af0815]

Video geht unter Windows mit DirectShow oder GStreamer (da bin ich gerade dran). Das setzt beides sehr native auf, erfordert aber eine entsprechende Lernkurve.

Mit diesen Zwischenschichten wie mplayer oder VLC, kann man Ergebnisse erhalten, ob die dann mit seinen Bedürfnissen zusammen stimmt muß jeder für sich feststellen. Ich habe zuviele Einschränkungen gehabt.

[Mathias]

Nun wollte ich auch Videos (mp4 und wmv) abspielen.

Wen es ganz einfach gehen soll, mit mciSendStringA.

Code: Alles auswählen

uses
  Windows;

  function mciSendStringA(lpstrCommand: pansichar; lpstrReturnString: pansichar; uReturnLength: UINT; hwndCallback: HWND): cardinal; stdcall; external 'winmm.dll';

var
  command: ansistring;
begin
  mciSendStringA('close mp3', nil, 0, 0);

//  command := 'open "test.mp3" type mpegvideo alias mp3';
  command := 'open "WNDSURF1.AVI" type avivideo alias movie';

  mciSendStringA(pansichar(command), nil, 0, 0);

//  mciSendStringA('play mp3', nil, 0, 0);
  mciSendStringA('play movie', nil, 0, 0);

  WriteLn('<Enter> = Beenden...');
  ReadLn;

//  mciSendStringA('close mp3', nil, 0, 0);
  mciSendStringA('close movie', nil, 0, 0);
end.

Mit dem ausgeklammerten Teil, kann man auch Audio abspielen.

[juelin]

Hallo,
an alle die sich Mühe gegeben haben und mir helfen wollten.
Ich habe es selber raus gefunden.
In meinem MPlayerControl für Audio habe ich den mplayer.exe benutzt.
Der funktioniert natürlich nicht für Video.
Für Video muss man den smplayer.exe nehmen.
So das war es.
Danke nochmal
und Gruß
Jürgen

[paweld]

https://github.com/paweld/PasLibVlc

und erfreulicherweise scheint paweld der aktuelle maintainer zu sein, was es leicht macht an Hilfe zu kommen

Robert Jędrzejczyk ist weiterhin der Betreuer: http://prog.olsztyn.pl/paslibvlc .
Ich habe lediglich Änderungen hinzugefügt, die den Betrieb auf RPi ermöglichen.

[wp_xyz]

Wie gut ist eigentlich die Version verwendbar, die Lazarus/FPC beiliegt (Lazarus: components/vlc; FPC: packages/libvlc), oder ist die mal wieder mangels Maintainer hoffnungslos veraltet?

[Mathias]

Wie gut ist eigentlich die Version verwendbar, die Lazarus/FPC beiliegt (Lazarus: components/vlc; FPC: packages/libvlc), oder ist die mal wieder mangels Maintainer hoffnungslos veraltet?

Ich denke es ist auch veraltet, wie die restlichen Bindungen auch.
Dies hier steht im procedure Kopf

Code: Alles auswählen

    Copyright (c) 2012 by Michael Van Canneyt

[Mathias]

Ich habe heute eine neue Bindung für libvlc gemacht.

https://github.com/sechshelme/Lazarus-G ... ckages/vlc

Es könnte sein, das sich der Pfad ändert, aber man kann ja einfach nach vlc suchen.

[six1]

Hallo,
an alle die sich Mühe gegeben haben und mir helfen wollten.
Ich habe es selber raus gefunden.
In meinem MPlayerControl für Audio habe ich den mplayer.exe benutzt.
Der funktioniert natürlich nicht für Video.
Für Video muss man den smplayer.exe nehmen.
So das war es.
Danke nochmal
und Gruß
Jürgen

na, dass ist Quatsch...
Es gibt sogar eine MPlayer Komponente zum Abspielen von Videos....