KVideo Player

[EWeiss]

Zitat:

Wenn Du mir das nochmal Erklären könntest, da stehe ich noch voll aufm Schlauch.

ContactSheet.

Beim klick auf Play wenn kein ContactSheet existiert (oder kein Thumb geklickt wurde) öffnet sich der OpenFileDialog oder aber über den Menu Punkt "Add File".

Der ContactSheet selbst wird so erzeugt.

Sobald du im Menu den Eintrag unter Settings "Show the Movie Database" klickst öffnet sich ein OpenFolder Dialog.
Dieser fordert dich auf einen Pfad auszuwählen wo deine Movies abgelegt sind..

Bsp. c:\Filme..
Die Hierarchie ist dann folgende.

c:\Filme\1\1.avi
c:\Filme\2\2.avi usw..

Beim Start des Player wird jetzt geprüft ob im Settings "Load the Movie Database from Url" eingeschaltet ist.
Wenn das der Fall ist werden 3 Dateien aus der Database geladen wenn dort ein Film archiviert ist und die Datei TMD_data.json nicht existiert.
Also es wird nur einmal zur Database verbunden nicht bei jedem Start.

1. TMD_data.json
2. TMD_Poster.jpg
3. TMDB_backdrop.jpeg

Der Ordner sowie die Datei selbst müssen den gleichen realen Namen haben wie das Movie.
bsp.. ein realer Film
c:\Filme\Ant Man\
c:\Filme\Ant Man\Ant Man.mkv

Wenn der Film zu ende ist oder der Player neu gestartet, wird nach den 3 Dateien gesucht.
Sind diese vorhanden dann wird der Hintergrund des Player Fenster mit den TMDB_backdrop.jpeg kombiniert.
Vom TMD_Poster.jpg wird dann ein Thumbnail erstellt TMD_poster.png 128x128 dieses wird als Vorschau Bild dann im ContactSheet angezeigt.
Das umschalten und abspielen vom Sheet erfolgt erst wenn mehr als 1 Film im MoviePath vorhanden und beide zum Sheet addiert wurden.

Wenn der ContactSheet existiert dann wird beim Start das Logo TMDB angezeigt (kleiner Button neben Aspect Ratio) dieser öffnet
einen Dialog der dir mehr Auskunft über den Film gibt wenn er am spielen ist.

Das war's so im groben.
Also!

1. Nimm 2 Videos kann ein und das gleiche sein (muss aber funktionieren)
2. Benenne beide nach realen Filmen um.
3. Kopiere diese so wie oben angegeben in deinen Film Pfad.
4. Starte den Player und wähle den Pfad für deine Filme aus wo du diese hin kopiert hast.

PS:
Alle meine Einstellungen werden unter "\user\AppData\BrewIdeas\Anwendung\*.ini" erstellt bei Problemen einfach die INI Datei dort löschen.
BrewIdeas := Bürkle Rainer (Mein Mentor von ihm habe ich VB6 erlernt) + EWeiss + Ideas.. LOL

gruss

[EWeiss]

Zitat:

Doppelklick aufs Video um zwischen Fullscreen und Windowed bequem hin und her schalten zu können?

Eigentlich ganz einfach.

Setze die
procedure ToogleFullScreen;
in uMain Global

addiere in der MovieProc (uControls)

Delphi-Quellcode:

    WM_LBUTTONDBLCLK:
      ToggleFullScreen;

das war's

Es gibt allerdings auch

VK_F2: FullScreen
VK_ESCAPE: not FullScreen
P: Show Overlay Time
R: Aspekt Ratio
T: Subtitle Config
VK_SHIFT: Zoom mit Wheel

gruss

[KodeZwerg]

Danke für Erklärungen. Ich werde beide mir als Text abspeichern. So bald ich eine bessere Delphi Version habe werde ich Deinen Code Vorschlag umsetzen, also auch Danke für Anleitung was wie wo zu machen wäre!
Hotkeys yeah, wusste ich bis jetzt auch noch nicht, ich bin mehr der faule clickerguy der gerne Tastatur beseite schubst und am liebsten nicht mal mit Maus irgendwo hinzielen mag.

[EWeiss]

Habe noch ein kleines Problem gefunden..
In uMain muss dieser Punkt noch addiert werden sonst wird der letzte Status in der INI nicht gesetzt.

Delphi-Quellcode:

      // Menu Option füllen
      Option.OptionList := TStringList.create;
      Option.OptionList.Add('Show Playback Position');
      Option.OptionList.Add('Resize Video Window');
      Option.OptionList.Add('Show The Movie Data Base');
      Option.OptionList.Add('Load The Movie Data Base from URL');
      Option.OptionList.Add('Use MediaInfo Overlay'); // <<< addieren (function WinMain)

gruss

[EWeiss]

64Bit Version..

Setzt logischerweise voraus das die Filter und madVr in 64Bit Versionen vorliegen das betrifft auch die anderen Abhängigkeiten MediaInfo usw..
Das Skin Archiv wird ebenfalls dafür benötigt.

gruss

[EWeiss]

Neue 64 Bit Version..

gruss

[KodeZwerg]

Ich habe mir endlich nen Fun-Rechner zusammen geschraubt auf dem Delphi CE samt Windows 10 (1803) nur noch 64bit Dinge bekommen, morgen/übermorgen sollte alles fertig sein, dann teste ich liebend gerne all Deine 64bit Portierungen mal durch, pö a pö.

Danke auf jeden Fall fürs Am Ball bleiben trotz Deiner Ablehnung von Windows 10, das finde ich echt bemerkenswert und Super von Dir!