Videos mit Delphi abspielen!

[LiquidSteel]

hiho

ich glaub ich kann die helfen


mit nem play button und nem dialog:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  If Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
  Mediaplayer1.FileName := opendialog1.FileName;
  Mediaplayer1.Open;
  Mediaplayer1.Play
end;

und mit ner playlist so:

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  If Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
  Mediaplayer1.FileName := PlayList1.Items.Strings[PlayList1.ItemIndex];
  Mediaplayer1.Open;
  Mediaplayer1.Play
end;

also so mach ich es jedenfalls und es klapt .. ich hoffe ich konnte dir helfen