F
So weit so gut, habe jetzt mit einem Freund, der mir ein wenig auf die Sprünge geholfen hat, folgende FindFirst/FindNext Suchfunktion erstellt:
void SucheMP3s( const AnsiString Path )
{
TSearchRec SRec;
if( 0 == FindFirst( Path + "\\*.mp3", faAnyFile, SRec ) )
{
do
{
Form1->Memo1->Lines->Add(SRec.Name );
}
while( 0 == FindNext( SRec ) );
FindClose( SRec );
}
if( 0 == FindFirst( Path + "\\*", faDirectory, SRec ) )
{
do
{
if( (SRec.Name != ".") && (SRec.Name != "..") ) SucheMP3s( Path + "\\" + SRec.Name );
}
while( 0 == FindNext( SRec ) );
FindClose( SRec );
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SucheMP3s( AnsiString( &(DriveComboBox1->Drive), 1 ) + ":" );
}
//---------------------------------------------------------------------------
Jetzt müsste ich nur noch Wissen wie ich mit diesen Ausgabe irgendwas anfangen kann, wie reiche ich jetzt die einzelnen Lines auf meine Playlist weiter(auch RichEdit) und wie bekomme ich den Pfad von dort in meine MediaPlayer Komponente?
Danke schon mal im Voraus für jede Antwort