.avi abspielen

[Görly]

hey DP'ler bin jetz schon n weilchen am stöbern aber i kann kein passendes thema finden . also hier fix mein problem: ich hab ne avi datei und lade die über nen TAnimate in die maske. nu will ich das das video abgespielt wird sobald ich einen button drücke.
das hab ich so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 begin
   Video.Startframe:=15;
   Video.Stopframe:=73;

   end;

aber wenn ich den button nun drücke springt das video lediglich auch den startframe. was fehlt da noch?

greetz görly

[Fussball-Robby]

Video.Active := True

[Matze]

OH:

TAnimate.Play Methode

Spielt eine Frame-Sequenz aus dem AVI-Clip ab.

Klasse
TAnimate

Syntax
[Delphi] procedure Play(FromFrame: Word; ToFrame: Word; Count: Integer);

[Görly]

cool funst danke!!!
und wenn ich ein anderes videoformat habe, gibt es da für jedes format nen eigenen weg oder lässt sich das mit allen anderen auch so machen?

[Fussball-Robby]

Zitat von Görly:

cool funst danke!!!

Für manche wäre es vielleicht noch interessant, wie du es jetzt gelöst hast.

[Matze]

Zitat von Görly:

und wenn ich ein anderes videoformat habe, gibt es da für jedes format nen eigenen weg oder lässt sich das mit allen anderen auch so machen?

TAmimate kommt von Haus aus nur mit dem Avi-Format zurecht. Für andere Formate kannst du beispielsweise TMediaPlayer nutzen. Doch da findest du über die Suche sicher einiges.

@Robert: Es gehen beide Wege, deiner und meiner. Hab's getestet.
Interessant ist jedoch, dass dein Vorschlag auch zur Designtime funktioniert.

[Görly]

natürlich, hab ich ganz vergessen i hab die methode von dir genommen.
da wär noch ne frage: wo finde ich den TMediaPlayer und das TAnimate bzw kann ich das register durchsuchen(automatisch)? oder ist TMediaPlayer nicht auf der maske einzubinden?

[Matze]

TMediaPlayer befindet sich auf dem Reiter "System".

Das Abspielen geht dann ungefähr so:

Delphi-Quellcode:

MP.Display := Panel1;  // wenn das Video auf einem TPanel dargestellt werden soll
MP.FileName := 'pfad_zur.avi';
MP.Open;
MP.Play;

Aber wie gesagt, nutze die Suchfunktion, dafür ist sie da!

Gruß

[Görly]

der kann bei mir mit dem MP nichts anfangen. habs einfach so probiert:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
MP.Display := Panel1;
MP.FileName := 'C:\Users\Görly\Desktop\movie';
MP.Open;
MP.Play;
end;

oder isses nich so einfach?

mfg görly

[Fussball-Robby]

Bei Filename musst du schon den Namen der Datei mit angeben