AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Die Maske mit mehreren Strings vergleichen!!!!
Thema durchsuchen
Ansicht
Themen-Optionen

Die Maske mit mehreren Strings vergleichen!!!!

Ein Thema von Pinki · begonnen am 21. Okt 2006 · letzter Beitrag vom 22. Okt 2006
 
Benutzerbild von Pinki
Pinki

Registriert seit: 19. Mai 2006
Ort: Mülheim an der Ruhr
49 Beiträge
 
Delphi 5 Enterprise
 
#1

Die Maske mit mehreren Strings vergleichen!!!!

  Alt 21. Okt 2006, 15:28
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.
*** Cogito ergo sum ***
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz