CILJ> pronaci sve MP3 fajlove na CD-u. SREDSTVO> sada vi...

Ljudi mili ovo je vise nemoguce... evo ubijam se da napravim glupi algoritam koji ce mi u ListBox (ili bilo dje vec) ubaciti spisak svih MP3 pjesama sa CD-a. Ovaj kod sto sam vam poslao radi super na HDD-u, ali sa CD-om nece da pronadje ni *.txt fajlove a kamoli MP3.
Zna li iko zasto???

CODEEE....
--------------------------------------------

procedure DoFile(Path, AFileName: string);
begin
//ovde postaviti kod shta da se radi sa svakim fajlom
// na pr. ListBox1.Add(AFileName) or whatever
Form1.ListBox1.Items.Add(AFileName);
end;

procedure ProcessDir(Path: string; Maska: String);
var sr:TSearchRec;
SearchPath:string;
begin
//Prvo direktorijume, posle ostalo
try
if Copy(Path,Length(Path),20)<>'\' then Path:=Path+'\'; SearchPath:=Path+'*.*';
if FindFirst(SearchPath,faDirectory,sr)=0 then begin
repeat
if ((sr.Attr and faDirectory)=sr.Attr) and (sr.Name<>'.') and
(sr.Name<>'..') then
ProcessDir(Path+sr.Name, Maska);
until FindNext(sr)<>0;
end;
except

end;
// Procesiraj Fajlove
SearchPath:=Path+Maska;
if FindFirst(SearchPath,faAnyFile,sr)=0 then begin
DoFile(Path,sr.FindData.cFileName);
Application.ProcessMessages;
while FindNext(sr)=0 do DoFile(Path, sr.FindData.cFileName);
end;
// CleanUp
FindClose(sr);
end;
//Samo pozovesh ProcessDir('D:\','*.mp3') i gotovo...
//Mozhesh pogledati i u helpu o FindFirst, FindNext i sl..

--------------------------------------------
END CODEE



Ako se na ovaj nacin ne moze odraditi posao... sta bih drugo mogao uraditi.

Potpis

... ja dobro znam šta radim
al ne znam zbog čega
sve dobija drugu boju i miris
koliko puta sam krenuo iz početka
i stigao do istog prokletog mesta ...

Evo ti sample code koji radi to isto, kod mene radi i za CD i za HDD
mozes definirati koju bilo extenziju i aplikacija trazi file-ove sa te extenzije u folder koji izaberes, kao i kroz njegovih subdir-ova.

give it a shot

Potpis

People who think they know everything tend to irritate those of us who do.

Evo iskombinovao sam nesto... prvo sam program sa mojim algoritmom potrenuo slucajno na Win98 (sve vreme sam radio na Win2000) i ispostavilo se da radi perfektno -ai onda se ispostavilo da ne radi perfektno ni pod win98, pretrazi odredjen broj direktorijuma i stane.
Zatim sam uze ovaj tvoj primjer i nekako ga "ubildovao" u svoj programcic i pomislio da radi perfektno... ali je onda i on posle super pretrage CD-ova i C diska, zaglavio na D disku - posle pogleda na kood u izvrsavanju vidio sam da nije greska u koodu nego da je do problema doslo kad je program pregledao jedan dir koji ima neke mnogo zeznute fajlove (tako sam i otkrio da moj HDD ima ostecenih djelica). Elem na kraju sam rijesio sve... puno ti hvala na ovom primjeru.

Potpis

... ja dobro znam šta radim
al ne znam zbog čega
sve dobija drugu boju i miris
koliko puta sam krenuo iz početka
i stigao do istog prokletog mesta ...

to ustvari je trebalo da bude moj program koji ce pretrazivati diskove i locirati
duplirane mp3-jke,
prvo: na osnovu velicinu fajla i njegovog imena,
drugo: na osnovu mp3 tagovima,

ali kao sto vidis uradio sam samo neki manji deo,
a nisam imao vremena produziti to, posto imam neki veliki projekt na kog radim.

kad zavrsis to hteo bih da pogledam aplikaciju.

keep hope alive

Potpis

People who think they know everything tend to irritate those of us who do.