Hallo

ich lade ein Video in mein Form so:

markieren

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?

Lad die Dateinamen in eine sortierte Stringliste.

Zitat von DeddyH:

Lad die Dateinamen in eine sortierte Stringliste.

meinst Du FindFirst/FindNext in eine sortierte Stringliste?

Aber wie genau

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

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

Zitat von Nuclear-Ping:

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

Nein Danke

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 :

zusammenfalten · markieren

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;

<>

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.

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\*.*

<>

Setz doch Directory zur Laufzeit.

markieren

Delphi-Quellcode:

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