Dateien (videos) wie sortiert hintereinander laden /aufrufen

[taktaky]

Zitat:

Zitat von DeddyH

Setz doch Directory zur Laufzeit.

Delphi-Quellcode:

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

Aber das ist keine alternative Lösung, da dies nur auf meinem PC funktionieren konnte, und bei anderen nicht :mrgreen:

Bei mir ist C:\ ... bei andern kann D:\.. :gruebel:

<>

[DeddyH]

Das war doch nur ein Beispiel, Mensch. Zur Not kannst Du doch vorher das Programmverzeichnis oder was auch immer ermitteln und das dann eintragen.

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileListBox1.Mask:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.Exename)) + '*.*';
end;

[taktaky]

Zitat:

Zitat von Die Muhkuh

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileListBox1.Mask:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.Exename)) + '*.*';
end;

:firejump: nun funktioniert, sowohl mit meinem Code, was Deddy vorgeschalgen hat, als auch von Muhkuh

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileListBox1.Directory := ExtractFilePath(ParamStr(0)); // und in mask auch "Ordnername\*.*"  eingeben

// oder so:
  FileListBox2.Mask:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.Exename)) + 'Ordnername\*.*'; 
end;

Danke für beide ;)

<>

[taktaky]

Es geht weiter :mrgreen:

Nun habe ich 2 Buttons um die Videos (Video-Namen in der Liste) zu wählen (Nächste und Vorherige):

Delphi-Quellcode:

procedure TForm1.NaechsteClick(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1
end;

procedure TForm1.VorherigeClick(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex -1;
end;

Wie soll nun der Code lauten?

Das ausgewählte Video in der FileListBox (FileListBox1.ItemIndex) soll aufgerufen werden . Aber wie?

Delphi-Quellcode:

//MediaPlayer1.FileName:='01.avi';
MediaPlayer1.FileName:=???;
MediaPlayer1.open;
MediaPlayer1.Display:=panel1;
MediaPlayer1.DisplayRect:=Panel1.ClientRect;
MediaPlayer1.Play;

---

[DeddyH]

Delphi-Quellcode:

FileListBox1.Items[FileListBox1.ItemIndex]

[Die Muhkuh]

[delphi]MediaPlayer1.FileName := FileListBox.Items[FileListBox.ItemIndex]; [delphi]

Oder sowas in der Art ;)

@ :twisted: Detlef! :mrgreen:

[taktaky]

Oh vielen Dank!

Nun funktioniert noch besser :mrgreen:

Was nun fehlt ist nur den Ordner mit seinem Inhalt (videos) an exe oder in eine dll binden und dann die Videos (Daten) von dort auslesen

<.>

[DeddyH]

Lesen!

[taktaky]

Zitat:

Zitat von DeddyH

Lesen!

Schon durchgelesen.
Teil 1 kenne ich bereit, wie man .Res erstellt und dann an exe bindet
Aber wie man einen Ordner als Archiv an exe packt und wieder bei Laufzeit irgendwo entpackt, gibt es keine Erklärung!

<>