Video in Delphi einbinden?

[DiKay90]

Hallo,

Ich hab mal ne Frage...
Ich will für meiner Freundin was kleines zum geburtstag programmieren, was ich ihr anschließend auf CD brenne.
Ich wollte dann auf meiner Form ein Mediplayer anlegen, mit einem Panel als BIldschrim fürs Video.

Und wenn ich dann ein Video einfügen will (bei Pfad aussuchen...) dann geht das zwar, aber das Problem is, sobald ich den Ordner oder das Video verschiebe findet er es dann ja logischerweise nicht mehr.


Also würd ich gern wissen, ob man das Video irgendwie anders mit einbinden kann (in die Unit oder exe oder irgendwo), sodass es funktionier, wenn ich den Projektorner auf eine CD brenne.

Ich würde mich sehr über eure Lösungsvorschläge freuen. :?: :?: :?:

[DeddyH]

Hallo und Willkommen in der DP :dp:,
das Einfachste dürfte sein, das Video in einen Unterordner Deines Projekts zu kopieren und von dort zu starten. Nennen wir den Ordner mal "Media" und die Datei heiße "Film.avi". Dann könntest Du sie über

Delphi-Quellcode:

Mediaplayer.Filename := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'Media\Film.avi';

ganz einfach zuweisen, solange die Datei unter diesem Namen in diesem Ordner existiert.

[DiKay90]

Hey, Dankeschön... es funktioniert! :mrgreen:
:dancer: :dp: :dp: :dp: :dp: :dp: :dp: :dp: :dp: :dp:

[littleDave]

Zitat:

Zitat von DeddyH

[...]

Delphi-Quellcode:

Mediaplayer.Filename := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'Media\Film.avi';

[...]

Das IncludeTrailingPathDelimiter ist hier übrigens unnötig.

ExtractFilePath extrahiert den Dateipfad inklusive dem letzen Slash.

Delphi-Quellcode:

ExtractFilePath('C:\abc\def\ghi.jkl') = 'C:\abc\def\'
                                                   ^
___________________________________________________|

ExtractFileDir extrahiert den Dateipfad ohne den letzen Slash

Delphi-Quellcode:

ExtractFileDir('C:\abc\def\ghi.jkl') = 'C:\abc\def'
                                                  ^
__________________________________________________|

(Ausnahme:

Delphi-Quellcode:

ExtractFileDir('C:\abc.def') = 'C:\');

)

Nur so als Ergänzung :zwinker:

Grüße

[DeddyH]

Nur so aus der Hilfe:

Zitat:

Der resultierende String enthält die Zeichen von FileName bis einschließlich des Doppelpunkts oder des umgekehrten Schrägstrichs, mit dem die Pfadinformationen vom Dateinamen und seinere Erweiterung abgetrennt wird.

Sicher ist also sicher :zwinker: