LibVLC - VLC in Delphi nutzen

[chaosben]

Ja, ich habs nur unter Windows probiert. Unter Linux sollte libvlc_media_player_set_xwindow das Mittel der Wahl sein ... eigentlich

[kaka77]

hi,

das sieht alles sehr nett aus...
nur leider krieg ich dein bsp-programm nochnichmal zum laufen...
habe mir dann die neuste vlc versien geholt und alles so kopiert, wie beschrieben

hast du einen rat??


ps: fehlermeldung siehe anhang

[mleyen]

Hi,
versuchs mal mit der alten Version 1.0.5.
Diese hat bei mir funktioniert und auf die schnelle wurde die lib noch nicht auf die neue Version angepasst.

[kaka77]

danke für die schnelle antwort!

ach, und is das normal, dass es beim abspielen ruckelt...hmmm

hat jemand noch einen tipp, wie ich eine url abspielen kann, ohne dass die datei vorher vollständig geladen wird?? also der vlc player kann den stream auch gleich wiedergeben... wie kann ich das einbinden

...immer dankbar für jede hilfe

[mleyen]

Zitat von kaka77:

ach, und is das normal, dass es beim abspielen ruckelt...hmmm

Das kommt imho voll und ganz auf den benutzten PC bzw. die Streaminggeschwindigkeit an und hat nix mit der lib zu tun.

Zur direkten Streamwiedergabe kann ich nichts sagen.

[xZise]

Zitat von kaka77:

[...]hat jemand noch einen tipp, wie ich eine url abspielen kann, ohne dass die datei vorher vollständig geladen wird?? also der vlc player kann den stream auch gleich wiedergeben... wie kann ich das einbinden[...]

Moin,
ich weiß nicht was die Lib kann. Aber eventuell als Netzwerkadresse öffnen?

MfG
Fabian

[daheld]

Herzlichen Dank!

Könnte mir jmd von euch sagen, wie ich ein Mouseover-Event triggere?
Würde die Trackbar gern verstecken und nur bei Mausbewegungen und Tastaturanschlägen wieder anzeigen, Events des Panels funktionieren aber (wohl dank ActiveX) nicht und FLib scheint keine Events vorzusehen...

Danke euch!!!

[rolwa]

Hallo , der Beitrag ist zwar schon etwas älter, aber ich suche hierfür immer noch eine Lösung.

Ich habe Delphi 7.0 und würde gerne folgendes machen :

* Ansicht eines Videos (wmv ). Delphi Media Player tuts leider nicht.
* Möglichkeit auf gewisse Position des Videos zu springen.

Weshalb. Ich brauche eine Kontrollmöglichkeit für einen Video-Abschnitt. Ich habe die Zeit vom
Start und würde das video von dort anschauen. Also im Prinip habe ich eine Reihe von Mess-zeiten und genau nur dort will ich jeweils die Sequenz sehen.
Hierzu hätte ich gerne VLC genommen ( aus Delphi heraus ) aber das Beispiel tut bei mir leider nicht. Ich habe momentan VLC version 2.0.4 -- aber ob dies das Problem ist ?
Auf jeden FAll wird nichts angezeigt !
Eventuell wäre eine Gesamt lauffähiges ZIP Paket hilfreich um dann zu testen ob es überhaupt
sinnvoll ist diesen Weg zu verfolgen.

[hathor]

Neue Version 2.2.0 vom 2015-02-28

http://prog.olsztyn.pl/paslibvlc/

Natürlich braucht man auch die aktuellen DLLs von hier:
https://get.videolan.org/vlc/2.2.0/w....2.0-win32.exe

Im Anhang ist eine vereinfachte Demo zum Testen, ob man die richtigen
DLLs hat - Source und EXE.

[hathor]

Mit folgendem Code kann man feststellen, ob man die richtige Version von VLC installiert hat:

Delphi-Quellcode:

function VLC_GetLibPath: String;
var
  Handle:HKEY;
  RegType:integer;
  DataSize :integer;
  str1, str2, str3 : String;
begin
  Result := '';
  if (RegOpenKeyEx(HKEY_LOCAL_MACHINE,'Software\Wow6432Node\VideoLAN\VLC',0,KEY_READ,Handle)=
      ERROR_SUCCESS) then begin

    if RegQueryValueEx(Handle,'InstallDir',nil,@RegType,nil,@DataSize)=ERROR_SUCCESS then begin
      SetLength(Result,Datasize div 2);
      RegQueryValueEx(Handle,'InstallDir',nil,@RegType,PByte(@Result[1]),@DataSize);
      Result[DataSize div 2]:='\';
      str1:= Result;
      end;

    if RegQueryValueEx(Handle,'Version',nil,@RegType,nil,@DataSize)=ERROR_SUCCESS then begin
      SetLength(Result,Datasize div 2);
      RegQueryValueEx(Handle,'Version',nil,@RegType,PByte(@Result[1]),@DataSize);
      Result[DataSize div 2]:=' '; // :='SPACE'; 
      str2:= Result;
      end;

    str3:= 'InstallDir: '+ str1 + ' - Version: '+ str2;
    Result:= str3;
    RegCloseKey(Handle);
  end;
end;