AVI Dateien abspielen mit Delphi 7

[Inedependetn94]

Hallo Community,
ich bin gehe gerade in die Stufe 12 und habe leider nur ein Jahr Erfahrung mit Delphi:(
wir müssen eine Simulation mit Delphi7 programmieren und dann hab ich mir gedacht, dass ich einen Fernseher simuliere.
Leider können wir noch keine eigene Klasse benutzten:'(
ich wüsste wie man Töne mit dem Mediaplayer abspielen kann, jedoch weiß ich nicht wie man avi-datein mit Delphi7 abspielt
ich würde mich sehr freuen, wenn ihr mir helfen könntet und bitte bedenkt mein kleines Wissen :D

[DeddyH]

Hallo und Willkommen in der DP :dp:,

AFAIK ist AVI zwar lediglich ein Containerformat für div. Codecs, aber versuch einmal, ob Du die Dateien mit einem TMediaplayer abspielen kannst. Das dürfte IMO das einfachste sein.

[himitsu]

Jupp, TMediaplayer ... MPeg 1 und 2 und (unkomprimierte) AVI sollte der immer hinbekommen.
Ansonsten auch noch ein paar Codecs, welche im Windows registriert sind.

TAnimate würde auch (unkomprimierte) AVI abspielen können

[fkerber]

Hallo,

herzlich willkommen in der DP.

Vorweg eine Bitte:
Gib bitte deinem Thread einen aussagekräftigen Titel, der Rückschlüsse auf den Inhalt zulässt (z.B. "AVI Dateien abspielen mit Delphi 7") - das erleichtert anderen die Suche und erspart Klicks auf Themen, zu denen sie vllt. gar nichts sagen können.
Um den Titel zu ändern, kannst du deinen ersten Beitrag editieren, gehst dann in den erweiterten Modus und kannst ihn dann da abändern.


Nun zum eigentlichen Thema:
Das Problem mit AVI ist, dass es sich dabei nur um ein Container-Format handelt und man afaik nie so genau wissen kann, was drin steckt. Wichtig wäre also, dass die Datei grundsätzlich (z.B. im WMP) auf dem Rechner abspielbar ist, damit man sich halbwegs sicher sein kann, dass ein passender Codec installiert ist. Ansonsten sollte das Abspielen dann mit TMediaPlayer z.B. gehen - d.h. relativ analog zu deinen Tönen.

Am besten probierst du es einfach mal aus und kannst ja dann nochmal fragen, wenn es irgendwo konkret hapert ;)

LG, Frederic

[Inedependetn94]

also ich nehm jetzt WMP
soll ich das jetzt wie eine Audiodatei abspielen und nur also WMP
mediaplayer1.FileName := 'hintergrund.mp3';
mediaplayer1.Open;
mediaplayer1.play;
oder lieber so
sndPlaySound(pchar(name+'.wav'), SND_ASYNC)
und auf welchem Objekt soll ich das zeigen Animate1??? oder??
Danke für eure Hilfe ;)
leider kann ich den ersten beitrag nicht bearbeiten sry :(

[DeddyH]

Ich mag mich irren, aber IIRC lassen sich mit (Snd)PlaySound nur Waves abspielen. Womit Du nun Ton und/oder Bild abspielst, das bleibt Dir überlassen und hängt ggf. stark vom Dateiformat ab. Nimm also Deine Dateien und probiere aus, womit sie sich überhaupt abspielen lassen.

[Inedependetn94]

ok danke :D

[lbccaleb]

Oder auch so:

http://www.delphipraxis.net/140677-d...iedergabe.html

Allerdings schon nen bissel Fortschrittlicher als mitm normalen TMediaPlayer...

[Inedependetn94]

Ein Problem hab ich noch. :pale:
Ich klick auf einen Button und will dann den Mediaplayer anmachen.

mediaplayer1.FileName := 'astroklanghintergrundmusik08.mp3';
mediaplayer1.Open;
mediaplayer1.play;
Dann würde der hier einen Ton abspielen. Jedoch wo soll der das Video zeigen???
Muss ich den Button dann noch irgendwie Animate1 zuweisen oder den Mediaplayer in dem Animate1 einfügen???

[DeddyH]

Pack doch einen zweiten Mediaplayer dazu, der dann den Film abspielt. Mit einem 2 Dateien gleichzeitig zu öffnen geht ja wohl kaum.

[Inedependetn94]

ja das weiß ich :-D
Mein Problem ist, dass ich nicht weiß, wo das video abgespielt wird, weil wenn ich eine Ton abspiele, dann hört man den. Jedoch wenn ich ein Video abspielen möchte, dann muss ich dem doch noch sagen, wo der das abspielen soll
z.B. Animate1 oder spielt der das Video einfach auf form1 ab???

[DeddyH]

Du musst der Display-Eigenschaft ein Steuerelement (z.B. ein Panel) zuweisen, darauf wird das Video dann abgespielt.

[Inedependetn94]

kannst du mir den genaue befehl mit dem panel geben???

[DeddyH]

Sehr vereinfacht gesagt ist ein Steuerelement einfach eine sichtbare Komponente. Pack Dir also ein Panel auf Dein Formular (nennen wir es pnlDisplay) und weise das dem MediaPlayer zu.

Delphi-Quellcode:

MediaPlayer.Display := pnlDisplay;
MediaPlayer.Filename := 'C:\Wuppdi\Filmchen.avi';
MediaPlayer.Open;
MediaPlayer.Play;

[Inedependetn94]

ok vielen dank

[Inedependetn94]

MediaPlayer.Filename := 'C:\Wuppdi\Filmchen.avi';
muss ich das so mit dem Pfad machen oder kann ich die AVI-Datei im gleichen Ordner speichern
mediaPlayer1.Filename := 'Musikvideo.avi';
und bei mir kommt eine massive Fehlermeldung :(
kann das daran liegen, dass ich die Videos von Youtube komprimiert runtergeladen habe oder sind die unkomprimiert???

[DeddyH]

Der Pfad war ja nur ein Beispiel. Wenn die Datei im gleichen Verzeichnis wie die Exe liegt, kannst Du das mit ExtractFilePath(ParamStr(0)) ermitteln. Und wie gesagt: AVI ist lediglich ein Container für div. Formate, es gibt keine Garantie dafür, dass der Mediaplayer damit zurecht kommt. Evtl. kannst Du das Format mit einem Tool wie SUPER! umwandeln, da musst Du wohl ein bisschen probieren.