MP3 Files aus MY Base Datenbank zum Öffnen bereitstellem

[Matzespens]

Hallo,
ich habe eine Datenbank geschrieben mit der ich meine MP3's archivieren kann. Nun möchte ich mehrere Files aus meiner Table auswählen können und mit Winamp öffnen können.
Wenn ich nur eine Datei auswähle ist das ja ganz einfach mit ShellExecute:

ShellExecute(GetDesktopWindow(), 'open', PChar(editdateiname.Text), nil, nil, SW_SHOWNA);

Aber wie bekomme ich jetzt mein Multiselect von meiner Table in Shellexecute.

(Vielleicht mit ner unsichtbaren Listbox??)

Schon mal Danke im Voraus.

Grüße

Matze

[Matze]

Hi!

Mit einer unsichtbaren ListBox müsste es theoretisch gehen, wenn du dann nacher mit ListBox1.ItemIndex deine MP3-Files ausliest.

Gruß Matze

[Matzespens]

Dann muss ich aber mit nem Array arbeiten oder?

Und nimmt mir dann mein Shellexecute den Typ Listbox1.itemindex an?

Grüße

Matze

[Matzespens]

Ich bins nochmal,

ich glaube ich bin zu blöde dafür.

Wie bekomme ich den jetzt meine Dateinamen in die Listbox?
mit:

Listbox1.items.text := ???

und dann muss ich doch irgendwie meine ausgewählten Dateien aufrufen

oder wie?

Gruß

Matze

[Matze]

Zur ListBox fügt man die Eiträge so hinzu:

ListBox1.Items.Add

So liest man sie aus:

LIstBox1.Items.Strings[irgendeine_Integer_Variable];

So liest man den angeklickten Eintrag aus:

LIstBox1.Items.Strings[ListBox1.ItemIndex];


Aber das mit ShellExecute kann ich leider auch nicht so richtig, ich hab rumprobiert, kam aber noch zu keinen Ergebnis.

Gruß Matze

[Matzespens]

Alles schön und gut,
das ist mir ja relativ klar.

Ich habe meine ausgewählten Daten jedoch ind einer Table Komponente und muss nun daraus meine strings in die Listbox übertragen. Und daran scheitere ich. Es muss also doch irgendwie so aussehen:

Listbox1.items.text := datamp3.???? (wobei datamp3 meine Table Komp. ist)

oder liege ich da falsch?

gruß

Matze

[Matze]

Guten Morgen Matze!

Nimm doch eine DBListBox.

Dann geht es so:

Code:

with Table1 do
begin
  first;
  DBListBox1.Items.clear;
  while not eof do
  begin
    DBListBox1.Items.add(fieldbyname('MP3-Files').asstring);  
    //MP3-Files ist die Spalte in der Table1
    next;
  end;
end;

Ich hoffe, das ist jetzt das Richtige.

Gruß Matze

[Matze]

Ich nochmal:

Dazu brauchst du dann natürlch eine DataSource, bei der DataSet auf Table1 verweist.

Und bei DBListBox1 muss DataSource auf DataSource1 verweisen
(beides im OI einstellbar).

Gruß Matze

[Matzespens]

Das funktioniert schon mal allerdings lädt er mir jetzt alle einträge in die dblistbox und ich möchte ja nur die markierten.

Kann ich dann vielleicht über das dbgrid gehen mit selectedRows ?

Gruß

Matze

[Matzespens]

Ich bins nochmal also ich habe das jetzt mal so probiert:

with dbgrid1 do
begin
//first;
DBListBox1.Items.clear;
while not eof do
begin
DBListBox1.Items.add(selectedField('Dateiname').te xt );
//Dateiname ist die Spalte in dbgrid1
next;
end;
end;

bekommen allerdings immer die Fehlermeldung "Operator oder Semikolon fehlt."

Wenn ich das mit selectedRows anstatt selectedField mache das selbe.

Oder geht das so nicht.

Gruß

Matze