Dateien (videos) wie sortiert hintereinander laden /aufrufen

[taktaky]

Hallo

ich lade ein Video in mein Form so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName:='01.avi';
MediaPlayer1.open;
MediaPlayer1.Display:=panel1;
MediaPlayer1.DisplayRect:=Panel1.ClientRect;
MediaPlayer1.Play;
end;

Ich habe aber 3 Videos : 01.avi, 01.avi, 03.avi

Ich möchte 2 Buttons erstellen:
Ein Button heisst "Nächste", lädt die Videos aufsteigend
Ein Button heisst "Vorherige", lädt die Videos absteigend

Hat jemand eine Idee?

[DeddyH]

Lad die Dateinamen in eine sortierte Stringliste.

[taktaky]

Zitat:

Zitat von DeddyH

Lad die Dateinamen in eine sortierte Stringliste.

meinst Du FindFirst/FindNext in eine sortierte Stringliste?

Aber wie genau :mrgreen:

[DeddyH]

Na, den ersten Teil hast Du ja schon (FindFirst/FindNext). Zur StringListe schau Dir mal die Property Sorted und die Methode Add() an.

[Nuclear-Ping]

Taktaky ... gib mir bitte mal deine Adresse. Ich komm dann vorbei und bring dir programmieren bei ... :twisted: ... jeden Tag ne neue geistreiche Frage, das kann man sich echt nicht mehr mit anschauen.

[taktaky]

Zitat:

Zitat von Nuclear-Ping

Taktaky ... gib mir bitte mal deine Adresse. Ich komm dann vorbei und bring dir programmieren bei ... :twisted: ... jeden Tag ne neue geistreiche Frage, das kann man sich echt nicht mehr mit anschauen.

Nein Danke :mrgreen:

[taktaky]

Zitat:

Zitat von DeddyH

Na, den ersten Teil hast Du ja schon (FindFirst/FindNext). Zur StringListe schau Dir mal die Property Sorted und die Methode Add() an.

ich habe eine FileListBox auf mein form angelegt. Die Videos-Datei-Namen werden damit drauf aufgelistet und sortiert .
Aber trotzdem ist nicht gut, da ich die Videos in einem Ordner separat anlegen möchte und das Objekt FileListBox hat leider bei mir keine Eigenschaft von "Directory" wo man den ordnernamen eintragen kann.

Mit dem Code werden Ordner gefunden und aufgelistet.
Ich möchte aber Keine Ordner sondern Files auflisten :

Delphi-Quellcode:

procedure ListeDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, sr) = 0 then
  begin
    repeat
       if ((sr.Attr and faDirectory) = faDirectory) and
          (sr.Name <> '.') and
          (sr.Name <> '..') then
      begin
        FileList.Add(sr.Name);
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListeDir('C:\Windows\', ListBox1.Items);
end;

<>

[Die Muhkuh]

Hi taktaky,

anstatt Directory sollte Dir die Eigenschaft Mask mehr helfen.

Angenommen Du willst den Ordner C:\Meine Programme\PlayList\ auslesen, dann schreibst Du unter Mask "C:\Meine Programme\PlayList\*.*" rein (ohne die "" natürlich). Danach werden in der FileListBox nur die Dateien anzeigt, die auch in diesem Ordner sind.

[taktaky]

Zitat:

Zitat von Die Muhkuh

Hi taktaky,

anstatt Directory sollte Dir die Eigenschaft Mask mehr helfen.

Angenommen Du willst den Ordner C:\Meine Programme\PlayList\ auslesen, dann schreibst Du unter Mask "C:\Meine Programme\PlayList\*.*" rein (ohne die "" natürlich). Danach werden in der FileListBox nur die Dateien anzeigt, die auch in diesem Ordner sind.

Das stimmt aber das Problem, wenn ich den Pfad als relativ eingebe dann geht nicht !!!
also PlayList\*.* statt C:\Meine Programme\PlayList\*.*

<>

[DeddyH]

Setz doch Directory zur Laufzeit.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileListBox1.Directory := 'C:\Taktaky';
end;