AddObjekt problem

[Red_Dragon]

ich versuche grad eine playerlist zu erstellen aber kriege es einfach net hin dasdie datei geladen wird ist auch schwer wenn ich kein string nutzten darf :(

Wiedergabeliste.Items.AddObject('test.lied', Opendialog1);

hat jemand ne idee wie ich das anstellen soll?

[Sprint]

Zitat:

Zitat von Red_Dragon

ist auch schwer wenn ich kein string nutzten darf

Irgendwo in deinem Programm muss schon der Dateiname als String vorliegen. Sonst geht es nicht.

[Red_Dragon]

Zitat:

Zitat von Sprint

Zitat:

Zitat von Red_Dragon

ist auch schwer wenn ich kein string nutzten darf

Irgendwo in deinem Programm muss schon der Dateiname als String vorliegen. Sonst geht es nicht.

opendialog1.filename

aber das nützt mir ja nix ich kann ja keine strings nutzen bei addobjekt...

[Sprint]

Dann nimmst du eine TStringList und speicherst dort den Dateinamen. Wenn du synchron in deine Wiedergabeliste und in die FileList addest, dann kannst du ja über ItemIndex zu greifen. Ansonsten merkst du dir die Postion von FileList.Add und trägst den bei Wiedergabeliste.AddObject('Mein Song', TObject(Position)) ein.

[Muetze1]

Moin!

Oder du pfeifst auf ein wenig Speicheroverhead und legst dir ein kleines Objekt an, welches dann den Dateinamen enthält und z.B. ob es schon abgespielt wurde (z.B: für Shuffle), etc. Dann einfach dieses Objekt zu dem Eintrag hinzufügen.

MfG
Muetze1

[Red_Dragon]

puh irgendwie krieg ich nix hin und verstehen tu ich das was ihr meint irgendwie nicht ganz *g*
ich versuche das jetzt schon seit 10 tagen aber irgendwie krieg ich einfach auf keine weise hin das das halbwegs so aussieht wie bei winamp...:(

[Muetze1]

Moin!

Was ist deine Frage? Das Aussehen oder die Programmierung der ListBox o.ä. für die Playlist?

MfG
Muetze1

[Red_Dragon]

Zitat:

Zitat von Muetze1

Was ist deine Frage? Das Aussehen oder die Programmierung der ListBox o.ä. für die Playlist?

die programmierung ...
mir ist einfach nicht begreifbar wie ich das mit den objekten regeln soll

[Sprint]

Zitat:

Zitat von Red_Dragon

mir ist einfach nicht begreifbar wie ich das mit den objekten regeln soll

Der einfachste Weg ist wohl eine Dateiliste (TStringList) anzulegen. Dort fügst du dann den Dateinamen hinzu. In deiner visuellen Anzeige (z.B. TListBox) benutzt du AddObject und missbrauchst diese Funktion. Anstatt ein Objekt zu übergeben, gibt du die Position von deinem Dateinamen in der Dateiliste an. In der Praxis könnte das z.B. so aussehen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private-Deklarationen }
    FileList: TStringList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileList := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FileList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Position: Integer;
begin
  if OpenDialog1.Execute then
  begin
    Position := FileList.Add(OpenDialog1.FileName);
    ListBox1.Items.AddObject(ExtractFileName(OpenDialog1.FileName), TObject(Position));
  end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  ShowMessage(FileList.Strings[ListBox1.ItemIndex]);
end;

end.

In der ListBox steht nur der Dateiname, ohne den Pfad. Bei einem doppelklick auf die ListBox wird der vollständige Dateiname aus der Dateiliste ausgelesen und in einer MessageBox angezeigt.

Die andere Möglichkeit wäre die, die Muetze1 schon angesprochen hat.

[phXql]

Delphi-Quellcode:

Wiedergabeliste.Items.add(OpenDialog1.Filename);

[Sprint]

@phXql: Glaubst du wirklich, das in der Wiedergabeliste der vollständige Dateiname stehen soll? Ich nicht. Ich denke da sollen später Interpret, Titel und Spielzeit drin stehen.

[phXql]

Zitat:

Zitat von Sprint

@phXql: Glaubst du wirklich, das in der Wiedergabeliste der vollständige Dateiname stehen soll? Ich nicht. Ich denke da sollen später Interpret, Titel und Spielzeit drin stehen.

So wie es Red_Dragon im ersten Post angegangen hat, würde (hätte es funktioniert) auch nur der Filename drin stehen. Meins is nur die einfachste Möglichkeit. Wollte man es mit Interpret usw. machen, wäre es wohl am besten, eine eigene Klasse für jedes geladene MP3 zu erstellen, und dann eine Instanz dieser klasse als Object bei AddObject() angeben.

[Sprint]

Zitat:

Zitat von phXql

Wollte man es mit Interpret usw. machen, wäre es wohl am besten, eine eigene Klasse für jedes geladene MP3 zu erstellen, und dann eine Instanz dieser klasse als Object bei AddObject() angeben.

Richtig. Und diese Antwort hat Muetze1 ja schon geschrieben.

[Red_Dragon]

super Sprint jetzt hab ich verstanden wies geht bist ein genie echt vielen dank :)