Hi, bin gerade dabei einen kleinen Video und Audio player zu basteln.Ich habe folgendes Problem.
Mit Open Dialog werden Audio sowie Video dateien einem ListBox hinzugefügt.
Ich will das mit Klick auf entsprechende Datei die abgespielt wird.
Allerdings für Audiodateien benutze ich BassDLLPlayer und für Video das DSPack.
Delphi-Quellcode:
procedure TForm2.ListBox1OnClick(Sender:TObject);
var filename,maske:String;
V :Integer;
begin
if ListBox1.Items.Count > 0 then
begin
Datei_aus_Liste := ausgewaehlt;
maske:=ExtractFileExt(ListBox1.Items[Datei_aus_Liste]);// z.B .mp3 oder .wma auch mpeg usw.
filename:=ListBox1.Items[Datei_aus_Liste];
V:=CompareStr('.mp3',maske);//mit einzelnem Vergleich funzt auch.an der Stelle will ich
if V=0 then //vergleichen ob es sich um Audio oder Videodatei handelt!!!
begin
Form1.Player.LoadFromFile(filename);// BassDLLPlayer oder FilterGraph1?
Form1.Player.Play;
end;
end;
end;
Wie kann ich meine Maske mit BassDLLPlayer Filter vergleichen bzw mit FilterGraph.Filter??
Vielen Dank im Voraus.