[delphi] problem ze zmian± ikony programu
[delphi] Rysowanie na Canvasie z pliku *bmp
[delphi] procedury przy pokazaniu formy
Samsung GT-B3410 Delphi
[delphi] sprawdzanie poprawno¶ci adresu
[delphi] efekt przewijania label'a
Algorytm sortowania b±belkowego w Delphi
[delphi] przylepianie formy
[delphi] konstrukcja wyj±tku
[Delphi] Program w zasobniku....
chomiki
var
S: String;
MP3File: TFileStream;
Buffer: array[0..128] of Char;
Tag: TMP3Tag;
begin
if OpenFile.Execute then
begin
S := LowerCase(OpenFile.FileName);
if Length(S) > 0 then
begin
if Pos('mp3', S) > 0 then
begin
MP3File := TFileStream.Create(S, fmOpenRead);
MP3File.Seek(MP3File.Size - 128, soFromBeginning);
MP3File.Read(Buffer, 128);
with Tag do
begin
ID := Copy(Buffer, 1, 3);
Title := Copy(Buffer, 4, 30);
Artist := Copy(Buffer, 34, 30);
end;
if Tag.Title = '' then
Tag.Title := 'Brak tytułu';
if Tag.Artist = '' then
Tag.Artist := 'Brak wykonawcy';
if Tag.ID = 'TAG' then
begin
PlayList.AddToPlayList(S, Tag.Artist + ' - ' + Tag.Title);
ListBox.Items.Add(Tag.Artist + ' - ' + Tag.Title);
end else
begin
PlayList.AddToPlayList(S, ExtractFileName(S));
ListBox.Items.Add(ExtractFileName(S));
end;
MP3File.Free;
end else
begin
PlayList.AddToPlayList(S, ExtractFileName(S));
ListBox.Items.Add(ExtractFileName(S));
end;
end;
end;
Jednak czyta on tylko pliki zakodowane w formacie ID3v1. Znacie jaki¶ inny sposób nna wyci±gnięcie tagów?
/Ten PlayList to komponent, nie ma z nim problemów./
Nie wiem czy tu szukałe¶:
http://download.4programm..._Tag_Editor.zip
http://www.audioxl.com/id3v2lib.html
ewentualnie http://www.audioxl.com/oldtagger.html
Maciek, jeste¶ dobrym kumplem. Dzięki Hurra, udało się
